ВСЕ ОТЛИЧНО
Информация о работе
Подробнее о работе
Лабораторные работы Pascal
- 150 страниц
- 2012 год
- 931 просмотр
- 0 покупок
Гарантия сервиса Автор24
Уникальность не ниже 50%
Фрагменты работ
Пример условий задач
1. Ввести одномерный целочисленный массив A, вывести его. В массиве отсортировать по возрастанию все элементы предшествующие максимальному.
2. Ввести двумерный массив A3×4. Определить в нём сумму элементов, значения которых лежат вне диапазона [-1;5].
3. Ввести двумерный массив AN × M. Все элементы, которые не кратны 4 и стоят в четных строках массива уменьшить на 10. Массив вывести до и после преобразования.
4. Ввести двумерный массив AN × M, вывести его. Если значение суммы элементов его главной диагонали превышает сумму элементов побочной, то квадратом полученной разности заменить отрицательные элементы под побочной диагональю.
5. Ввести целочисленную квадратную матрицу AN × M, вывести ее. Найти сумму элементов в той строке, где произведение элементов максимально.
6. Дважды вычислить значение выражения, первый раз используя процедуру,
а второй – функцию.
7. Ввести двумерные массивы X1N1, X2N2, X2N3. Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов (если оно существует) соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), а также функции IndMax(A,N):byte – поиск индекса максимума и SrAPol(A,N):real – поиск среднего арифметического положительных элементов (равно нулю, если положительных нет)).
Пример листинга:
Листинг программы на Pascal
program ABC;
uses crt;
const Nmass=100;
var A:array[1..Nmass] of integer;
i, j,k, p,N, max, maxmin, poz1,poz2, tmp,z:integer;
begin
ClrScr;
write('Размерность массива:');
readln (N);
writeLn('Введите массив A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
writeln('');
max:=A[1];
for i:=1 to N do
if (A[i]>max) then
begin
max:=A[i];
k:=i; end;
writeln ('Максимальный элемент : ',max,' на позиции ',k);
for i:=1 to k-1 do
begin
for j:=1 to k-i-1 do
if A[j]>A[j+1] then
begin
tmp:=A[j];
A[j]:=A[j+1];
A[j+1]:=tmp;
end;
end;
writeln('');
for i:=1 to N do begin
writeln('A[',i,']=',A[i]);
end; readln; end.
Решенные задачи по темам:
«Циклические перестановки в одномерных массивах»
«Двумерные массивы»
«Обработка двумерных массивов по строкам и столбцам»
«Подпрограммы»
Программы написаны на языке программирования Pascal.
Представлены 6 вариантов по 30 страниц - исходники + блок-схемы + оформленные протоколы.
Задание взято из методичек ВолгГТУ.
Методичка ВолгГТУ.
Форма заказа новой работы
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
