Для каждого дня первой декады месяца известно количество выпущенных изделий (ввести значения количества выпущенных изделий самостоятельно). Определить среднедневной выпуск, минимальное и максимальное количество изделий, изготовленных за 1 день. (таблица в Excel)
pascal
Объяснение:
program photo;
var
a, b: integer;
begin
WriteLn('Введите размер фотографии в см: ');
Write('длина: '); ReadLn(a);
Write('ширина: '); ReadLn(b);
WriteLn('Размер отсканированного изображения разрешением 600 пиксел/дюйм');
WriteLn('при 24-битном кодировании будет равен:');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24:12:2, ' бит');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8:12:2, ' байт');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024:12:2, ' Кбайт');
WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024 / 1024:12:2, ' Мбайт');
end.
1. Ввод - Гвозди, картина молоток, стена
2. Операция - Прибить гвоздь к стене при молотка
3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2;
Да->Переходим к пункту 4
4. Повесить картину на гвоздь
5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины;
Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.