Masakra Posted October 25, 2009 Report Share Posted October 25, 2009 Witam Mam problem bo muszę zrobić program w turbo pascalu a jak na razie miałem z tego 2 lekcje i za bardzo jeszcze tego nie rozumie ;/ A program musi być taki: Wprowadzić z klawiatury 2 dowolne liczby całkowite typu integer,na ekranie komputera wyświetlić sumę tych liczb,różnicę,iloczyn,iloraz,iloraz całkowity,resztę z dzielenia. A dodatkowo: wynik z dzielenia wyświetlić z dokładnością do 3 miejsc po przecinku po lewej stronie suma znakow w naglowku a po prawej suma wynikow no i oczywiście to wszystko wyśrodkować Z góry dziękuje :-) Link to comment Share on other sites More sharing options...
Toster Posted October 25, 2009 Report Share Posted October 25, 2009 definicja zmiennej: var a: integer; suma: + roznica: - dzielenie: / lub div iloczyn: * reszta: mod wyswietlanie z dokladnoscia uzyskujesz przez znak ':' przyklad: a:0:2 definicja procedury procedure nazwaFunkcji(lista argumentow); var ... zmienne tutaj begin ... cialo metody tutaj end; Always Dark<br /> Link to comment Share on other sites More sharing options...
Masakra Posted October 26, 2009 Author Report Share Posted October 26, 2009 napisalem to ale mam jakis blad ;/... program spr1-10; {Artur Glabica 1i 10} uses crt; var x, y, s, r, i, reszta, ilorcal:integer; il:real; begin clrscr; writeln ('Podaj liczbe x'); readln (x); writeln ('Podaj liczbe y'); readln (y); clrscr; s:=x+y; r:=x-y; i:=x*y; ilorcal:=x div y; reszta:=x mod y; gotoxy (17,5); write ('liczba x= '); writeln (x); gotoxy (17, 6); write (liczba b= '); writeln (y); gotoxy (36, 9); writeln ('wyniki'); writeln (''); write ('suma= '); writeln (s); writeln (''); write ('roznica= '); writeln ®; writeln (''); write ('iloczyn= '); writeln (i); writeln (''); write (iloraz= '); writeln (il:0:3); writeln (''); write ('iloraz calkowity= ; writeln (''); write ('reszta z dzielenia= '); writeln (reszta); readln; end. a błąd mi znajduje w linijce 16 ( ilorcal:=x div y;) pomoże ktoś? Link to comment Share on other sites More sharing options...
Toster Posted October 26, 2009 Report Share Posted October 26, 2009 no to jeszcze powiedz jaki blad. Always Dark<br /> Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.