- Учителю
- Самостоятельная работа по Паскаля для 9 класса
Самостоятельная работа по Паскаля для 9 класса
Самостоятельная работа по программированию (на языке Паскаль)
1 вариант.
-
Найдите ошибки в программе. Задача: определить кто старше: Маша или Саша?
var s,m,с: integer;
begin
readln (s,m);
then if s=m then write('Саша и Маша ровестники')else write ('Саша старше Маши')
else write ('Маша старше Саши')
end
-
Найдите значение переменной а после выполнения программы:
var a,b: integer;
begin
a:=1848;
b:=(a div 100)*10+9:
a:=(10*b-a) mod 100;
writeln ('a=', a);
writeln ('b=', b);
end.
-
Написать программу, нахождения суммы трехзначного числа, если это число разложить на разряды.
-
Написать программу, возведения числа в квадрат, если оно положительное, иначе вывести на экран фразу, что число отрицательное.
-
Произвести обмен переменных:
На входе: A:=50 B:=80 C:=100
На выходе: A:=100 B:=50 C:=80
-
Написать программу, которая определяет по числу день недели (например, если это 2 день недели- то это вторник, если 7- то это воскресенье)
Самостоятельная работа по программированию (на языке Паскаль)
-
вариант.
-
Найдите ошибки в программе. Задача: определить является ли число четным?
var a,m,с: integer;
begin
readln (s,m);
then if a>0 then write('число четное')else write ('число нечетное')
end
-
Найдите значение переменной а после выполнения программы:
var a,b: integer;
begin
a:=1851;
b:=(a div 100)*10+9:
a:=(10*b-a mod) 100;
writeln ('a=', a);
writeln ('b=', b);
end.
-
Написать программу, нахождения среднего значения суммы трехзначного числа, если это число разложить на разряды.
-
Написать программу, если число кратное трем, то возвести его в квадрат, иначе вывести на экран фразу, что число не кратное трем.
-
Произвести обмен переменных:
На входе: A:=25 B:=75 C:=105
На выходе: A:=75 B:=105 C:=25
-
Написать программу, которая определяет по количеству углов какая это геометрическая фигура (например, если это 3 угла - то это треугольник)