Отчет по лабораторным работам в программе Pascal

ОтчётПомощь в написанииУзнать стоимостьмоей работы

Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы. Вывести на экран запрос о выборе задачи Задача № 1. Вычисление элементов геометрических фигур. Вычислить сторону треугольника. Средняя линия трапеции; Writeln ('I ', a: 2:1,' I ', d: 2:1,' I'); Сторона треугольника; Var a, b, c, s, d, l, g: array of real; Диагональ квадрата; Writeln… Читать ещё >

Отчет по лабораторным работам в программе Pascal (реферат, курсовая, диплом, контрольная)

Содержание

Задача
Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы
Постановка задачи

Создать меню из 3-х задач. Из 3-х предложенных вариантов выбрать один корректный и выполнить задание. При невозможности выполнить задание выдать сообщение о неверном вводе или недопустимых данных. Выход из программы осуществить из меню.

Задача 2

Массив Z (15) заполнить целыми случайными числами в диапазоне (0,100). Найти сумму элементов S, расположенных между максимальным MAX и минимальным MIN элементами массива. Вывести S, Z, MAX, MIN.

Массив В (20) заполнить целыми случайными числами в диапазоне (0,20). Массив-маску М (20) заполнить нулями и единицами случайным образом. Найти среднее арифметическое SR элементов массива B по нулям массива М. Вывести В, М, SR.

Матрицу R (9.5) заполнить целыми случайными числами в диапазоне (-100,100). Заполнить массив С (?) номерами таких строк R, сумма элементов которых S (I)>0. Массив С заполнить плотно. Вывести R, S, C.

Задача 5

Матрицу Q (7, 9) заполнить целыми случайными числами в диапазоне (-20, 20). Найти минимальный и максимальный элементы в каждой строке и количества элементов, находящихся между ними. Матрицу Q и результаты счета вывести.

Задача 6

Составить подпрограмму — процедуру POISK (A, M, N, R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать процедуру для обработки двух матриц P (5.4) и G (7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2, Q.

Задача 7

Составить подпрограмму — функцию POISK (A, M, N, R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать функцию для обработки двух матриц P (5.4) и G (7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2, Q.

Задача 7

Задача 1

Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы.

Постановка задачи:

Алгоритм.

Вывести на экран запрос о выборе задачи Задача № 1

Вычислить диагональ квадрата Сделать запрос о количестве вычислений и организовать цикл с помощью оператора For. В цикле (сторона квадрата) сделать запрос о вводе переменной, если она положительна, то сделать вычисления, если нет, то выдать сообщение об ошибке (ввести другие числа). Результаты выводить в виде таблицы.

Задача № 2

Вычислить среднюю линию трапеции Организовать цикл с помощью оператора WHILE. В цикле сделать запрос о вводе первой переменной (нижнее основание а), если она положительна, то сделать запрос о вводе второй переменной (верхнее основание b), если вторая переменная положительна, то произвести вычисления, в противном случае выдать сообщение об ошибке. В конце цикла запрос о продолжении вычислений. Результат выводить в виде таблицы.

Задача № 3

Вычислить сторону треугольника

Организовать цикл с помощью оператора REPEAT. В цикле сделать запрос о вводе всех 3-х переменных (2 стороны и угол между ними), и если они все положительны, то произвести вычисления, в противном случае выдать сообщение об ошибке (ввести другие числа). В конце цикла сделать запрос о продолжении вычислений. Результат выводить в виде таблицы. По окончании вычислений выходить в меню, где предусмотреть выход из программы.

Вычисление элементов геометрических фигур

Диагональ квадрата ;

Средняя линия трапеции ;

Сторона треугольника ;

Program dz;

Const

ln='——————-';

var a, b, c, s, d, l, g: array [1.10] of real;

n, k, i:integer;

Ot:char;

Begin

While 1=1 do

begin

writeln ('menu');

writeln ('1-diagonal kvadrata');

writeln ('2-srednia linia trapecii');

writeln ('3-storona treugolnika');

writeln ('4-vihod');

Readln (n);

case n of

1:begin

writeln ('skolko raz schitat?');

Readln (k);

for i:=1 to k do

begin

Writeln ('vvedite storonu kvadrata');

Readln (a[i]);

if a[i]>=0 then

d[i]: =a[i]*sqrt (2)

else

begin

while a[i]<0 do

begin

writeln ('vvedite drygoe chislo');

readln (a[i]);

end;

d[i]: =a[i]*sqrt (2);

end;

Writeln (ln);

writeln ('I a I d I');

Writeln (ln);

for i:=1 to k do

begin

writeln ('I ', a[i]: 2:1,' I ', d[i]: 2:1,' I');

writeln (ln);

end;

Показать весь текст

Заполнить форму текущей работой

Другие работы

Модернизация электропривода нажимного устройства уширительной клети прокатного стана

Расчёт сопротивления рассеяния фазы трансформатора Зная потери и напряжение короткого замыкания трансформатора можно найти активное, полное и индуктивное сопротивление рассеяния фазы трансформатора, приведённые к вторичной стороне. Расчёт фазного напряжения вторичной обмотки трансформатора. Вторичное напряжение силового трансформатора рассчитывается с учётом просадки напряжения сети. Расчётное…

Дипломная