TEMAT ĆWICZENIA DZIAŁANIA W TABLICACH
Pierwszy program stanowi „wprowadzenie do
obliczeń w tablicach”, w prosty sposób ukazuje zasadę tworzenia i działania
tabliczki mnożenia
PROGRAM
tab_mnoz; { Tabliczka mnożenia w zakresie od 1 do 100}
Uses
Crt;
var
i, j : Integer; { 2 liczby do mnożenia - jednocześnie liczniki w pętlach
FOR-TO-DO }
begin
ClrScr;
for i:=1 to 10 do
begin
for j:=1 to 10 do write(i*j:5); { pokaż jeden wiersz – wszystkie iloczyny dla ustalonej
wartości 'i' i
zmieniającej się wartości
'j'}
writeln; { przejdź do nowego
wiersza }
end;
readln;
end.
Zadanie wylosować losowo dwadzieścia liczb i wydrukować je
Program los_20;
USES crt;
VAR
B,i,n,zam:byte;
a:ARRAY [1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
writeln;{Program wylosował i wypisali
dwadzieścia liczb}
FOR
n:=1 TO 19 DO
BEGIN
FOR i:=1 TO 20-n DO
BEGIN
IF (a[i] > a[i+1]) THEN
BEGIN
B:= a[i];
a[i]:=a[i+1];
a[i+1]:=B;
END
END;
END;
FOR
i:=1 TO 20 DO
write(a[i]:4);
readln
END.
Program mniej20;
USES crt;
VAR
B,i,n,zam:byte;
a:ARRAY [1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
writeln;{Program wylosował i wypisał
dwadzieścia liczb}
FOR
n:=1 TO 19 DO
BEGIN
FOR i:=1 TO 20-n DO
BEGIN
IF (a[i] > 20) THEN
BEGIN
B:= a[i];
a[i]:=a[i+1];
a[i+1]:=B;
END
END;
END;
FOR
i:=1 TO 20 DO
write(a[i]:4);
readln
END.
A
teraz zadanie do wykonania obliczyć wartość średnią z wylosowanych liczb I
wypisać osobno liczby mniejsze od średniej i osobno większe od średniej
Program
srednia;
USES crt;
VAR
B,i,n,suma,srednia:integer;
a:ARRAY[1..100] OF integer;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
suma:=0;
FOR
i:=1 TO 20 DO
suma:=suma+(a[i]);
srednia:=suma DIV 20;
writeln;
writeln('Srednia liczba to: ',srednia);
write('Liczby mniejsze od sredniej to ');
FOR
I: =1 TO 20 DOES
IF
a[I]<=srednia THEN write(a[i]:3);
writeln;
write('a wieksze to ');
FOR
i:=1 TO 20 DO
IF
a[i]>srednia THEN write(a[i]:3);
readln
End.
Program Losuje_20_liczb_i_przepisuje_je_rosnaco;
Program
rosnace;
USES crt;
VAR
B,i,n,zam:byte;
a:ARRAY [1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
writeln;{Program wylosował i wypisał
dwadzieścia liczb}
FOR
n:=1 TO 19 DO
BEGIN
FOR i:=1 TO 20-n DO
BEGIN
IF (a[i] > a[i+1]) THEN
BEGIN
B:= a[i];
a[i]:=a[i+1];
a[i+1]:=B;
END
END;
END;
FOR
i:=1 TO 20 DO
write(a[i]:4);
readln
END.
Program
Losuje_20_liczb_i_przepisuje_je_tak_ze_najpierw_sa_mniejsze_od_20;
Program mniejwiec;
USES crt;
VAR
B,i,n,zam:byte;
a:ARRAY [1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
writeln;{Program wylosował i wypisał
dwadzieścia liczb}
FOR
n:=1 TO 19 DO
BEGIN
FOR i:=1 TO 20-n DO
BEGIN
IF (a[i] > 20) THEN
BEGIN
B:= a[i];
a[i]:=a[i+1];
a[i+1]:=B;
END
END;
END;
FOR
i:=1 TO 20 DO
write(a[i]:4);
readln
END.
PROGRAM
Losuje_20_liczb_ze_100_i_podaje_ich_sume;
USES crt;
VAR
i,suma:integer;
a:ARRAY[1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
suma:=0;
FOR
i:=1 TO 20 DO
suma:=suma+(a[i]);
writeln;
writeln('Suma 20 elementów wybranych losowo
równa się ',suma);
readln
END.
Oto
kolejne zadanie wylosuj losowa 20 I policz ich sumę
PROGRAM
suma_20;
USES crt;
VAR
i,suma:integer;
a:ARRAY[1..100] OF byte;
BEGIN
clrscr;
Randomize;
FOR
i:=1 TO 20 DO
BEGIN
a[i]:=random(100);
write(a[i]:4);
END;
suma:=0;
FOR
i:=1 TO 20 DO
suma:=suma+(a[i]);
writeln;
writeln('Suma 20 elementów wybranych losowo
równa się ',suma);
readln
END.
Po tej części pisania programów życzę uczniom
PSP miłego czasu do dnia 19.01.2002 kiedy trzeba będzie się wykazać znajomością
programowania sukcesów w pokonywaniu
trudności