Tento program slúži na určenie najťažšieho chlapca

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Zadání z Pascalu

Autor: Juraj Pupák
Program: Vazit.pas
Soubor exe: Vazit.exe

Tento program slúži na určenie najťažšieho chlapca.
{ VAZIT.PAS                                                         }
{ Tento program sluzi na urcenie najtazsieho chlapca.               }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Vaha;
uses crt;
var
   a,b,c,max_num : integer;
 
begin
 clrscr;
 writeln('Tento program sluzi na urcenie najtazsieho chlapca');
 writeln('Zadaj vahu Joza');
 readln(a);
 writeln('Zadaj vahu Jana');
 readln(b);
 writeln('Zadaj vahu Misa');
 readln(c);
 clrscr;
 max_num := a;
 
 IF max_num < b THEN
   begin
     max_num := b;
     writeln(max_num,' Najtahsi je Jano');
   end else
   begin
     IF max_num < c THEN
       begin
         max_num := c;
         writeln(max_num,' Najtahsi je Miso');
      end else
       begin
         writeln(max_num,' Najtahsi je Jozo');
       end;
   end;
 readln;
end.