Отчет по практике по предмету: Информатика, Вычислительная техника, телекоммуникации (Пример)
Содержание
Задача 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.
Выдержка из текста
Задача 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;
