Оглавление Лабораторная работа № 1. Линейные алгоритмы

Задание 1. Запустите среду программирования Pascal и наберите следующий код программы:

Program Example;

Uses Crt;

Var R, S, L: integer;

Begin

Clrscr;

Write(‘R=’);

Readln(R);

S:= pi*sqr(R)

L:= 2*pi*R

Write(‘S=’, S);

Write(‘L=’,L);

Readln;

End.

Определите, что вычисляется в программе.

Исправьте ошибки в коде программы.

Задание 2. Определите, что появится на экране после выполнения команд:

1. x:=10;

y:=3;

z:=x/y;

Writeln(x, ’:’, y,’=’, z:3:1);

2. x:= 9 mod 2;

y:= 9 div 2;

Writeln(‘Целая часть от деления 9 на 2 равна’, y);

Writeln(‘Остаток от деления 9 на 2 равен’, x);

Задание 3. Установите правильный порядок команд в программе, вычисляющей объем параллелепипеда.

□ Begin

□ V:=a*b*h;

□ Program Example1;

□ Uses Crt;

□ end.

□ Writeln(‘V=’,V:5:2);

□ Var h, a, b: integer;

V: real;

□ Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

Write(‘h=’); Readln(h);

□ Writeln(‘Вычисление объема параллелепипеда’);

Задание 4. Составьте программу по заданной блок-схеме.

Рис. 1. Линейный алгоритм

Задание 5. Запишите следующие математические выражения на языке Pascal:

1. y = 2x² + e^x;

2. z = |tg(5x) – 2x|;

3. a = b¹⁰;

4. y = log₅ (3x-2);

5. y = .

Задание 6. Составьте программу для вычисления выражения у=10log₂(x²+2).

Задание 7. Составьте программу для вычисления синуса угла, заданного в градусах.

Задание 8. Составьте программу, которая переводит величину, заданную в минутах в величину, выраженную в часах и минутах.

Например, 255 мин. = 4 ч. 15 мин.

Лабораторная работа № 2. Разветвляющиеся алгоритмы

Задание 1. Составьте блок-схему к следующей программе:

Program Example2;

Uses Crt;

Var x, y: integer;

Begin

Clrscr;

Writeln (‘Введите число’);

Readln(x);

y:= x mod 2;

if y=0 then writeln(‘число ’, х, ’ – четное’)

else writeln(‘число’, х, ’ – нечетное’);

End.

Задание 2. Установите правильный порядок выполнения команд в программе.

□ Program Example3;

□ Writeln(‘Введите два числа’);

□ Uses Crt;

□ Readln(a, b);

□ if a = b then Writeln(a, ‘=’, b) else Writeln(a, ‘<’, b);

□ Var a, b: integer;

□ if a > b then Writeln(a, ‘>’, b) else

□ Begin

□ End.

Задание 3. В алгоритме для вычисления значения функции y заполните пустые места.

,

Рис. 2. Алгоритм вычисления значения функции

Задание 4. Разработайте программу для вычисления значения функции

Задание 5. Составьте программу по заданной блок-схеме.

Рис. 3. Разветвляющийся алгоритм

Доработайте программу, чтобы в ней вычислялась площадь треугольника по формуле Герона ( , ).

Задание 6. Укажите правильный порядок команд в программе.

□ ProgramExample4;

□ Uses Crt;

□ Readln(x);

□ else writeln(‘такой операции не существует’);

□ End;

□ End.

□ Case x of

‘+’: writeln(‘сложение’);

‘-‘: writeln(‘вычитание’);

‘*’: writeln(‘умножение’);

‘/’: writeln(‘деление’)

□ Var x: char;

□ Begin

□ Writeln(‘Введите символ арифметической операции’);