Doporučuji: Testy.mysteria.cz, HockeyPage.wz.cz

Pascal - hotové kódy

Sčítání, odčítání, násobení, dělení

program calculator;
  USES crt;
  var a,b,n,f: integer;
  c,d: string;
begin

n:=0;
  writeln ('Vitam Vas u Programu Tom Calculator 1.0. Program se spusti za 1 sekundu.');
  delay (1000);
  clrscr;
  writeln ('Napis sve krestni jmeno.');
  readln (c);
  clrscr;
  writeln ('Ty jsi ',c,'.',' Ahoj.');
  writeln ('Kalkulacka se spusti stiskem libovolne klavesy.');
    repeat until keypressed;
  repeat
  clrscr;

writeln ('Napis cele realne cislo.');
  read (a);
  writeln ('Napis dalsi cele realne cislo ruzne od nuly.');
  readln (b);
  clrscr;
  if b=0 then
  begin
  repeat
  n:=n+1;
  writeln ('Nesmis zadat nulu! Napis dalsi cele realne cislo ruzne od nuly.');
  if n=1  then begin
  write ('Ses blbec!');
  end;
  if n=2  then begin
  write ('Ses tupec!');
  end;
  if n=3  then begin
  write ('Ses deza!');
  end;
  if n>3  then begin
  write ('Ses totalni magor, jdi do p****e!');
  end;
  writeln (' Udelal jsi ',n,'. chybu.');
  readln (b);
    clrscr;
   until b<>0;
   end;
  if b<>0 then
  begin
  writeln (a,'*',b,'=',a*b);
  writeln (a,'/',b,'=',a/b);
  writeln (a,'+',b,'=',a+b);
  writeln (a,'-',b,'=',a-b);

if a>b then
    begin
    writeln ('cislo ',a,' je vetsi nez ',b);
    end;
    if b>a then
    begin
    writeln ('cislo ',b,' je vetsi nez ',a);
    end;
    if a=b then
    begin
    writeln ('cislo ',a,' je rovno ',b);
    end;

end;
  writeln ('Pro pokracovaní programu napis 33.');
   readln (f);
   until f<>33;
end.

zpět na přehled kódů <