Примеры работы программы

УО «Белорусский государственный университет информатики и радиоэлектроники»

Кафедра ПОИТ

Дисциплина ОАиП

Отчёт по лабораторной работе №1

Вариант 24

Задания 1-4

Выполнил:

Студент гр. 451005

Савчук А.Ю.

Проверила:

Данилова Г.В.

Минск

Задания:

1. Даны длины сторон треугольника. Определить, является ли данный треугольник равносторонним?

2. Вычислить сумму S = 1 × 3 + 3 × 5 + 5 × 7 +…+ (2n - 1)(2n + 1) для заданного n.

3. Вычислять значение функции y=sin(ax) для x, изменяющегося от 1 с шагом 1 до тех пор, пока данная функция возрастает. Значение a ввести с клавиатуры.

4. Дан массив a, состоящий из n-элементов и число x. Вычислить значение полинома P = xⁿ + a₁x^n-1+…+a_n-1x+a_n.

Задание 1

Блок-схема программы

Код программы

program lab1;

uses SysUtils;

var a,b,c: integer;

begin

writeln('Vvedite dliny storon treugolnika: ');

readln(a,b,c);

if ((a+b)<=c) or ((b+c)<=a) or ((a+c)<=b) then

writeln('Treugolnik ne suschestvuet')

else

begin

if (a=b) and (b=c) and (a=c) then

writeln('Treugolnik ravnostoronnii')

else

writeln('Treugolnik ne ravnostoronnii');

end;

readln;

end.

Примеры работы программы