Forum Programosy • Pascal pomoc ze zdefiniowaniem zmiennej

Strona 1 z 1

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 24 Wrz 2009, 19:10

przez Pytoo

Witam na wstępie chce powiedzieć iż to nie ma nic wspólnego z żadną pracą domową... uczę się programowania sam dla siebie

Kod: Zaznacz wszystko: writeln('do ilu znakow po przecinku ma byc ograniczenie?'); readln(b); writeln('a= ',a:2:b); writeln('przepisz powyzsza liczbe'); readln(v);

mam taki fragment kodu, jak zrobić by nie trzeba było przepisywać liczby a po skróceniu do a:2:b ? chodzi mi o to by zapisać jakoś a :2:b do v

Turbo pascal pomoc

Wysłany: 24 Wrz 2009, 19:24

przez lilith

Kod: Zaznacz wszystko: v:=a; writeln(v);

przyznaję, że pascala dawno już na oczy nie widziałam, ale to chyba tak jakoś powinno być. readln(v) -> wczyta tobie z klawiatury daną liczbę i przypisze ją pod v.
v:=a -> tu liczbie v przypiszesz wartość, która była pod a. writeln(v) wypisze tobie tę liczbę, która jest pod v.

a btw. na twoim miejscu wzięłabym się za c lub nawet c++. pascal to przeżytek, chyba że chcesz sobie grę napisać akurat w pascalu

tylko właściwie ten akurat kawałek kodu twój chyba nie bardzo ma sens. bo co, nie wczytujesz wogóle 'a', i chcesz jakąś liczbę wczytaj, ale jaką, jakieś v, którego też nie używasz w programie. nawet nei wiem co ma przepisać pod to v. używać 3 różnych oznaczeń a wiadomo tylko ile wyniesie b.
BO zapis "a:2:b" to nie jest działanie a podzielic przez 2 i to podzielić przez b! tak przeznaczasz ilość bitów na wynik i ile miejsc po przecinku ma mieć ta liczba.

jeśli chcesz wykonać działanie dzielenia to dajesz :

Kod: Zaznacz wszystko: v:= (a/2)/b; writeln(v);

i powinno zadziałać.

Turbo pascal pomoc

Wysłany: 24 Wrz 2009, 19:34

przez Pytoo

tak ale chodzi o to by z liczby np 0.4321332121 zrobilo się 0.4321 i to zapisało jako V bez przepisywania

uczę się pascala by poznać podstawy taki oldschool a potem c++

Turbo pascal pomoc

Wysłany: 24 Wrz 2009, 19:47

przez lilith

Kod: Zaznacz wszystko: uses crt; var a,v,b:real; begin writeln('wczytaj a'); readln(a); writeln('wczytaj b'); readln(b); v:=a/2/b; writeln('v= ',v:10:4); end.

Turbo pascal pomoc

Wysłany: 24 Wrz 2009, 19:49

przez eSpEY

http://turbopascal.helion.pl/r-19.htm

Polecam lekturę.

Pytoo napisał(a):uczę się pascala by poznać podstawy taki oldschool a potem c++

Zaczyna się od basica - łatwiej idzie - potem pascal nie potrzebny

Turbo pascal pomoc

Wysłany: 24 Wrz 2009, 20:24

przez lilith

dobra już czaję o co ci chodzi:

Kod: Zaznacz wszystko: uses crt; var a,v,b:real; x:integer; begin writeln('wczytaj x'); readln(x); writeln('wczytaj a'); readln(a); writeln('wczytaj b'); readln(b); v:=a/2/b; writeln('v= ',v:10:x); readln; end.

lub krócej:

Kod: Zaznacz wszystko: uses crt; var a,v,b:real; x:integer; begin writeln('wczytaj x,a,b'); readln(x,a,b); v:=a/2/b; writeln('v= ',v:10:x); readln; end.

najpierw sobie wczytujesz ten x czyli do ilu miejsc po przecinku ma zapisać a potem już sobie pobiera z pamięci

o teraz mi się przypomniało jak zrobić w taki sposób jak to chciałeś osiągnąć:

Kod: Zaznacz wszystko: uses crt; var a,b:real; x:integer; begin writeln('wczytaj x,a,b'); readln(x,a,b); writeln(a/2/b:10:x); readln; end.

I O TO CHYBA CHODZIŁO :p

sory, ze tak mieszałam, ale pascala nie widziałam od 2006 roku

teraz już jest dobrze

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 24 Wrz 2009, 22:17

przez Pytoo

generalnie chodzi mi o to by v:=a:2:b to znaczy gdy liczba a równa się 0.234324234 czy jakiś inny longint i b równa się 3 to v=0.234

o to chodzi że to nie ma być dzielenie ale żeby v było skróconą liczbą a ktora będzie potrzebna do dalszych obliczen

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 24 Wrz 2009, 22:22

przez lilith

masz to w ostatniej wersji mojego programu (ale z dzieleniem). a jak chcesz bez dzielenia to zamiast dzielenia walnij zwykłą liczbę. a typ longint to nadal typ całkowity tylko zawiera więcej liczb niż zwykły integer. jak chcesz po przecinku to musisz dać real bo to jest liczba zmiennoprzecinkowa. a może źle pamiętam, ale raczej powinno wywalić błąd przy longincie.

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 09:41

przez Pytoo

i jak nazwać ten wynik z tego twojego kodu jako v? Bo chodzi mi generalnie o to by używać liczby skróconej w dalszych obliczeniach np przy błędzie bezwzglednym liczbe przed skróceniem np 0.123456789 skrócić do 0.123 i odjać żeby wynik był 0.000456789

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 10:03

przez lilith

v to zaokrąglenie liczby 0.123456789 do x miejsc po przecinku, a odejmowania żadnego tam nie widziałam żeby wyszedł wynik 0.000456789. był jeszcze gdzieś wynik 0.234324234, ale nie podajesz wszystkich danych a przy dwóch niewiadomych bedzie nieskończenie wiele rozwiązań. więc już nie wiem co ma wyjść a co nie, bo nei znam twoich danych wejściowych.

widzę, że to jednak zadanie domowe jest ;] zazdroszczę tobie, bo nie miałam programowania szkole średniej ;]

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 11:26

przez Pytoo

nie jest to praca domowa... poza tym nie mam już informatyki tylko chce się tego nauczyć sam.
chce się dowiedzieć jak zaokrągloną liczbę a do b miejsca po przecinku zapisać jako inną liczbę v by użyć ja do dalszych działań jak przy błędach bezwzględnych czy względnych..

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 12:10

przez lilith

o masakro

Kod: Zaznacz wszystko: uses crt; //dzięki temu możesz wczytać dane z klawiatury var a,v:real; //definiujesz zmienne x:integer; // to samo begin //początek programu writeln('wczytaj a oraz x'); //wypisze na ekranie to co w ' ' readln(a,x); //zapamięta to co podasz mu z klawiatury, musi być liczba v:=a; //pod v przypisze wartość a writeln('v= ',v:10:x); //wypisze 'v= to co zapisało pod v' . 10 to ile przeznaczasz na całą liczbę, x to do ilu miejsc po przecinku ma zaokrąglić liczbę v readln; //zobaczysz wynik, czarne okienko nie zniknie po wykonaniu programu, może być też readkey end.

//koniec programu

gdzie v to ilość miejsc po przecinku. wystarczyło przerobić to dzielenie na zwykła liczbę. nei wiem ile razy mam jeszcze to napisać. zamiast b masz x, bo mi się poprawić nie chciało. czego tu jeszcze nie rozumiesz. a może ja źle rozumiem i źle robię a tobie chodzi o coś innego.

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 15:59

przez Pytoo

No dobrze i teraz chodzi mi o to, że nie wiem jak od
v odjąć v:10:x , bo samo w sobie v to miała być liczba, która ma kilka miejsc po przecinku i po skróceniu do x miejsc po przecinku należy odjąć ją od tej dluższej liczby, by sprawdzić o ile zmniejszy się wartość liczby po zaokrągleniu jej do x miejsc po przecinku.

Pascal pomoc ze zdefiniowaniem zmiennej

Wysłany: 25 Wrz 2009, 18:42

przez lilith

no to masz coś na wzór tego:

Kod: Zaznacz wszystko: uses crt; const a=0.311347574; var b,c:real; x,i,jakapotega:integer; begin writeln('ile miejsc po przecinku'); readln(x); jakapotega:=1; for i:=1 to x do begin jakapotega:=jakapotega*10; i:=i+1; end; b:=round(a*jakapotega)/jakapotega; writeln('a= ',a); writeln('b= ',b); writeln('wynik odejmowania:'); c:= a-b; writeln('c= ',c); readln; end.

funkcja round zaokrągla do części całkowitej chyba a jak zaokrąglisz taką liczbę jaką sobie np ustawiłam to daje 0, więc pomnożyłam sobie tę liczbę rzeczywistą przez 10 do potęgi x, które to podajesz z klawy. a następnie podzieliłam przez to samo, żeby otrzymać tę obciętą liczbę.

mogłeś od razu napisać że o to tobie chodzi. teraz już powinno być git.