Koszt przejazdu
uses crt;
var
a,b,c,koszt:real;
begin
clrscr;
writeln('program obliczajacy koszt 1km jazdy samochodem');
writeln('wprowadz dlugosc trasy');
readln(a);
writeln('wprowadz spalanie');
readln(b);
writeln('wprowadz cene paliwa');
readln(c);
koszt:=(a*b*c)/100;
writeln('KOSZT WYNOSI',
koszt:0:2);
readln;
end.
Kolejność rosnąca
USES CRT;
VAR A,B,C,MIN,MAX:INTEGER;
BEGIN
CLRSCR;
WRITELN('USTAWIA W KOLEJNOSCI ROSNACEJ');
WRITELN('WPROWADZ 3 LICZBY');
READLN(A,B,C);
IF A>B THEN
BEGIN
MIN:=B;
MAX:=A;
END
ELSE
BEGIN
MIN:=A;
MAX:=B;
END;
IF C<MIN THEN
WRITELN(C,' ',MIN,' ',MAX)
ELSE
IF C<MAX THEN
WRITELN(MIN,' ',C,' ',MAX)
ELSE
WRITELN(MIN,' ',MAX,' ',C);
READKEY;
END.
Liczby od 1 do 20
USES CRT;
VAR
I:INTEGER;
BEGIN
CLRSCR;
I:=1;
WHILE I<=20
DO
BEGIN
WRITELN(I);
I:=I+1;
END;
READKEY;
END.
Liczby od 100 do 1
USES CRT;
VAR
I:INTEGER;
BEGIN
CLRSCR;
I:=100;
WHILE 1<=I
DO
BEGIN
WRITELN(I);
I:=I-1;
END;
READKEY;
END.
Najmniejsza z liczb
PROGRAM mniejsza;
USES CRT;
VAR
A,B,C,X,MIN:INTEGER;
BEGIN
CLRSCR;
WRITELN('WPROWADZ PIERWSZA LICZBA');
READLN(A);
WRITELN('WPROWADZ DRUGA LICZBA');
READLN(B);
WRITELN('WPROWADZ TRZECIA LICZBA');
READLN(C);
IF A>B THEN MIN:=B
ELSE MIN:=A;
IF MIN>C THEN MIN:=C;
WRITELN('NAJMNIEJSZA Z LICZB ',A,' I ',B,' I ',C,' TO ',MIN);
READKEY;
END.
Pierwiastki trójmianu
USES CRT;
VAR
A,B,C,X,X1,X2,D:REAL;
BEGIN
CLRSCR;
WRITELN('PODAJ WSPOLCZYNNIKI TROJMIANU');
READLN(A,B,C);
D:=SQR(B)-(4*A*C);
IF D>0 THEN
BEGIN
X1:=(-B-SQRT(D))/(2*A);
X2:=(-B+SQRT(D))/(2*A);
WRITELN('2 PIERWIASTKI');
WRITELN(X1:0:2);
WRITELN(X2:0:2);
END;
IF D=0 THEN
BEGIN
X:=(-B)/(2*A);
WRITELN('1 PIERWIASTEK');
WRITELN(X:0:2);
END;
IF D<0 THEN WRITE('BRAK ROZW.');
READKEY;
END.
Średnia liczb
uses crt;
var
a,b,c,srednia:real;
begin
clrscr;
write('program obliczajacy srednia arytmetyczna 3 liczb');
writeln('wprowadz 1 liczba');
readln(a);
writeln('wprowadz 2 liczba');
readln(b);
writeln('wprowadz 3 liczba');
readln(c);
writeln('wynik');
srednia:=(a+b+c)/3;
writeln(srednia:0:2);
readln;
end.
Suma
PROGRAM suma;
USES CRT;
VAR
a,b,s: integer;
BEGIN
CLRSCR;
WRITELN('WPROWADZ PIERWSZA LICZBE');
READLN(a);
WRITELN('WPROWADZ DRUGA LICZBE');
READLN(b);
WRITELN('WYNIK');
s:=a+b;
WRITE(s);
READLN;
END.
Największa z liczb
PROGRAM wieksza;
USES CRT;
VAR
A,B:INTEGER;
BEGIN
CLRSCR;
WRITELN('WPROWADZ PIERWSZA LICZBA');
READLN(A);
WRITELN('WPROWADZ DRUGA LICZBA');
READLN(B);
IF A>B THEN
WRITELN('WIEKSZA LICZBA Z ',A,' I ',B,' JEST LICZBA ',A)
ELSE
WRITELN('WIEKSZA LICZBA Z ',A,' I ',B,' JEST LICZBA ',B);
READKEY;
END.
Tabliczka mnożenia
USES CRT;
VAR
X,B,A:INTEGER;
BEGIN
CLRSCR;
A:=2;
X:=5;
WHILE A<33 DO
BEGIN
A:=A+1;
B:=X*A;
WRITELN(X, '*' ,A,'=',B);
END;
READLN;
END.
Suma 10 kolejnych liczb Sposób 1
USES CRT;
VAR
S,I:INTEGER;
BEGIN
CLRSCR;
S:=0;
I:=1;
WHILE I<=10 DO
BEGIN
S:=S+I;
I:=I+1;
END;
WRITELN('SUMA WYNOSI');
WRITE(S);
READKEY;
END.
Suma 10 kolejnych liczb Sposób 2
USES CRT;
VAR
S,I:INTEGER;
BEGIN
CLRSCR;
S:=0;
I:=1;
REPEAT
S:=S+I;
I:=I+1;
UNTIL I>10;
WRITELN('SUMA WYNOSI');
WRITE(S);
READKEY;
END.
Suma 20 kolejnych liczb parzystych
USES CRT;
VAR
S,I,P:INTEGER;
BEGIN
CLRSCR;
S:=0;
I:=1;
P:=2;
WHILE I<=20 DO
BEGIN
S:=S+P;
I:=I+1;
P:=P+2;
END;
WRITELN('SUMA WYNOSI');
WRITE(S);
READKEY;
END.
Ciąg Sposób 1
USES CRT;
VAR
A1,N,R,X:INTEGER;
BEGIN
CLRSCR;
X:=0;
WRITELN('1. WPROWADZ WARTOSC 1. ELEMENTU CIAGU');
WRITELN('2. WPROWADZ ILOSC ELEMENTOW CIAGU');
WRITELN('3. WPROWADZ ROZNICE MIEDZY ELEMENTAMI');
READLN(A1,N,R);
WHILE X<N DO
BEGIN
WRITELN(A1);
X:=X+1;
A1:=A1+R;
END;
READLN;
END.
Ciąg sposób 2
USES CRT;
VAR
A1,N,R,X:INTEGER;
BEGIN
CLRSCR;
X:=0;
WRITELN('1. WPROWADZ WARTOSC 1. ELEMENTU CIAGU');
WRITELN('2. WPROWADZ ILOSC ELEMENTOW CIAGU');
WRITELN('3. WPROWADZ ROZNICE MIEDZY ELEMENTAMI');
READLN(A1,N,R);
REPEAT
WRITELN(A1);
X:=X+1;
A1:=A1+R;
UNTIL X>N;
READLN;
END.
Generator 10 liczb losowych (1,100)
USES CRT;
VAR
X,I:INTEGER;
BEGIN
CLRSCR;
I:=1;
RANDOMIZE;
WHILE I<=10 DO
BEGIN
X:=1+RANDOM(99);
WRITELN(X);
I:=I+1;
END;
READKEY;
END.
Generator 10 liczb losowych (1,100) z warunkiem ponawiania
USES CRT;
VAR
X,I:INTEGER;
A:CHAR;
BEGIN
CLRSCR;
REPEAT
I:=1;
RANDOMIZE;
WHILE I<=10 DO
BEGIN
X:=1+RANDOM(100);
WRITELN(X);
I:=I+1;
END;
WRITELN('PONOWNE LOSOWANIE t/n ?');
WRITELN(`(WPROWADZAJ TYLKO MALE LITERY)');
READLN(A);
UNTIL A='n';
READKEY;
END.