Pascal - Konsolowe

Liczby dodatnie

Liczby dodatnie
Pascal - Konsolowe

Program: sprawdzający czy podana liczba jest dodania czy ujemna.

Użytkownik tak długo podaje liczby, aż zostanie podana liczba dodatnia – wtedy program przerywa swoją pracę.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program dodatni;
uses crt;
var i:real;
begin
	clrscr;
	writeln('Program podający liczby dodatnie');
	repeat
   	writeln('Podaj jedną liczbe');
   	readln(i);
   	if(i<=0) then writeln ('Podana liczba jest błędna');
	until(i>0);
	writeln( 'Podana liczba jest poprawna');
	readln;
end.