Pascal - Konsolowe

Działania na tablicy

Działania na tablicy
Pascal - Konsolowe

Program: losujący tablice a następnie dokonującym przekształcenia.

Program losuje tablicę dwuwymiarową o wymiarze 4×4, losuje do niej wartości, po czym dokonuje dwóch przekształceń:

  • z wartościami podzielonymi przez 2,
  • z wartościami podniesionymi do kwadratu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tablice;
uses crt;
const k=4;
const w=4;

var  i,j : integer;
     tab1: array[1..w,1..k] of integer;
     tab2: array[1..w,1..k] of real;
     tab3: array[1..w,1..k] of real;
begin
clrscr;
textcolor(white);
 randomize;
   for i:=1 to w do
    for j:=1 to k do
    begin
    tab1[i,j]:=random(16)+1;
    tab2[i,j]:=tab1[i,j]/2;
    tab3[i,j]:=tab2[i,j]*tab2[i,j];
    end;
writeln('Tablica z losowymi liczbami z zakresu od 1 do 16');
writeln;
for i:=1 to w do
 begin
 for j:=1 to k do
  write(tab1[i,j]:6);writeln;
 end;
 writeln;
 writeln('Tablica z wartościami z pierwszej tablicy podzielonymi przez 2');
 writeln;
 for i:=1 to w do
  begin
  for j:=1 to k do
  write(tab2[i,j]:6:2);writeln;
  end;
  writeln;
  writeln('Tablica z wartościami z drugiej tablicy podniesinymi do kwadratu');
  writeln;

  for i:=1 to w do
    begin
      for j:=1 to k do
      write(tab3[i,j]:6:2);writeln;
    end;
readln;
end.