Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Dwa proste programy w Turbo Pascal.

#1
Dwa proste programy w Turbo Pascal.
Witam, oto moje dwa zadania które miałem zrobić w domu. Jeżeli znaleźli byście błąd albo jakiś sposób uprościć to to napiszcie.

----------ZADANIE 1-----------

Napisz program określający czy wczytana liczba jest pażysta.

Program pazystosc;
var
A:integer
begin
writeln ('Podaj liczbe');
readln (A);
if (A mod 2) then
writeln ('Liczba jest pazysta')
else
writeln ('Liczba nie jest pazysta');
end.


----------ZADANIE 2-----------

Program wyliczanie;
var
A,B:integer
begin
writeln ('Podaj dwie liczby');
readln (A,B);
if (A mod B) then
writeln (Pierwsza dzieli sie przez droga')
else
writeln (Pierwsza nie dzieli sie przez droga')
end.

Zmodyfikuj powyższy program tak aby zabezpieczyć sie przed błędem dzielenia przez zero.


Program wyliczanie2;
var
A,B:integer
begin
writeln ('Podaj pierwsza liczbe');
readln (A);
writeln ('Podaj droga liczbe');
readln (B);
if (B>0) then
A mod B
else
writeln ('Nie mozna wykonac dzialania');
end.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#2
RE: Dwa proste programy w Turbo Pascal.
Zad 1.
Kod:
Program parzystosc;
var
A:integer;
begin
writeln ('Podaj liczbe');
readln (A);
if A mod 2 = 0 then
writeln ('Liczba jest parzysta')
else
writeln ('Liczba nie jest parzysta');
readln;
end.

Zad 2.
Kod:
Program wyliczanie;
var
A,B:integer;
begin
writeln ('Podaj dwie liczby');
readln (A,B);
if A mod B = 0 then
writeln ('Pierwsza dzieli sie przez drugą')
else
writeln ('Pierwsza nie dzieli sie przez drugą.');
readln;
end.

Zad. 2 po zmodyfikowaniuOczko

Kod:
Program wyliczanie;
var
A,B:integer;
begin
writeln ('Podaj dwie liczby');
readln (A,B);
if b = 0 then
begin
writeln('Nie można dzielić przez zero!');
readln;
halt;
end;
if A mod B = 0 then
writeln ('Pierwsza dzieli sie przez drugą')
else
writeln ('Pierwsza nie dzieli sie przez drugą.');
readln;
end.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Dwa proste programy w Turbo Pascal.
Dzieki za pomoc. Tylko gdyby było bez tego halt to było by dobrze.
 System operacyjny: macos Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
jak zabezpieczyc nie dzielenie przez 0 pascalproste zadania turbo pascal

Podobne wątki (Dwa proste programy w Turbo Pascal.)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 9000 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8896 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 8273 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Dwa proste programy w Turbo Pascal.)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Klasa wewnętrzna w C++ Physicist 4 10613 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 9684 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 13511 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 10213 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 10639 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 12117 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 10927 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 11746 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 10945 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 11661 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 14500 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 12160 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 12971 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 11408 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 11925 06.09.2018 07:20
Ostatni post: broda99