- •Оглавление Лабораторная работа № 1. Линейные алгоритмы
- •Лабораторная работа № 2. Разветвляющиеся алгоритмы
- •Лабораторная работа № 3. Циклы
- •Лабораторная работа № 4. Одномерные массивы
- •Лабораторная работа № 5. Двумерные массивы
- •Лабораторная работа № 6. Множества
- •Лабораторная работа № 7. Строки
- •Лабораторная работа № 8. Файлы
- •Лабораторная работа № 9. Записи
- •Лабораторная работа № 10. Подпрограммы
- •Библиографический список
Оглавление Лабораторная работа № 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. Определите, что появится на экране после выполнения команд:
x:=10;
y:=3;
z:=x/y;
Writeln(x, ’:’, y,’=’, z:3:1);
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:
y = 2x2 + ex;
z = |tg(5x) – 2x|;
a = b10;
y = log5 (3x-2);
y = .
Задание 6. Составьте программу для вычисления выражения у=10log2(x2+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(‘Введите символ арифметической операции’);