Klasa W06A :: Przegląd tematu

Gość · Wysłany: Śro 0:35, 02 Sty 2008 Temat postu: PASCAL

CZY WIE KTOS Z WAS CO TO ROBI

1)
var tabliczka: array{1..10] of byte;
licznik: byte;
begin;
for licznik:=1 to 10 do
begin
writeln<’podaj liczbę do tablicy’>;
readln<tabliczka[licznik]>;
end;
end.

2)
var tabliczka: array{1..10] of byte;
licznik: byte;
begin;
for licznik:=1 to 10 do
begin
writeln(‘podaj liczbę do tablicy”);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 10 do
begin
write(tabliczka(licznik],’ ‘);
end;
end.

3)

var tabliczka: arrray[1..10] of byte;
licznik:byte
begin;
for licznik:=1 to 10 do
begin
writeln(‘podaj liczbę do tablicy’);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 10 do tabliczka[licznik]:=tabliczka
[licznik]*5
for licznik:=1 to 10 do
begin
write(tabliczka[licznik],’ ‘);
end;
end.

4)

var tabliczka:array[1..20] of string;
licznik:byte;
begin;
for licznik:=1 to 20 do
begin
writeln(‘podaj liczbę do tablicy’);
readln(tabliczka[licznik]);
end;
for licznik:=1 to 20 do
begin
write(tabliczka[licznik],’ ‘);
end;
end.

5)

uses crt;
var tabliczka:array{1..100] of string;
licznik:byte;
x:char;
begin;
ctrscr;
licznik:=1;
repeat;
writeln(‘wprowadz literę lub cyfrę’);
readln(tabliczka[licznik]);
inc(licznik);
write(‘konczyc już t/n’);
x:=readkey;
until(x=’t’);
clscr;

zapis tablicowy

uses crt
var tablica:array[1..3,1..3]of byte;
licznik1:byte;
licznik2:byte;
begin
clsscr;
for licznik1:=1 to 3 do
for licznik2:=1 to 3 do
begin
writeln(‘podaj liczbę x [‘, licznik1, ‘,’, licznik2, ‘]:’);
readln(tablica[licznik1,licznik2];
end;
for licznik 1:=1 to 3 do;
write(tablica[licznik1,licznik2],’ ‘);
writeln;
end;
end.