Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Программа. a :array [1..p,1..p] of integer; {исходная матрица}
|
|
Program zadacha_4;
const
p=100;
var
a: array [1..p, 1..p] of integer; {исходная матрица}
n, m: integer; {размеры матрицы}
i, j: integer; {счетчики циклов}
max: integer; {максимальный элемент строки}
min: integer; {минимальный элемент строки}
razn: integer; {разность максимального и минимального элементов}
begin
write (‘m=’); readln (m);
write (‘n=’); readln (n);
writeln (‘Матрица’);
for i: =1 to m do
begin
for j: =1 to n do read (a[i, j]);
end;
writeln (‘Разность наибольшего и наименьшего элементов’);
for i: =1 to m do
begin
min: =a[i, 1];
max: =a[i, 1];
for j: =1 to n do
begin
if a[i, j]< min then min: =a[i, j];
if a[i, j]> max then max: =a[i, j];
end;
razn: =max-min;
writeln(‘для ‘, i: 3, ’-й строки равна ‘, razn: 5);
end;
readln;
end.
Пример расчета
m = 4
n = 7
Матрица А:
| -3 | -26 | |||||
| -1 | ||||||
| -8 | ||||||
Разность наибольшего и наименьшего элементов
для 1 – й строки равна 49
для 2 – й строки равна 75
для 3 – й строки равна 95
для 4 – й строки равна 93
Задача 5
Программа
Program zadacha_5;
type
mas=array [1..100] of integer;
var
n, m: word; {данные натуральные числа }
a, b: mas; {данные массивы целых чисел}
i: word; {счетчик цикла}
s: integer; {искомая величина}
function max(c: mas; k: integer);
begin
max: =c[1];
for i: =1 to k do if c[i]> max then max: =c[i];
end;
begin
write(‘n=’); readln(n);
for i: =1 to n do
begin
write(‘a[‘, i: 3, ’]=’); readln(a[i]);
end;
write(‘m=’); readln(m);
for i: =1 to m do
begin
write(‘b[‘, i: 3, ’]=’); readln(b[i]);
end;
s: =1+sqr(max(a, n))+sqr(max(b, m));
writeln(‘Искомая величина=’, s: 10);
end.
Пример расчета
n = 5
a [ 1 ] = 2
a [ 2 ] = -6
a [ 3 ] = 10
a [ 4 ] = -15
a [ 5 ] = 8
m = 6
b [ 1 ] = -3
b [ 2 ] = -100
b [ 3 ] = 25
b [ 4 ] = 13
b [ 5 ] = 7
b [ 6 ] = 1
Искомая величина = 725
Список литературы
1. Информатика. Базовый курс/Симонович С. В. и др. – СПб.: ”Питер”, 2000.
2. Турбо Паскаль 7.0. – К.: BHV, 2000.
3. Культин Н. Б. Turbo Pascal в задачах и примерах. – СПб.: БХВ, 2000.
Содержание
1.Основы алгоритмизации.......................................... 3
1.1. Этапы решения задач с помощью компьютера...................3
1.2. Алгоритм: определение и свойства............................ 3
1.3. Запись алгоритма в виде блок-схем............................3
1.4. Основные типы вычислительных алгоритмов................... 5
2. Основы программирования на Паскале.............................7
2.1. Основные элементы языка................................... 7
2.2. Типы данных..............................................11
2.3. Программирование линейных вычислительных процессов....... 13
2.4. Организация программ разветвляющейся структуры............ 15
2.5. Организация программ циклической структуры................ 18
2.6. Подпрограммы............................................ 22
3. Задачи для контрольной работы..................................25
4. Примеры решения задач......................................... 30
Список литературы............................................. 36
Редактор В. Л. Родичева
Подписано в печать 22.04.02. Формат 
. Бумага писчая. Печать плоская. Усл. печ. л. 2, 09. Уч. - изд. л. 2, 32. Тираж 250 экз. Заказ
Ивановский государственный химико-технологический университет
153460, г. Иваново, пр. Ф. Энгельса, 7.
|
|