Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу

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

Номер заказа
130210
Создан
10 июля 2014
Выполнен
11 июля 2014
Стоимость работы
400
Надо быстро сделать решение задач по программированию. Есть буквально 1 день. Тема работы «Лабораторные работы Pascal».
Всего было
18 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу
Или вы можете купить эту работу...
Страниц: 150
Оригинальность: Неизвестно
400
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

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

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

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

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

1. Ввести одномерный целочисленный массив A, вывести его. В массиве отсортировать по возрастанию все элементы предшествующие максимальному.
2. Ввести двумерный массив A3×4. Определить в нём сумму элементов, значения которых лежат вне диапазона [-1;5].
3. Ввести двумерный массив AN × M. Все элементы, которые не кратны 4 и стоят в четных строках массива уменьшить на 10. Массив вывести до и после преобразования.
4. Ввести двумерный массив AN × M, вывести его. Если значение суммы элементов его главной диагонали превышает сумму элементов побочной, то квадратом полученной разности заменить отрицательные элементы под побочной диагональю.
5. Ввести целочисленную квадратную матрицу AN × M, вывести ее. Найти сумму элементов в той строке, где произведе Показать все
Пример листинга:

Листинг программы на 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]);
e Показать все
Методичка ВолгГТУ.
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована использовать исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать решение задач