Вход

Лабораторные работы Pascal

Рекомендуемая категория для самостоятельной подготовки:
Решение задач*
Код 290462
Дата создания 28 июля 2014
Страниц 150
Мы сможем обработать ваш заказ 6 октября в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
820руб.
КУПИТЬ

Описание

Решенные задачи по темам:
«Циклические перестановки в одномерных массивах»
«Двумерные массивы»
«Обработка двумерных массивов по строкам и столбцам»
«Подпрограммы»

Программы написаны на языке программирования Pascal.
Представлены 6 вариантов по 30 страниц - исходники + блок-схемы + оформленные протоколы.

Задание взято из методичек ВолгГТУ.

...

Содержание

Пример листинга:

Листинг программы на 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.

Введение

Пример условий задач

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 – поиск среднего арифметического положительных элементов (равно нулю, если положительных нет)).

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

Методичка ВолгГТУ.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022