SHARE
TWEET

Untitled

a guest Jul 17th, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program matematika;
  2.   var a,uzvysledek,cislo1,cislo2,cislo3,pocet1,pocet2,chyby1,chyby,kk:integer;
  3.   var roz:string;
  4.   label misto;
  5. begin
  6.  pocet1:=0;
  7.  chyby1:=0;
  8.  kk:=3;
  9.  writeln('Pro příklady s odčítáním stiskni od pro příklady sčítání stiskni sč');
  10.  readln(roz);
  11.  
  12. for a:=1 to 2 do
  13.  begin
  14.    if (roz='od') then
  15.     begin
  16.      repeat
  17.      cislo1:=random(100);
  18.      cislo2:=random(100);
  19.      cislo3:=cislo1-cislo2;
  20.      until(cislo3>=0);
  21.    
  22.  
  23.  
  24.    writeln(cislo1,'-',cislo2,'='  );
  25.    readln(uzvysledek);
  26.  
  27.    if uzvysledek=cislo3 then
  28.     begin
  29.      writeln('Toto je správná jdeme na další příklad');
  30.      writeln('stiskni enter');
  31.      pocet1:=(pocet1+1);
  32.      readln();
  33.     end
  34.    else
  35.     begin
  36.      chyby:=(chyby1+1);
  37.      pocet1:=(pocet1+1);
  38.      writeln('Výsledek máš blbě',cislo1,'-',cislo2,'=',cislo3);
  39.      writeln('Pojďme na další příklad');
  40.      readln();
  41.     end;
  42.    end;
  43.  
  44.    if(roz='sč') then
  45.     begin
  46.      cislo1:=random(100);
  47.      cislo2:=random(100);
  48.      cislo3:=cislo1+cislo2;
  49.      writeln(cislo1,'+',cislo2,'='  );
  50.      readln(uzvysledek);
  51.  
  52.  
  53.    if uzvysledek=cislo3 then
  54.     begin
  55.      writeln('Toto je správná jdeme na další příklad');
  56.      writeln('stiskni enter');
  57.      pocet1:=pocet1+1;
  58.      readln();
  59.     end
  60. else
  61.  begin
  62.   chyby:=chyby1+1;
  63.   pocet1:=pocet1+1;
  64.   writeln('Výsledek máš blbě',cislo1,'+',cislo2,'=',cislo3);
  65.   writeln('Pojďme na další příklad');
  66.   readln();
  67.  end;
  68. end;
  69. end;
  70. writeln('Tvůj počet chyb je: ',chyby);
  71. writeln('Pro ukončení stiskni enter');
  72. readln();
  73. end.
RAW Paste Data
Top