Pascal - Konsolowe

Minimum

Minimum
Pascal - Konsolowe

Program: wskazujący najmniejszą liczbę z 3 wprowadzonych.

Po wcześniejszym podaniu liczb przez użytkownika. Program wykorzystuje dodatkową zmienną do znalezienia wartości minimalnej.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program minimum;
uses Crt;
var a,b,c,d,min:integer;
begin
     clrscr;
     min:=10000;
     writeln('Podaj trzy liczby');
     write('a= ');
     readln(a);
     write('b= ');
     readln(b);
     write('c= ');
     readln(c);
     if c<min then min:=c else min:=min;
     if b<min then min:=b else min:=min;
     if a<min then min:=a else min:=min;
     if a=b then
     if b=c then
     if a=c then write(' a,b,c są równe') else;
     if a=b then write(' a i b są równe') else;
     if b=c then write(' b i c są równe') else;
     if a=c then write(' a i c są równe');
     writeln('Najmniejsza liczba to: ',min);
     readln;
end.