Отчет по лабораторным работам в программе Pascal
Отчет по предмету:
"Информатика, Вычислительная техника, телекоммуникации"
Название работы:
"Отчет по лабораторным работам в программе Pascal"
Автор работы: Фалалеев Артемий Андреевич
Страниц: 13 шт.
Год:2009
Краткая выдержка из текста работы (Аннотация)
Задача 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.
Использованная литература
- нет