Greif
Administrator
Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Piotrowice k.Oświęcimia
|
Wysłany: Nie 21:16, 21 Sty 2007 Temat postu: Kolokwium grupy 1 - odpowiedzi już są |
|
|
Ostateczne wersje odpowiedzi, zerknijcie jeszcze, czy wszystko gra.
A1
Kod: | var x:integer; {całkowita}
lancuch:string[30]; {łańcuchowa}
a:array[0..n]of real {tablicowa} |
A2
Kod: | if zn='!' then writeln(‘Koniec zdania’);
end. |
A3
Kod: | begin
for i:=1 to 10 do
begin
write(‘podaj element’,i,’tablicy’);
readln(x[i]);
end;
end. |
A4
Wynik:
Cytat: | 1
4
9
16
25
36
49
64
81
|
i program sprawdzający:
Kod: | Program petla;
var j:integer;
begin
j:=1;
while j<10 do
begin
writeln(j*j);
j:=j+1;
end;
readln;
end. |
A5
Kod: | function row_lin (z:real):real;
begin
y:=2*z*z+5;
end; |
B1
Kod: | var
zmienna1:real;
zmienna2:string[15];
zmienna3:array[1..100] of integer; |
B2
Kod: | if a=0 then
writeln(‘brak rozwiązania’)
else
x:=(-1*b)/a; |
B3
Kod: | var i:integer;
a:array[1..10] of string [30];
begin
for i:=1 to 10 do
readln(a[i]);
end. |
B4
B5
Kod: | function y(z:real):real;
begin
y:=3*z*z*z*z+7
end; |
Zapraszam do ankiety
Post został pochwalony 0 razy
|
|