Текст программы на языке Паскаль

Program Example_21;

Var  i, j, n, m, k : integer; S : real;

A : array [1..10,1..10] of real;

F : text;

Begin

write(‘Задайте число строк матрицы N = ‘);

read(n);

write(‘Задайте число столбцов матрицы М = ‘);

read(m);

writeln(‘Исходная матрица:’);

Assign(F, ‘E:\data.txt’);

Reset(F);

For i:=1 to n do begin

For j:=1 to m do begin

read(F, A[i, j]); write(A[i, j]:7:2) end;

readln(F); writeln end;

close(F);

k := 0;

For j:=1 to m do begin

S := 0;

For i:=1 to n do

S := S + A[i, j];

For i:=1 to n do 

if odd(i+j) and (A[i, j] < S - A[i, j]) then k := k + 1

end;

Assign(F, ‘E:\result.txt’);

Rewrite(F);

writeln(F, ‘В заданной матрице искомых элементов k = ‘, k);

close(F);

writeln(‘В заданной матрице искомых элементов k = ‘, k);

readln

end.

Данные для тестирования

Пусть в файле E:\data.txt хранятся следующие данные:

-11 2 13 4 15 6

7 -30 8 -1 9 12

11 -3 0 -2 50 -5

-9 16  20 5 -7 -20

17 -4 21 -6 22 -8

-7 18 -2 -15 1 -9

1) Для N = 4, M = 6

ð Исходная матрица:

-11.00   2.00 13.00    4.00 15.00    6.00

 7.00 -30.00   8.00 -1.00    9.00 12.00

11.00   -3.00    0.00  -2.00 50.00   -5.00

-9.00 16.00   20.00    5.00 -7.00 -20.00

В заданной матрице искомых элементов k = 8

Список литературы

Основная литература

1 Епанишников А., Епанишников В. Программирование в среде Turbo Pascal 7.0. - М.: “ДИАЛОГ-МИФИ”, 1993.-288с.

2 Культин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi –СПб: БХВ-Петербург, 2000.-416 с.: ил

3 Культин Н.Б. Turbo Pascal в задачах и примерах –СПб: БХВ-Петербург, 2000.-256 с.: ил.

4 Турбо Паскаль 7.0 - К.: Торгово-издательское бюро BHV, 1996.-480 с.: ил.

5 Фаронов В.В. Турбо Паскаль. В 3 кн. Кн.1. - М.: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДАКТИК",1992.-304 с.: ил.

Дополнительная литература

1 Абрамов С.А., Гнездилова Г.Г., Капустина Е.Н., Селюн М.И.. Задачи по программированию - М.: Наука, 1988. - 224 с.

2 Вьюкова Н.И., Галатенко В.А., Ходулев А.Б. Систематический подход к программированию/ под ред. Ю.М. Баяковского.-М.: Наука, 1993.-208с.

3 Гловацкая А.П. Методы и алгоритмы вычислительной математики. Учеб. пособие. –М.: Радио и связь, 1999.- 408 с.

4 Докукина Т.К. Программирование и алгоритмические языки. - М.: Машиностроение, 1993. - 496 с.:ил

5 Зуев Е.А. Язык программирования Turbo Pascal 6.0, 7.0/ - М.: Веста, Радио и связь, 1993. -384с.:ил.

6 Пильщиков В.Н. Сборник упражнений по языку Паскаль: Учеб. пособие для вузов. - Наука. 1989. - 160 с.

7 Прайс Д. Программирование на языке Паскаль. Пер. с англ. - М.: Мир, 1987. - 232 с.

8 Программное обеспечение микроЭВМ. В 11 кн. Кн. 7. Программирование на языке Паскаль. /Шаньгин В.Ф., Поддубная Л.М., Голубев-Новожилов Ю.С.; Под ред. В.Ф. Шаньгина.- М.: Высшая школа, 1988. - 125 с.

9 Фаронов В.В. Турбо Паскаль. В 3 кн. Кн.3. Практика программирования. Часть 1. - М.: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДАКТИК",1993.-256 с.: ил.

10 Фаронов В.В. Турбо Паскаль. В 3 кн. Кн.3. Практика прграммирования . Часть 2. - М.: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДАКТИК",1993.-304 с.: ил.

11 Форсайт Р.  Паскаль для всех. Пер. с англ. - М.: Машиностроение,1986. - 288 с.: ил.

12 Электронные вычислительные машины: в 8-ми кн.: Учебное пособие для вузов. Кн.5. Алексеев В.Е., Ваулин Л.С. Языки программирования. - М. Высшая школа, 1987. - 143 с.: ил.

Методические пособия

1 Николаев Н. А. Основы программирования в системе Turbo Pascal 7.0. Учебно-методическое пособие по курсам:«Информатика», «Программирование и алгоритмизация».- Новоуральск, НПИ, 2000, -69 с..

2 Николаев Н. А. Работа с графикой в системе Turbo Pascal. Методическое пособие по курсу «Программирование на языках высокого уровня» для студентов специальности 230102 дневной формы обучения. Новоуральск, НГТИ, 2006, -48 с

3 Николаев Н.А. Сборник заданий по программированию. Часть 1. - Методическое пособие по курсам: "Программирование на языке высокого уровня", "Программирование и основы алгоритмизация", "Информатика" для студентов всех специальностей очной и очно-заочной форм обучения., Новоуральск, НГТИ, 2007, 52 с.

4 Орлова И. В. Основы работы в интегрированной среде Турбо Паскаль 7.0. Учебно-методическое пособие по курсу «Информатика» для всех специальностей. Новоуральск, НПИ, 2001, -43 с.

УДК 681.3.06

Автор:                                                           Орлова Ирина Викторовна

ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ.

Часть 1.

Учебно-методическое пособие по курсам «Информатика»,
«Программирование и основы алгоритмизации»,
«Программирование на языках высокого уровня»
для студентов всех специальностей очной формы обучения

Новоуральск, НТИ НИЯУ МИФИ,  2010, 56 с.

Сдано в печать                                     Формат А5                         Бумага писчая

Печать плоская                                     Уч.-изд.л. 1                          Тираж 10 экз.

Заказ   Издательство НТИ   Лицензия ИД № 00751. г.Новоуральск, Ленина, 85.