Masakra Napisano Październik 25, 2009 Zgłoś Share Napisano Październik 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 do komentarza Udostępnij na innych stronach More sharing options...
Toster Napisano Październik 25, 2009 Zgłoś Share Napisano Październik 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 do komentarza Udostępnij na innych stronach More sharing options...
Masakra Napisano Październik 26, 2009 Autor Zgłoś Share Napisano Październik 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 do komentarza Udostępnij na innych stronach More sharing options...
Toster Napisano Październik 26, 2009 Zgłoś Share Napisano Październik 26, 2009 no to jeszcze powiedz jaki blad. Always Dark<br /> Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.