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 8875 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8779 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 8168 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
  Pytanie - programowanie batch [cmd] Max23 0 3029 20.03.2020 01:03
Ostatni post: Max23
  Oczekiwanie na Akcje przycisku wanhelsing 8 4833 01.03.2020 19:44
Ostatni post: Szachista
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 4619 09.02.2020 15:58
Ostatni post: dzikuu86
  Skrypt pod sklep internetowy Talcia 4 7228 14.12.2019 19:48
Ostatni post: hexopex760
  Poszukuję pomysłu na prosty program ;) janciu96 5 13987 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 5519 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 2503 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 13406 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 3025 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 7573 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 6606 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 6880 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 20502 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 8098 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4545 30.08.2019 14:16
Ostatni post: Physicist