Question

Turbo Pascal Używając poznanych pętli (zdaje sie ze poznalismy repeat, while, do) także modułu CRT i funkcji oraz procedur w nim zawartych napisz program który:

1. Wczyta 2 liczby rzeczywiste i poczeka na wybór użytkownika
2. Po naciśnięciu znaku + - dodawanie , - - odejmowanie , * - mnożenie , / - dzielenie (sprawdzenie czy mianownik nie jest zerem)
3. Wypisze wynik
4. Sprawdzi czy wynik działania jest parzysty lub nie i wypisze odp. komunikat

Daje najlepsze rozwiazanie

Answer 1

uses crt;

var a, b, c:Real;

      d:char;

 czy:boolean;

begin

Writeln('Podaj pierwsza liczbe do badania');

Readln(a);

Writeln('Podaj 2 liczbe do badania');

Writeln('Jaka operacje chcesz wykonac? +, -, *, / ');

readln(d);

czy:=false;

if d='+' then begin c:=a+b; czy:=true; end;

if d='-' then begin c:=a-b; czy:=trude;end;

if d='*' then begin c:=a*b; czy:=true; end;

if d='/' then begin czy:= true;

if b=0 then writeln('Mianownik nie moze byc 0')

else c:=a/b; end;

if czy then begin;  if c mod 2 =0 then writeln('Wynik parzysty')

else writeln("Wynik nie parzysty'); end

else writeln('Nie wybrales poprawnie znaku/czynnosci');

readln;

end.