Практическая работа 1.
Линейные алгоритмы 10 класс
Задание 1:
а) Проверьте работу программы нахождения суммы
двух чисел:
Заголовок программы
Служебное слово program и имя
|
program deistvia;
|
Блок описание данных (переменных (var))
|
var a,b,c: integer;
|
Описание
действий
Начинается
словом
begin и
заканчивается словом end с точкой
|
begin
read
(a);
read
(b);
c:=a+b;
write(‘c=’,c);
end.
|
Данные для
ввода: 10, 20. Результат – 30.
б) Что нужно
изменить в программе для нахождения суммы трёх дробных
чисел? Внесите изменения и проверьте работу
программы для чисел 2,5 и 3,5 и 2 (результат – 8).
Задание 2:
Проверьте работу программы нахождения цифр
трёхзначного числа:
Заголовок
|
program chislo;
|
385
abc
|
Описание
данных
|
var
x,a,b,c,S: integer;
|
|
Описание
действий
|
Begin
write(‘Ведите трёхзначное число’);
Read (x);
a:= x div 100;
c:=x mod 10;
b:=(x – 100*a) div 10;
S:= a+b+c;
write(S);
end.
|
Ведите трёхзначное число
385 (enter)
a=385 div 100=3
c=385 mod 10=5
b=(385 – 300)
div 10 = 8
S=3 + 5 +8 = 16
|
Проверьте работу программы для нескольких
трёхзначных чисел.
Домашнее задание:
а) повторить теорию;
б) составьте программу нахождения суммы цифр двузначного числа (например:
вводим число 28, результат – 10);
в) как нужно изменить программу, чтобы кроме суммы получить число, образованное
перестановкой цифр (из 28 получить 82).
Практическая работа 1.
Линейные алгоритмы 10 класс
Задание 1:
а) Проверьте работу программы нахождения суммы
двух чисел:
Заголовок программы
Служебное слово program и имя
|
program deistvia;
|
Блок описание данных (переменных (var))
|
var a,b,c: integer;
|
Описание
действий
Начинается
словом
begin и
заканчивается словом end с точкой
|
begin
read
(a);
read
(b);
c:=a+b;
write(‘c=’,c);
end.
|
Данные для
ввода: 10, 20. Результат – 30.
б) Что нужно
изменить в программе для нахождения суммы трёх дробных
чисел? Внесите изменения и проверьте работу
программы для чисел 2,5 и 3,5 и 2 (результат – 8).
Задание 2:
Проверьте работу программы нахождения цифр
трёхзначного числа:
Заголовок
|
program chislo;
|
385
abc
|
Описание
данных
|
var
x,a,b,c,S: integer;
|
|
Описание
действий
|
Begin
write(‘Ведите трёхзначное число’);
Read (x);
a:= x div 100;
c:=x mod 10;
b:=(x – 100*a) div 10;
S:= a+b+c;
write(S);
end.
|
Ведите трёхзначное число
385 (enter)
a=385 div 100=3
c=385 mod 10=5
b=(385 – 300)
div 10 = 8
S=3 + 5 +8 = 16
|
Проверьте работу программы для нескольких
трёхзначных чисел.
Домашнее задание:
а) повторить теорию;
б) составьте программу нахождения суммы цифр двузначного числа (например:
вводим число 28, результат – 10);
в) как нужно изменить программу, чтобы кроме суммы получить число, образованное
перестановкой цифр (из 28 получить 82).
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.