Zad 1
W wyznaczonym (…) miejscu programu wpisać jakie wartości będą miały zmienne: x,y,z,
Program test;
Var: x,y,z: Word;
Procedure: liczy (a:Word; var: b,c: word;);
Var: z:word;
Begin
Repeat
a:=a+1; b:=c+a; c:=b+a;
until b>5;
end;
begin
x:= 1; y:=2; z:=3;
licz(x,y,z);
{x=…1 y=10… z=13…}
End.
Zad 2
Napisać ciąg instrukcji, który realizuje następujące zadanie:
W zależności od wartości zmiennej a typu Word, należy nadać wartość zmiennej b typu Byte, wg następujących zasad:
Jeżeli a jest z zakresu od 1 do 5 b=1
Jeżeli a jest z zakresu od 10 do 20 b=2
Jeżeli a jest większe od 40 b=3
Należy zwrócić uwagę, że w pewnych przypadkach zmienna b nie jest określona.
Zadanie należy zrealizować przy wykorzystaniu instrukcji wyboru case.
var
a: Word;
b: Byte;
begin
Writeln ('podaj wartosc a');
Readln (a);
case a of
1..5: b := 1;
10..20: b := 2;
6..9, 21..39: writeln ('wartosc nie okreslona');
else
b:= 3;
end;
writeln(b);
readln;
end.
Zad 3
Poniższą instrukcję zapisać przy pomocy instrukcji iteracyjnej While
For i:=5 to 25 do Write (i*i)
var i: Byte;
begin
i:=5;
while (i<=25) do
begin
writeln (i*i);
i:=i+1;
end;
readln;
end.
Zad 4
Napisać definicje funkcji C zwracającej wartość A+B
A i B są typu Real
Dane należy przekazać do funkcji za pomocą parametrów formalnych.
Var A, B, suma: real;
Function C( A,B: real): real;
Begin
C:=A+B;
End;
begin
Writeln('Podaj A '); Readln(A);
Writeln('Podaj B '); Readln(B);
suma:=C(A,B);
Writeln('Suma=',suma:0:5);
Readln;
end.
Zad 5
Dany jest 30-elementowy wektor W liczb rzeczywistych. Napisać program, którego zadaniem jest obliczenie sumy elementów tego wektora.
type wektor=Array[1..30] of real;
var
suma: real;
c:wektor;
i: byte;
Begin
for i :=1 to 30 do
begin
writeln('podej elem wektora');
readln(c[i]);
end;
suma:=0;
for i:=1to 30 do
suma:= suma+c[i];
writeln('suma');
writeln(suma);
readln;
end.
Zad 6
Do pliku tekstowego X.txt zapisać (w kolumnie) liczby całkowite z zakresu od 10 do 200.
Var t: text;
I: integer;
Begin
Assign (t, ‘x.txt’)
Rewrite (t);
For i:=10 to 200 do
Writeln(i);
Writeln(t,i);
Close(t);
Readln;
End.