Студопедия КАТЕГОРИИ: АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Текст программы на языке Паскаль ⇐ ПредыдущаяСтр 10 из 10
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. |
||
Последнее изменение этой страницы: 2018-04-12; просмотров: 459. stydopedya.ru не претендует на авторское право материалов, которые вылажены, но предоставляет бесплатный доступ к ним. В случае нарушения авторского права или персональных данных напишите сюда... |