Массивы данных и их применение в Turbo Pascal

Федеральное агентство по образованию

Государственное образовательное  учреждение высшего профессионального  образования 

Уфимский государственный университет 

 

 

 

 

 

 

 

 

 

 

 

 

 

Отчёт по лабораторной работе №4

«Массивы данных и их применение в Turbo Pascal»

 

 

 

 

 

 

 

 

 

 

 

 

Выполнила:

Студент гр.

Проверил:

 

 

 

 

 

 

 

 

 

 

 

 

                                                                            Уфа 2012

Цель работы

Изучить способы обработки массивов данных в языке программирования Pascal.

Задание:6.2. Варианты заданий с использованием двумерных массивов

Дана квадратная целочисленная  матрица размера 6х6. Заменить нулями элементы матрицы, лежащие выше главной  диагонали.

 

uses crt;

var a:array[1..100,1..100] of integer;

i,j,n:integer;

begin

ClrScr;

Randomize;

Write('n=');

Readln(n);

for i:=1 to 6 do

begin

for j:=1 to 6 do

begin

a[i,j]:=random(20)-10;

Write(a[i,j]:4);

end;

Writeln;

end;

Writeln;

for i:=1 to 6 do

begin

for j:=1 to 6 do

begin

if i<j then

a[i,j]:=0;

Write(a[i,j]:4);

end;

Writeln;

end;

Readln;

end.

 

 

Блок схема:

Задание 2:Варианты заданий с использованием одномерных массивов

 

Дан одномерный массив из 10 элементов. Подсчитать количество его элементов, кратных 3.

Решение:

uses crt;

const n=10;

var

a: array[1..n] of integer;

i,p: integer;

begin

clrscr;

randomize;

writeln('Исходный массив:');

for i := 1 to n do

begin

a[i] := Random(25);

write(a[i]:4);

end;

begin

for i:=1 to n do

begin

readln(a[i]);

if (a[i] mod 5=0) then inc(p);

end;

writeln('количество кратных 3 = ',p);

end;

end.

 

Блок схема: