Дополнительное задание 2 Параграф 20 ГДЗ Семакин 8 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:
ЕК ЦОР: Часть2, глава 6, §35. ЦОР №7
Практическое задание №20
Тема: Знакомство с языком Паскаль
1 уровень сложности
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.
2. Написать программу, которая присваивает целой переменной A значение 10 и выводит это значение на экран.
3. Написать программу, которая запрашивает ввод целого числа в переменную B и выводит это число на экран. Проверить правильность работы программы на числах 1, -5, 256, 10455.
4. Написать программу, которая запрашивает ввод вещественного числа в переменную C, умножает это число на 2 и выводит результат на экран. Проверить правильность работы программы на числах 2.5, -7.33, 0, 782.234.
5. Написать программу для ввода значения величины X целого типа, присваивания величине Y действительного типа значения 5.5, вычисления значения величины Z = X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
6. Написать программу для ввода значения величины X целого типа, присваивания величине Y действительного типа значения 2.5 , вычисления значения величины Z=X/Y и вывода значения величины Z. Протестировать программу для X=5, X=0, X=-8.75
1.
program my;
var
a, b, c, s: integer;
begin
ReadLn(a);
ReadLn(b);
ReadLn(c);
S := a * b * c;
WriteLn(S)
end.
2.
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.
4.
program my;
var
c: real;
begin
write('c>>');
readln(c);
c := 2 * c;
WriteLn(c)
end.
5.
program my;
var
x: integer;
y, z: real;
begin
write('x>>');
readln(x);
y := 5.5;
z := x - y;
WriteLn(z)
end.
6.
program my;
var
x: integer;
y, z: real;
begin
write('x>>');
readln(x);
y := 2.5;
z := x / y;
WriteLn(z:5:2)
end.
2 уровень сложности
1. Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. Протестировать программу на различных исходных данных (включая вещественные числа) и доказать правильность её работы.
2. Вводятся величины X,Y целого типа. Написать программу для обмена значений величин. Необходимо использовать вспомогательную величину Т. Протестировать программу для X=5 и Y=-11.
3. Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0.
4. Из железной полосы длиной L метров нужно изготовить обруч. На соединение концов уходит D метров полосы. Написать программу для вычисления радиуса R обруча. Протестировать программу для а) L=5.8, D=0.2, б) L=3.25, D=0.1
5. Найти площадь кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2). Протестировать программу для R1=5.6 и R2=3.8. Проверить ответ на калькуляторе.
6. Написать на языке Паскаль программу для вычисления выражения:
S= (2x+y)(x-y)
Протестировать её для следующих исходных данных:
1) x=2, y=1 2) x=3, y=0 3) x=0, y=-2
1.
program my;
var
a, b, c, d: integer;
sr: real;
begin
write('a,b,c,d>>');
readln(a, b, c, d);
sr := (a + b + c + d) / 4;
writeln(sr:5:2)
end.
2.
program my;
var
x, y, t: integer;
begin
write('x,y>>');
readln(x, y);
t := x;
x := y; y := t;
writeln('x=', x, ' y=', y)
end.
3.
program my;
var
a, b, c, d: integer;
begin
write('a,b,c>>');
readln(a, b, c);
d := b * b - 4 * a * c;
writeln('d=', d)
end.
4.
program my;
var
l, d, r: real;
begin
write('l,d>>');
readln(l, d);
l := l - d;
r := l / (3.14 * 2);
writeln('r=', r:5:2)
end.
5.
program my;
var
r1, r2, s: real;
begin
write('r1,r2>>');
readln(r1, r2);
s := 3.14 * (r1 * r1 - r2 * r2);
writeln('s=', s:5:2)
end.
6.
program my;
var
x, y, s: integer;
begin
write('x,y>>');
readln(x, y);
s := (2 * x + y) * (x - y);
writeln('s=', s)
end.
3 уровень сложности
1. Заданы величины X,Y действительного типа. Написать программу для обмена значений величин. Использовать вспомогательные величины нельзя. Протестировать программу для X=-3 и Y=8.
2. Дано натуральное число Х. Вычислить Y = X5. Разрешается использовать только три операции умножения. Протестировать программу для X=-2 и X=3.
3. Дано натуральное число Х. Вычислить Y = 1 - 2X + 3X2 - 4X3. Разрешается использовать не более 8 арифметических операций. Допустимы: операции сложение, вычитание, умножение. Протестировать программу для X=0, X=1, X=-2.
4. Вычислить расстояние между двумя точками с координатами (X1,Y1) и (X2,Y2). Доказать правильность работы программы на трёх различных тестах.
1.
program my;
var
x, y: real;
begin
write('x,y>>');
readln(x, y);
x := x + y;
y := x - y;
x := x - y;
writeln('x=', x, ' y=', y)
end.
2.
program my;
var
x, y: integer;
begin
write('x>>');
readln(x);
y := x * x;
y := y * y * x;
writeln('y=', y)
end.
3.
y=1-x*(2-3*x+4*x2)
program my;
var
x, y: integer;
begin
write('x>>');
readln(x);
y := 2-3* x;
y := y+4*x*x;
y:=y*x;
y:=1-y;
writeln('y=', y)
end.
4.
program my;
var
x1, y1, x2, y2: integer;
l: real;
begin
write('x1,y1,x2,y2>>');
readln(x1, y1, x2, y2);
l := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
writeln('l=', l:5:2)
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением