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:17, 21 Sty 2007 Temat postu: Kolokwium grupy 2 - odpowiedzi już są |
|
|
Ostateczne wersje odpowiedzi, zerknijcie jeszcze, czy wszystko gra.
A1
Kod: | type
ksiazka=rekord
imie:string[20];
nazwisko: string[30];
tytul:string[50];
rok_wydania:integer;
end;
katalog = array[1..100] of ksiazka;
var
zmienna1:katalog;
zmienna2:string[15]; |
A2
Wynik:
Program sprawdzający:
Kod: | Program petla_for;
var s,n,k:integer;
begin
s:=1;
n:=5;
for k:=1 to n do
s:=s*k;
writeln(s);
readln;
end. |
A3
Kod: | for i:=1 to 10 then writeln(tablica[i]); |
A4
Kod: | if x=1 then
y:=x;
if x=2 then
y:=0; |
A5
Kod: | s:=0;
k:=1;
while k<=n do
begin
s:=s+k;
k:=k+1;
end;
|
B1
Kod: | var
zmienna1:array[1..100] of integer;
zmienna2:string[15];
zmienna3:real; |
B2
Kod: | for i:=1 to 6 then tablica[i]:=’aaaa’; |
B3
Wynik:
Program sprawdzający:
Kod: | program gwiazdek6;
uses crt;
var number:integer;
begin
clrscr;
for number:=1 to 6 do
writeln('*');
readln;
end. |
B4
Kod: | readln(c);
case c of
1:z:=a+b;
2:z:=a-b;
3:z:=a*b;
4:z:=a/b;
else
writeln('tekst');
end;
writeln(z); |
Program sprawdzający działanie:
Kod: | Program case_dzialania;
var a,b,z:real;
c:byte;
begin
write('Podaj a = '); readln(a);
write('Podaj b = '); readln(b);
writeln;
writeln('Wybierz działanie i naciśnij ENTER');
repeat
writeln('[1] Dodawanie');
writeln('[2] Odejmowanie');
writeln('[3] Mnożenie');
writeln('[4] Dzielenie');
readln(c);
case c of
1:z:=a+b;
2:z:=a-b;
3:z:=a*b;
4:begin {można dołożyć warunek}
if b<>0 then z:=a/b
else writeln('Nie wolno dzielić przez zero !!!');
end;
end;
until (c>0) and (c<5);
writeln(z:10:3);
readln;
end. |
Jeszcze jedno rozwiązanie
Kod: | program gr2B4;
var x,a,b:real;
begin
writeln(' wpisz x: ');
readln(x);
if x=1 then
writeln('z=a+b');
if x=2 then
writeln('z=a-b');
if x=3 then
writeln('z=a*b');
if x=4 then
writeln('z=a/b');
readln
end.
|
B5
Kod: | function row_lin2B5 (z:real):real;
begin
y:=(3*Sqr(z))+(5*z)-z;
end; |
Zapraszam do ankiety
Post został pochwalony 0 razy
|
|