Matematické Fórum

PROGRAM Kvadraticka_rovnica;
{$APPTYPE CONSOLE}
USES
  SysUtils;
VAR a, b, c : real;
    D : real;
    x1, x2 : real;
BEGIN
  write('Zadaj a: '); readln(a);
  write('Zadaj b: '); readln(b);
  write('Zadaj c: '); readln(c);
  D:= b*b-4*a*c;
  if(D < 0) then begin
      write('Rovnica nema riesenie');
      halt;
    end
  else
    begin
      x1:= (-b+sqrt(D))/(2*a);
      x2:= (-b-sqrt(D))/(2*a);
    end;
  writeln('Korene kvadratickej rovnice su: ');
  write('x1 = ', x1:5:5, '  x2 = ', x2:5:5);
END.

 program delitelneSedmickou;
 {$APPTYPE CONSOLE}
 uses CRT;
 var num, pCelkem, pBezZbytku: integer;
 var procent: real;

 begin
  clrscr;
  pCelkem := 0;

      repeat
       read(num);
       pCelkem := pCelkem + 1;

          if ((num mod 7) = 0) then
           pBezZbytku := pBezZbytku + 1;

      until (num = 0);

  pBezZbytku := pBezZbytku - 1;
  pCelkem := pCelkem - 1;
  procent := (pBezZbytku/pCelkem)*100;

  write(' Pocet cisel: ', pCelkem);
  writeln;
  write(' Pocet cisel delitelnych sedmickou: ', pBezZbytku);
  writeln;
  write(' Procent: ', procent:5:2);

  readkey;

 end.

program c5;
var file: text;
     slovo, tvj_slovo: string[30];
     i: integer;
begin
      read(tvj_slovo);
      assign (file, 'vstup.in');
      reset(file);
      read(file, slovo);
      while slovo <> '*' do begin {dajme tomu, ze postupnost slov v subore je zakoncena '*', da sa pouzit aj eoF(end of file)}
               if slovo = tvj_slovo then i := 1 + i;
               read(file, slovo)
               end;
      writeln(i);
end.