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

Задача 1 Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы. Постановка задачи: Создать меню из 3-х задач. Из 3-х предложенных вариантов выбрать один корректный и выполнить задание. При невозможности выполнить задание выдать сообщение о неверном вводе или недопустимых данных. Выход из программы осуществить из меню. Алгоритм. Вывести на экран запрос о выборе задачи Задача №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; 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; end;

Задача 1 Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы. Постановка задачи: Создать меню из 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 Составить подпрограмму – функцию 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.

нет