- •Лабораторная работа №15 Программирование алгоритмов различных структур на Паскале
- •Порядок работы
- •Основные понятия
- •Общие оперативные клавиши Turbo Pascal
- •Оперативные клавиши отладки/запуска
- •Оперативные клавиши управления окнами
- •Оперативные клавиши редактирования
- •Запуск среды tp
- •Структура программы на Паскале
- •Описание переменных
- •Действия с числовыми величинами Арифметические операции
- •Стандартные математические функции
- •Арифметические выражения
- •Операторы Паскаля.
- •Условный оператор
- •Пример По длинам трех сторон треугольника а, b, c вычислить его площадь.
- •Оператор выбора
- •Оператор цикла с параметром
- •Операторы цикла с условием
- •Оператор цикла пока, или цикл с предусловием
- •Оператор цикла до, или цикл с постусловием
- •Задания к лабораторной работе
- •Контрольные вопросы
Задания к лабораторной работе
Задание 1.
1. Запустите загрузочный файл ТР.
2. Ознакомьтесь с видом основного экрана ТР.
4. Наберите текст программы, указав в треугольных скобках собственную группу.
program lab1;
begin
writeln('<>');
end.
5. Добавьте строку с оператором writeln('< >'). В треугольных скобках укажите собственную фамилию, имя, отчество.
6. Отправьте файл на выполнение F10, Run, Run. Просмотрите результаты работы программы Alt-F5.
7. Сохраните файл под именем task_1.pas, F10, Save as.
8. Выйдите из среды TP, убедитесь в наличии файлов на диске.
Задание 2.
1. Загрузите оболочку ТР.
2.Создайте новое окно, используя команды File, New.
3. Наберите текст программы:
Program kwur; (*Имя программы*)
Uses crt; {Использование библиотечного модуля CRT}
Var a,b,c,d,w,z,xl,x2 :Real; {Объявление переменных}
otvet:Char;
Begin {Начало основного блока программы}
Clrscr; {Очистка экрана}
WriteLn ('Программа вычисления корней');
WriteLn ('квадратного уравнения общего вида');
Repeat {Начало цикла с постусловием}
Write('Введите значение a');
ReadLn (а); {Ввод коэффициента а}
If a=0 Then Writeln ('Уравнение не квадратное')
Else Begin
Write ('Введите значение b='); ReadLn (b);
Write ('Введите значение с ='); ReadLn (с);
D: = b*b - 4*a*c; {Вычисление дискриминанта}
Z:=-b/(2*a);
W:=sqrt(abs(d))/(2*a);
WriteLn ('При a=',a:5:2,' b=',b:5:2, ' c=',c:5:2);
If D<0 then
Begin
WriteLn ('Xl= ', Z:6:3,' + i*',w:5:3);
WriteLn ('X2= ', Z:6:3,' - i*',w:5:3);
End
Else
Begin
xl: = z + w;
x2: = z-w;
WriteLn ('xl=',xl:5:2,' x2=',x2:5:2);
End
End;
WriteLn ('Желаете продолжить работу? (y/n)');
Readln (otvet);
Until otvet<>'y'; {Повторять, пока переменная otvet примет значение отличное от у}
WriteLn ('Спасибо! До свидания!');
End.
4. Откройте окно, в котором вы сможете отследить значения переменной i, используя команды F10, Debug, Add Watch.
20. Расположите окна черепицей.
21. Выполните программу пошагово, используя клавишу F8. Отследите изменения значений переменной d.
Задание 3. Составить программу нахождения значения числового выражения с указанной точностью при заданных значениях переменных.
Пример выполнения задания
Найти числовое значение выражения с точностью до 0,001 при a=5,48 и b=1,27:
Текст программы:
Результат вычислений: 0,022.
Задание: Самостоятельно составьте программу в Turbo Pascal для нахождения числового значения выражения с точностью до 0,01 при a=3,81 и b=7,16:
Результат вычислений: -0,04.
Задание 4. Составить блок-схему и вычислить значение функции y = y(x).
Пример выполнения задания
x<0
Program part_1;
Uses crt;
Var x,y : real;
Begin
Clrscr; {очистка экрана}
Writeln(‘Введите аргумент функции x ’);
Readln(x); {Задаем с клавиатуры значение x}
If x<0 then writeln(‘Решения нет’) {аргумент не входит в ОДЗ}
else begin y:=sqrt(x)/(x+2); {вычисляем значение функции}
writeln(y:5:2) {выводим значение функции на экран}
end;
readkey; {ожидание до нажатия любой клавиши}
end.
Задание: Составить блок-схему и программу вычисления значения функции
Задание 5. Дано целое число в диапазоне 0 – 9. Вывести строку – название соответствующей цифры на русском языке (0 – «ноль», 1 – «один», 2 – «два», ...).
Задание 6. Не набирая команд программы, скажите, какой будет результат на экране монитора при N=3.
Задание 7. Составить на Паскале программу, реализующую следующий алгоритм решения задачи: