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 9004 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8900 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 8277 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
  Skrypt usuwający pliki sylwiaa1 2 4573 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 10980 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 11395 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 10983 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 10618 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 9688 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 13516 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 10217 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 10641 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 12119 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 10931 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 11748 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 10947 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 11663 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 14504 19.12.2018 16:29
Ostatni post: Szachista