1
2
3
4
Определить сумму и частное двух целых чисел
Части программы
объявление переменных;
ввод исходных данных;
решение задачи;
вывод результатов.
Сегодня
20 сентября 2012 года
Школа №43
Фрагмент программы
Результат выполнения
фрагмента программы
Введите два числа 7 4
Введите третье число 6
Фрагмент
программы
Результат выполнения
фрагмента программы
Числовые значения вводятся с клавиатуры и присваиваются переменным a, b, c
Дано:
С – цена товара
К – количество кг.
М – количество
поданных денег
Найти:
S – стоимость покупки
Р – размер сдачи
Решение:
S = C * K
P = M – S
var c, k, s, p, m: real;
Begin
write (‘Введите цену ‘);
readln (с);
write (‘Введите кол-во кг. ‘);
readln (к);
write (‘Введ. поданные деньги ‘);
readln (m);
s := c * k;
p := m – s;
writeln (‘Стоимость покупки = ’,s);
writeln (‘Размер сдачи = ’,p);
end.
4
1
2
3
Дано:
К – количество руб.
Найти:
D – количество долларов
Решение:
D = K / 36,38
Write (‘Введите кол-во рублей ‘);
Readln (k);
d := k / 36.38;
Writeln (‘Кол-во долларов = ’,d);
End.
Var d: real; k: integer;
4
1
2
3
Uses crt;
Begin
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть