Задание 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).

Пример выполнения задания

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. Составить на Паскале программу, реализующую следующий алгоритм решения задачи:

Контрольные вопросы

1. Какова общая структура программы на языке Паскале?

2. Для представления какой информации в языке Паскаль используется тип real? В чем отличие двух типов числовых данных real и integer?

3. Что такое «выражение», «операция», «операнд»? Приведите примеры.

4. Какой формат имеет оператор присваивания?

5. Каково назначение операторов read и readln? В чем их отличия?

6. Каково назначение операторов write и writeln? В чем их отличия?

7. Какой условный оператор используется в Паскале?

8. Для чего служит оператор выбора?

9. Какие операторы используются для организации циклов?