Дополнительное задание 2 Параграф 20 ГДЗ Семакин 8 класс (Информатика)
Практическое задание №20. Тема: «Знакомство с языком Паскаль»
1 уровень сложности
а) Набрать в редакторе системы Турбо-Паскаль следующую программу:
Program my;
Var a,b,c,s:integer;
Begin
ReadLn(a);
ReadLn(b);
ReadLn(c);
S:=a*b*c;
WriteLn(S)
End.б) Откомпилировать набранную программу и исправить ошибки.
в) Запустить данную программу на выполнение и проверить правильность её работы для чисел 2, 4 и 6.
г) Запустить данную программу на выполнение и проверить правильность её работы для чисел 1, 0 и −1.
д) Запустить данную программу на выполнение и проверить правильность её работы для чисел −2, 3 и 10.
- Написать программу, которая присваивает целой переменной $$A$$ значение 10 и выводит это значение на экран.
- Написать программу, которая запрашивает ввод целого числа в переменную $$B$$ и выводит это число на экран. Проверить правильность работы программы на числах 1, −5, 256, 10455.
- Написать программу, которая запрашивает ввод вещественного числа в переменную $$C$$, умножает это число на 2 и выводит результат на экран. Проверить правильность работы программы на числах 2.5, −7.33, 0, 782.234.
- Написать программу для ввода значения величины $$X$$ целого типа, присваивания величине $$Y$$ действительного типа значения 5.5, вычисления значения величины $$Z=X-Y$$ и вывода значения величины $$Z$$. Протестировать программу для $$X=5.5$$, $$X=0$$, $$X=-10.2$$.
- Написать программу для ввода значения величины $$X$$ целого типа, присваивания величине $$Y$$ действительного типа значения 2.5, вычисления значения величины $$Z=X/Y$$ и вывода значения величины $$Z$$. Протестировать программу для $$X=5$$, $$X=0$$, $$X=-8.75$$.
2 уровень сложности
- Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. Протестировать программу на различных исходных данных, включая вещественные числа, и доказать правильность её работы.
- Вводятся величины $$X,Y$$ целого типа. Написать программу для обмена значений величин. Необходимо использовать вспомогательную величину $$T$$. Протестировать программу для $$X=5$$ и $$Y=-11$$.
- Написать программу для вычисления дискриминанта $$d$$ квадратного уравнения $$ax^2+bx+c=0$$. Разработать тесты проверки правильности работы программы для вариантов, когда $$d>0$$, $$d=0$$ и $$d<0$$.
- Из железной полосы длиной $$L$$ метров нужно изготовить обруч. На соединение концов уходит $$D$$ метров полосы. Написать программу для вычисления радиуса $$R$$ обруча. Протестировать программу для: а) $$L=5.8$$, $$D=0.2$$; б) $$L=3.25$$, $$D=0.1$$.
- Найти площадь кольца, внешний радиус которого равен $$R_1$$, а внутренний — $$R_2$$ (с условием $$R_1>R_2$$). Протестировать программу для $$R_1=5.6$$ и $$R_2=3.8$$. Проверить ответ на калькуляторе.
- Написать на языке Паскаль программу для вычисления выражения $$S=(2x+y)(x-y)$$. Протестировать её для следующих исходных данных: 1) $$x=2$$, $$y=1$$; 2) $$x=3$$, $$y=0$$; 3) $$x=0$$, $$y=-2$$.
3 уровень сложности
- Заданы величины $$X,Y$$ действительного типа. Написать программу для обмена значений величин. Использовать вспомогательные величины нельзя. Протестировать программу для $$X=-3$$ и $$Y=8$$.
- Дано натуральное число $$X$$. Вычислить $$Y=X^5$$. Разрешается использовать только три операции умножения. Протестировать программу для $$X=-2$$ и $$X=3$$.
- Дано натуральное число $$X$$. Вычислить $$Y=1-2X+3X^2-4X^3$$. Разрешается использовать не более 8 арифметических операций. Допустимы операции сложения, вычитания, умножения. Протестировать программу для $$X=0$$, $$X=1$$, $$X=-2$$.
- Вычислить расстояние между двумя точками с координатами $$(X_1,Y_1)$$ и $$(X_2,Y_2)$$. Доказать правильность работы программы на трёх различных тестах.
1. Программа для вычисления произведения трёх чисел:
program my;
var
a, b, c, s: integer;
begin
ReadLn(a);
ReadLn(b);
ReadLn(c);
s := a * b * c;
WriteLn(s);
end.
Проверка:
- $$2 \cdot 4 \cdot 6 = 48$$
- $$1 \cdot 0 \cdot (-1) = 0$$
- $$(-2) \cdot 3 \cdot 10 = -60$$
2. Программа, присваивающая переменной $$A$$ значение $$10$$ и выводящая его:
program my;
var
a: integer;
begin
a := 10;
WriteLn(a);
end.
3. Программа ввода целого числа и вывода его на экран:
program my;
var
b: integer;
begin
write(‘b>>’);
readln(b);
WriteLn(b);
end.
При вводе $$1$$, $$-5$$, $$256$$, $$10455$$ программа выводит то же самое число.
4. Программа для ввода вещественного числа, умножения его на $$2$$ и вывода результата:
program my;
var
c: real;
begin
write(‘c>>’);
readln(c);
c := 2 * c;
WriteLn(c);
end.
Проверка:
- $$2.5 \cdot 2 = 5$$
- $$-7.33 \cdot 2 = -14.66$$
- $$0 \cdot 2 = 0$$
- $$782.234 \cdot 2 = 1564.468$$
5. Программа для вычисления $$Z = X — Y$$, где $$Y = 5.5$$:
program my;
var
x: integer;
y, z: real;
begin
write(‘x>>’);
readln(x);
y := 5.5;
z := x — y;
WriteLn(z);
end.
Так как $$X$$ объявлена как целая переменная, значения $$5.5$$ и $$-10.2$$ вводить нельзя. Для допустимых целых значений, например:
- $$X = 5 \Rightarrow Z = 5 — 5.5 = -0.5$$
- $$X = 0 \Rightarrow Z = 0 — 5.5 = -5.5$$
6. Программа для вычисления $$Z = \dfrac{X}{Y}$$, где $$Y = 2.5$$:
program my;
var
x: integer;
y, z: real;
begin
write(‘x>>’);
readln(x);
y := 2.5;
z := x / y;
WriteLn(z:5:2);
end.
Проверка:
- $$5 / 2.5 = 2$$
- $$0 / 2.5 = 0$$
- $$-8.75$$ вводить нельзя, так как $$X$$ — целая переменная.
Ответ
Приведены программы для всех пунктов и результаты проверки на тестовых данных.
