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 8950 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8850 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 8233 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
  Książki do nauki C# olek23 14 21570 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 8426 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4611 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 22564 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7119 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 8199 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 10127 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 9545 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 9541 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 11569 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4546 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 10788 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 11161 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 10777 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 10421 23.03.2019 18:28
Ostatni post: Physicist