Категория
Информатика
Тип
лабораторная работа
Страницы
2 стр.
Дата
27.07.2013
Формат файла
.doc — Microsoft Word
Архив
838080.zip — 16.7 kb
  • modulnoe-programmirovanie-5_838080_1.doc — 36.5 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ








Лабораторная работа №3 по дисциплине «Информатика и программирование»




Москва, 2010





« Модульное программирование».
Задание:

А)   Оформить в виде
  основной программы и процедуры (функции) с параметрами программу,
  выполняющую обработку матрицы
  в соответствии с заданием лабораторной работы №2.

В)
 
 Оформить в виде модуля
  программу, выполняющую обработку матрицы
  в соответствии с заданием лабораторной работы №2.

Решение :
UNIT PAL;

INTERFACE

TYPE masdva = array [1..20, 1..20] of integer;

masodin = array [1..20] of integer;

Procedure PALINDROM (MAS: mat; R: integer; VAR T: integer; VAR U: maso; VAR V: integer);

IMPLEMENTATION

Procedure PALINDROM;

Var h, i, l, f: integer;

d: string [10];

Begin

h:=1;

For i:=1 to R do

Begin

l:=1;

Str (MAS[i,V], d);

For f:=1 to length(d) div 2 do

If d[f]=d[length(d)+1-f]

Then l:=l*1

Else l:=l*0;

If l>0

Then h:=h*1

Else h:=h*0;

End;

If h>0

Then

Begin

T:=T+1;

U[T]:=V;

End;

End;

END.




Ваше мнение



CAPTCHA