program zadanie3l6; var T: array [1..10] of integer; i: integer; L: integer; begin i := 1; repeat write(' Wprowadz liczbe z zakresu <-100;250>: '); readln(L); if (L >= -100) and (L <= 250) then begin T[i] := L; writeln('Wpisano na pozycję nr ', i); Inc(i); end else begin writeln('Liczba ', L, ' jest poza zakresem!'); end; until i > 10; readln(); end. |
|---|
program zadanie_4l6;
var
T: array [1..20] of real;
i, j: integer;
begin
for i:= 1 to 20 do
begin
write(' Wprowadz ', i, ' ocene: ');
readln(T[i]);
end;
write('4.0 lub 4.5 sa na pozycjach: ');
for i:= 1 to 20 do
if (T[i] = 4) or (T[i] = 4.5) then
write(i, ' ');
writeln();
write('Trzy pierwsze piatki znajduja sie na pozycjach: ');
i := 1;
j := 0;
while (i <= 20) and (j < 3) do
begin
if (T[i] = 5) then
begin
write(i, ' ');
Inc(j); {j jest do zliczania ocen=5. INC w pascalu zwieksza wartość o +1.}
end;
Inc(i);
end;
writeln();
readln();
end.
program zadanie_6;
var
TR: array[3001..3007] of real;
TD: array[1..7] of integer;
i, j: integer;
begin
TR[3001]:= 5200.5;
TR[3002]:= -215.2;
TR[3003]:= -34;
TR[3004]:= 1783.69;
TR[3005]:= 0;
TR[3006]:= -17.89;
TR[3007]:= 4270.45;
for i:= 3001 to 3007 do
begin
if (TR[i] < 0) then
begin
j:= j + 1;
TD[j] := i;
end;
writeln('Konto:', i, ' ma stan: ', TR[i]:0:2);
end;
write('Konta debetowe: ');
for i:=1 to j do
write(TD[i], ', ');
readln();
end.
program bank;
uses crt;
var
kasa : integer;
Begin
clrscr;
write('Podaj kwote jakĄ mam rozmienic (zl): ');
readln(kasa);
writeln;
writeln('Liczba banknotow 100 zl: ',kasa div 100);
kasa := kasa mod 100;
writeln('Liczba banknotow 50 zl: ', kasa div 50);
kasa := kasa mod 50;
writeln('Liczba banknotow 20 zl: ', kasa div 20);
kasa := kasa mod 20;
writeln('Liczba banknotow 10 zl: ', kasa div 10);
kasa := kasa mod 10;
writeln('Liczba monet 5 zl: ', kasa div 5);
kasa := kasa mod 5;
writeln('Liczba monet 2 zl: ', kasa div 2);
kasa := kasa mod 2;
writeln('Liczba monet 1 zl: ', kasa);
readln;
End.
LISTA 7
program zad1L7;
procedure Liczby(xp,xk:integer);
var i:integer;
begin
if xp<xk then
begin
for i:=xp to xk do writeln(i);
end;
if xp>xk then
begin
for i:=xp downto xk do writeln(i);
end;
if xk=xp then writeln('Liczby sa rowne');
readln;
end;
begin
Liczby(2,25)
end.
program Lista7_zad2;
var liczba: real;
function wart_bezwzgl (x: real): real;
begin
if x<0 then wart_bezwzgl:= -x
else
wart_bezwzgl:= x
end;
begin
readln (liczba);
writeln (wart_bezwzgl(liczba):0:2);
readln();
end.