Дополнительное задание Параграф 23 ГДЗ Семакин 8 класс (Информатика)
ЕК ЦОР: Часть2, глава 6, §38. ЦОР №2, 6 Домашнее задание №26 Тема: Ветвления на Паскале. Программирование диалога с компьютером 1.
Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:
ЕК ЦОР: Часть2, глава 6, §38. ЦОР №2, 6
Домашнее задание №26
Тема: Ветвления на Паскале. Программирование диалога с компьютером
1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
program task_2;
var
a, b, c, min: integer;
begin
writeln(taskВведи три числа через пробелtask);
readln(a, b, c);
if b
if c
writeln(taskmin=task, min)
end.
2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.
program task_2;
var
a, b: integer;
begin
write(taskПривет! Сколько полных лет Саше?: task);
readln(a);
write(taskСколько полных лет Маше?: task);
readln(b);
if a > b then writeln(taskСаша старше Машиtask)
else if a = b then writeln(taskСаша и Маша ровестникиtask)
else writeln(taskМаша старше Сашиtask);
end.
3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.
program task_5;
var
c: byte;
begin
write(taskПривет! Введи номер любого дня недели: task);
readln(c);
case c of
1: writeln(taskЭто понедельникtask);
2: writeln(taskЭто вторникtask);
3: writeln(taskЭто средаtask);
4: writeln(taskЭто четвергtask);
5: writeln(taskЭто пятницаtask);
6: writeln(taskЭто субботаtask);
7: writeln(taskЭто воскресеньеtask);
end;
end.
4. Что вычисляет приведённая ниже программа?
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(a,b,c);
i:=0;
If a > 0 then i:=i+1;
If b > 0 then i:=i+1;
If c > 0 then i:=i+1;
WriteLn(i)
End.
Программа вычисляет количество введенных чисел больше 0.
Практическое задание №22
Тема: Ветвления на Паскале.
Программирование диалога с компьютером
1 уровень сложности
1. Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=5, A=-4, A=0.
2. Дано целое число А. Если значение А
3. Дано целое число А. Если значение А 0, то необходимо уменьшить его на 4. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=2, A=-1, A=0.
4. Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=3, A=0, A=-12.
5. Дано целое число А. Если значение А = 0, то необходимо увеличить его на 3, иначе присвоить А значение равное 0. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=0, A=-1, A=8.
6. Даны два действительных числа X и Y. Если X > Y, то вычислить произведение этих чисел, иначе их сумму. Программа должна иметь дружественный интерфейс. Протестировать программу на трёх различных тестах (X > Y, X=Y и X
1.
program task_1;
var
a: integer;
begin
write(taskПривет! Введи целое число (положительное, отрицательное или 0): task);
readln(a);
if a > 0 then a := a + 1;
writeln(taska=task, a)
end.
2.
program task_2;
var
a: integer;
begin
write(taskПривет! Введи целое число (положительное, отрицательное или 0): task);
readln(a);
if a
writeln(taska=task, a)
end.
3.
program task_3;
var
a: real;
begin
write(taskПривет! Введи целое число (положительное, отрицательное или 0): task);
readln(a);
if a 0 then a := a / 4;
writeln(taska=task, a:5:2)
end.
4.
program task_4;
var
a: integer;
begin
write(taskПривет! Введи целое число (положительное, отрицательное или 0): task);
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(taska=task, a:5:2)
end.
5.
program task_5;
var
a: integer;
begin
write(taskПривет! Введи целое число (положительное, отрицательное или 0): task);
readln(a);
if a = 0 then a := a * 3
else a := 0;
writeln(taska=task, a:5:2)
end.
6.
program task_6;
var
x, y, t: real;
begin
write(taskПривет! Введи два действительных числа через пробел: task);
readln(x, y);
if x > y then t := x * y
else t := x + y;
writeln(taskt=task, t:5:2)
end.
2 уровень сложности
1. Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс.
2. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 1) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (1.5,2), (0,0), (-1.5, 1), (1,-1.2),
(-2,-1).
Рис.1
3. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 2) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (2.5, 2), (1,1), (0,0), (1,0), (2,-1).
Рис.2
4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 3) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0.8), (0,0), (-1.5,1), (1,1.5),
(-2,-1).
Рис.3
5. Составить на Паскале программу определения минимума из трёх чисел без использования логических операций. Программа должна иметь дружественный интерфейс (ввод данных осуществляться в режиме диалога). Протестировать программу на следующих исходных данных:
а) 2 5 1
б) 0 -2 8
в) -4 5 10
6. Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).
1.
program task_1;
var
x, y, t: real;
begin
write(taskПривет! Введи два не равных действительных числа через пробел: task);
readln(x, y);
if x > y then
begin
t := y;
y := (x + y) / 2;
x := 2 * x * t
end
else begin
t := y;
y := 2 * x * y;
x := (x + t) / 2
end;
writeln(taskx=task, x:5:2, task y=task, y:5:2)
end.
2.
program task_2;
var
x, y: real;
begin
write(taskПривет! Введи координаты точки А (х, у) через пробел: task);
readln(x, y);
if (x > = 0) and (y > = 0) then writeln(taskПринадлежитtask)
else writeln(taskНе принадлежитtask);
end.
3.
program task_3;
var
x, y: real;
begin
write(taskПривет! Введи координаты точки А (х, у) через пробел: task);
readln(x, y);
if (x > = 1) and (y > = 1) then writeln(taskПринадлежитtask)
else writeln(taskНе принадлежитtask);
end.
4.
program task_4;
var
x, y: real;
begin
write(taskПривет! Введи координаты точки А (х, у) через пробел: task);
readln(x, y);
if y > = 0.5 then writeln(taskПринадлежитtask)
else writeln(taskНе принадлежитtask);
end.
5.
program task_5;
var
a, b, c, min: integer;
begin
writeln(taskВведи три числа через пробелtask);
readln(a, b, c);
if b
if c
writeln(taskmin=task, min)
end.
6.
program task_6;
var
a, b, c, k: integer;
begin
write(taskПривет! Введи три целых числа через пробел: task);
readln(a, b, c);
k := 0;
if a
if b
if c
writeln(taskКоличество отрицательных чисел=task, k);
end.
3 уровень сложности
1. Составить на Паскале программу, которая по введённому номеру месяца выводит название времени года. При написании программы использовать логические операции. При неверном вводе месяца должно выдаваться сообщение об ошибке ввода и программа должна прекращать свою работу. Программа должна иметь дружественный интерфейс. Протестировать программу на всех целых числах от 0 до 13.
2. Треугольник задан длинами сторон А, В, С. Написать программу, определяющую, существует ли данный треугольник. Для решения этой задачи использовать сложные логические условия. Программа должна иметь дружественный интерфейс. Протестировать программу для следующих исходных данных:
а) A=3, B=4, C=5
б) A=1, B=1, C=1
в) A=0, B=4, C=5
г) A=-3, B=6, C=5
д) A=2, B=1, C=8
3. Разработать программу для отыскания max(min(a,b), min(c,d)), не используя сложные логические условия и вложенные ветвления. Числа a,b,c,d - целые. Программа должна иметь дружественный интерфейс. Протестировать программу для следующих исходных данных:
а) a=4 b=5 c=6 d=9
б) a=2 b=1 c=6 d=9
в) a=2 b=1 c=8 d=4
г) a=12 b=1 c=6 d=9
4. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 4) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0), (1,0), (1.5,1), (-1,1.5), (-2,-1), (2,-1), (1,-1), (-1,1).
Рис. 4
5. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 5) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0), (1.5,1), (2,1), (1,-1), (-0.5,-0.2), (-2,-1), (-1,-2), (-1,1), (-3, 1).
Рис.5
6. Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если точка принадлежит заштрихованной области (см. рисунок 6) и «Не принадлежит» в противном случае. Программа должна иметь дружественный интерфейс. Протестировать программу для точек (0,0), (2,2), (0.5,0.5), (0.5,-1.5),
(-0.5,0.5), (-2,-1), (-1,-2), (-1,1), (2, 0).
Рис.6
1.
program task_1;
var
c: integer;
begin
write(taskПривет! Введи номер месяца: task);
readln(c);
if (c 12) then
begin
writeln(taskОшибка, номер месяца не меньше 1 и не больше 12! Попробуй еще раз!task);
Exit
end;
if (c = 12) or (c
if (c > = 3) and (c
if (c > = 6) and (c
if (c > = 9) and (c
end.
2.
program tasr_2;
var
a, b, c: integer;
begin
write(taskВведи длины сторон треугольника через про-белtask);
readln(a, b, c);
if (a > 0) and (b > 0) and (c > 0) then
if((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln(taskТреугольник существуетtask)
else writeln(taskТакой треугольник не существуетtask)
else writeln(taskТакой треугольник не существуетtask)
end.
3.
program tasr_3;
var
a, b, c, d: integer;
min1, min2, max: integer;
begin
write(taskВведи a и b через пробел:task);
readln(a, b);
write(taskВведи c и d через пробел:task);
read(c, d);
if a > b then min1 := b else min1 := a;
if c > d then min2 := d else min2 := c;
if min1 > min2 then max := min1 else max := min2;
writeln(taskmax=task, max)
end.
4.
program tasr_4;
var
x, y: real;
begin
write(taskВведи координаты точка А x и y через пробел:task);
readln(x, y);
if (x = 1) then writeln(taskПринадлежитtask)
else writeln(taskНе принадлежитtask)
end.
5.
program tasr_5;
var
x, y: real;
begin
write(taskВведи координаты точка А x и y через пробел:task);
readln(x, y);
if ((x = -3) and (y > = 0) and (y = -1 and (x > = -1) and (x
else writeln(taskНе принадлежитtask)
end.
6.
program tasr_6;
var
x, y: real;
begin
write(taskВведи координаты точка А x и y через пробел:task);
readln(x, y);
if ((x = -1) and (y > = -2) and (y = 0 and (x > = -1) and (x
else writeln(taskНе принадлежитtask)
end.
