27.01 Реализация алгоритмов с целочисленными данными
Проверка домашней работы
Вася написал программу, которая переводит длину из метров в километры и метры. Но он не может решить, где нужно использовать div, а где mod. Помогите ему. Откройте файл и исправьте программу.
var d, m, k: integer;
begin
write('введите d = ');
readln(d);
k:= d ... 1000;
m:= d ... 1000;
write(d, ' м = ');
write(k, ' км ', m, ' м');
end.
Решение
var d, m, k: integer;
begin
write('введите d = ');
readln(d);
k:= d div 1000;
m:= d mod 1000;
write(d, ' м = ');
write(k, ' км ', m, ' м');
end.
Выполните задание
Найдите:
27 div 5 = 27 mod 5= 27 div 10 = 27 mod 10=
349 div 10 = 349 mod 10 = 349 div 100 = 349 mod 100 =
Что будет записано на экране монитора?
1.
begin
write('Учимся');
write(' программировать');
end.
2.
begin
writeln('Учимся');
write(' программировать');
end.
3.
begin
write('Учимся');
writeln(' программировать');
end.
Результаты теста «Целочисленное деление»
Выполни тест
Задание 1
Используя вспомогательный алгоритм, переведите Робота из начального положения (◊) в точку A
Решение
09.12
procedure <имя>;
begin
тело процедуры;
end;
Задание 2
Используя цикл с параметром, составьте программу перехода из А по клеткам поля, отмеченных звездочкой
Решение
for var i:= N1 to N2 do
begin
тело цикла;
end;
uses Robot;
begin
Field(20,1);
for var i:= 1 to 7 do
begin
right;
end;
end.
Задание 3
Задано двузначное число. Нужно поменять местами первую и вторую цифры числа.
Var _________________;
Begin
Write('введите значение ___ ');
Read(____);
a1:=a ___ 10; {Выделение последней цифры в двузначном числе}
a2:=a ___ 10; {Выделение первой цифры в двузначном числе}
b:=a1 * ___ + a2;
Write('искомое число =',___);
End.
Решение
Var a1,a2,a,b:integer;
Begin
Write('введите значение a=');
Read(a);
a1:=a mod 10; {Выделение последней цифры в двузначном числе}
a2:=a div 10; {Выделение первой цифры в двузначном числе}
b:=a1 *10 + a2;
Write('искомое число =',b);
End.
Задание 4
Задано двузначное число. Найдите разность между количеством десятков и единиц
Решение
Var a1,a2,a,b:integer;
Begin
Write('введите значение a=');
Read(a);
a1:=a mod 10; {Выделение последней цифры в двузначном числе}
a2:=a div 10; {Выделение первой цифры в двузначном числе}
b:=a2 - a1;
Write('искомое число =',b);
End.