Любой цикл for можно переделать в while не особо думая:
for счетчик := начальное to конечное do
begin
что-то
end;
это тоже самое, что и
счетчик := начальное;
while счетчик <= конечное do
begin
что-то
счетчик := счетчик + 1;
end;
И там и там переменная счетчик сначала равна начальному значению, затем с ней что-то делают, и счетчик увеличивается. Если счетчик стал слишком большим, цикл прекращается.
Переделанная программа может выглядеть так:
program more;
var
s, i: integer;
begin
s := 0;
i := 20;
while i <= 40 do
begin
if (i mod 2) = 0 then
s := s + i;
i := i + 1;
end;
writeln(s)
end.
Объяснение:
Подивись на скріни. Спочатку тобі потрібно нажати на Вставити функцию(У мене російською, але, я гадаю, ти зрозумієш). Потім, якщо в тебе українською, пишеш ЧАС(Якщо в тебе Excel також російською, то пиши ВРЕМЯ). Натискаєш, та пишеш час. Потім, у колонці С, тисни = і обирай кількість людей(Колонка В) помножити на стандартну ціну за білет помножити на множник для відрахування 10%. У час з 10 ранку до 10 вечора на множник можна не множити - тільки людей на ціну білета.
У файлі я добавив, знизу справа, сумму за всі білети. Тобі залишилося заповнити В і С, і воно само порахує сумму всіх грошей за день.
1)Линейный алгоритм — это алгоритм, образуемый командами, которые выполняются однократно и именно в той последовательности, в которой записаны.
2) потому-что у неё нету условий и т.д (к примеру if)? линейная программа - это, та программа, у которой только прямые действия (вычисления).
3)В отличие от линейных алгоритмов, в которых команды выполняются последовательно одна за другой, в алгоритмическую структуру «ветвление» входит условие, в зависимости от выполнения или невыполнения которого реализуется та или иная последовательность команд (серия).
4)Взаимодействие программы с внешней средой (пользователем, другими программами, хранимыми данными) является совершенно необходимым.
5)write,writeln,read,readln,printf,scanf,cin,cout, всё зависит от языка.
6)TEdit
7)Lazarus — открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal. Основная цель — предоставление кроссплатформенных и свободных средств разработки в Delphi-подобном окружении
8)1всплывающее окно
2 писать текст в уже привычных нам всплывающих окнах
9)Компьютерные программы обрабатывают (изменяют) различные данные. Программа получает данные, что-то делает с ними и выводит их в измененной форме или выводит другие данные.
Рада была !