Текст 8 Nuclear Terrorism

Министерство образования и науки РФ

Кузнецкий институт информационных и управленческих технологий

Филиал ПГУ

Кафедра ЕН и ТД

ОТЧЕТ ПО ЛАБОРАТОРНЫМ РАБОТАМ

По дисциплине

«Информатика»

 

Выполнил: студент гр. 10кр1

Шиняев Н.Н.

Принял: ст.преподователь

Кафедры ЕН и ТД

Мордвинкина М. В.

 

 

Лабораторная работа №7

Подпрограммы

Цель работы: Получить навыки разработки программ с использованием процедур и функций.

Задание:Написать блок-схему и составить программу с использованием подпрограмм для решения задачи о двумерном массиве лабораторной работы №4.

 

 

Приложение Ж (продолжение)

Блок схемы программы №6

Приложение Ж (продолжение)

Листинг программы №6

Program lab4;

uses crt;

Var MAM:array[1..5,1..4] of integer;

Sum:array[1..4] of integer;

m,k,i,j,jmin:integer;

Min:longint;

procedure vvod;

Begin { clrscr;}

writeln ('‚Введите число строк и столбцов');

readln(m,k);

writeln ('‚Введите элементы матрицы');

for i:=1 to m do begin

for j:=1 to k do

read (MAM[i,j]); end; end;

procedure vivod;

writeln (' Элементы заполненной матрицы');

for i:=1 to m do

begin

for j:=1 to k do

write(MAM[i,j]);

writeln;

end; end;

procedure summa;

writeln(' Сумма отрицательных элементов в каждом столбце ');

write (' Номера столбцов ');

for j:=1 to k do

write(j,' ');writeln;

write(' Сумма отрицательных элементов в столбце: ');

for j:=1 to k do

begin

Sum[j]:=0;

for i:=1 to m do begin

If MAM[i,j]<0 then

Sum[j]:=Sum[j]+MAM[i,j]; end;

write (Sum[j],'');

end;writeln;

Min:=Sum[j];jmin:=j;

for j:=1 to k do

if Sum[j] <> Min then

begin

Min:=Sum[j];jmin:=j;

end;

writeln (' Минимальная сумма =',Min,' в столбце',jmin);

end;

Begin

clrscr;

vvod;

vivod;

summa;

readkey; end.

Приложение Ж (продолжение)

Результат тестирования программы№4(2)

Текст 8 Nuclear Terrorism

 

Deeply appreciate высоко оценить

To produce выработать

Combat terrorism бороться с терроризмом

On behalf of от лица

Voice the hope выразить надежду

To counteract terrorism противостоять терроризму

hard to overemphasize трудно преоценить

Pressing global problems самые острые(болезненные) пробл

Disconcerting trends тревожные тенденции

Sophisticated technical level of the equipment высокий уровень оснащенности

Reliable and well concealed sources of financing надежные и хорошо скрытые

источники финансирования

Acquiring access to получать доступ к

It is noteworthy примечательно

There is increased awareness of растет осознание того

Weapons of mass destruction оружие массового уничтожения

Work on draft работа над проектом

Give an impetus дать импульс

Academic circles научные круги

Call for призывать

An agreed upon draft согласованный поект

Covered by попадающий под действие

Is not intended to не имеет целью

Law enforcement agencies правоохранительные органы

Legal assistance правовая помощь

Promote способствовать

Designed to имеющий целью