Дополнительное задание 2 Параграф 20 ГДЗ Семакин 8 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 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(taskb > > task);

readln(b);

WriteLn(b)

end.

4.

program my;

var

c: real;

begin

write(taskc > > task);

readln(c);

c := 2 * c;

WriteLn(c)

end.

5.

program my;

var

x: integer;

y, z: real;

begin

write(taskx > > task);

readln(x);

y := 5.5;

z := x - y;

WriteLn(z)

end.

6.

program my;

var

x: integer;

y, z: real;

begin

write(taskx > > task);

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

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(taska,b,c,d > > task);

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(taskx,y > > task);

readln(x, y);

t := x;

x := y; y := t;

writeln(taskx=task, x, task y=task, y)

end.

3.

program my;

var

a, b, c, d: integer;

begin

write(taska,b,c > > task);

readln(a, b, c);

d := b * b - 4 * a * c;

writeln(taskd=task, d)

end.

4.

program my;

var

l, d, r: real;

begin

write(taskl,d > > task);

readln(l, d);

l := l - d;

r := l / (3.14 * 2);

writeln(taskr=task, r:5:2)

end.

5.

program my;

var

r1, r2, s: real;

begin

write(taskr1,r2 > > task);

readln(r1, r2);

s := 3.14 * (r1 * r1 - r2 * r2);

writeln(tasks=task, s:5:2)

end.

6.

program my;

var

x, y, s: integer;

begin

write(taskx,y > > task);

readln(x, y);

s := (2 * x + y) * (x - y);

writeln(tasks=task, 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(taskx,y > > task);

readln(x, y);

x := x + y;

y := x - y;

x := x - y;

writeln(taskx=task, x, task y=task, y)

end.

2.

program my;

var

x, y: integer;

begin

write(taskx > > task);

readln(x);

y := x * x;

y := y * y * x;

writeln(tasky=task, y)

end.

3.

y=1-x*(2-3*x+4*x2)

program my;

var

x, y: integer;

begin

write(taskx > > task);

readln(x);

y := 2-3* x;

y := y+4*x*x;

y:=y*x;

y:=1-y;

writeln(tasky=task, y)

end.

4.

program my;

var

x1, y1, x2, y2: integer;

l: real;

begin

write(taskx1,y1,x2,y2 > > task);

readln(x1, y1, x2, y2);

l := sqrt(sqr(x1 - x2) + sqr(y1 - y2));

writeln(taskl=task, l:5:2)

end.