Задания уровня 1

Упражнение 1. Вывести на экран таблицу значений функции. Вывод выполняется в два столбца: первый – значения аргумента, второй – значения функции при изменении аргумента от значения a до b с шагом dx.

Var

x, y, z, lg3, a, b, dx: real;

Begin

clrscr; {Очистка экрана}

write (′Введите начальное значение аргумента: ′); readln(a);

write (′Введите конечное значение аргумента: ′); readln(b);

write (′Введите шаг табулирования: ′); readln(dx);

writeln (′---------------′:20);

write (′x′:9, ′‌‌ |‌‌‌‌‌ ‌′:4, ′y′:4);

writeln (′---------------′:20);

lg3:=ln(3.0)/ln(10.0); {Вычисление lg(3)}

x:=a;

while x<(b+dx/2) do

Begin

z:=sin((pi*x)/3;

if (z<0) then writeln(x:10:3, ′ |функция не определена′:22)

Else

Begin

y:=lg3+x*sqrt(5.0*z);

writeln(x:10:3, ′ | ′, y:7:3);

end;

x:=x+dx;

end;

writeln (′---------------′:20)

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P5PR1

Упражнение 2. Тест по таблице умножения, которая уже приводилась в качестве примера. В результате использования цикла получается полноценная тестирующая программа, которая также будет выводить и результаты тестирования. Обратите внимание, что команда инициализации датчика случайных чисел выполняется до начала цикла, т.к. она должна быть выполнена только один раз. Инструкции для вывода результатов теста выполняются после выхода из цикла.

1. Наберите текст программы:

Program TABL_1;

uses crt;

Var

s1, s2, otvet, kol, prav: integer; yn: char;

{s1,s2–сомножители, otvet–ответ ученика, prav – пр. ответ}

Begin

randomize;{Инициализация датчика случайных чисел}

clrscr; {Очистка экрана}

Repeat

kol:=kol+1;

s1:= random(18)+2; s2:= random(18)+2; {s1,s2 – случайные числа в диапазоне от 2 до 19}

write ('Сколько будет', s1, '*', s2, ' ? ');

readln (otvet);

if otvet=s1*s2 then

Begin

write('Правильно!'); prav:=prav+1;

End

else write('Неверно…');

write('Продолжим тест? (Y/N)'); readln(yn);

until (yn=′n′) or (yn=′N′);

clrscr; {Очистка экрана}

writeln('Результаты теста: ');

writeln('Задано вопросов: ', kol, ′. Правильных ответов: ′, prav, ′.′);

Readln

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P5PR2

3. Выполнить самостоятельно: