Помощь - Поиск - Пользователи - Календарь
Полная версия: необходимо составить блок схему и программу для паскаля
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
pifa
задача: "Разобрать алгоритм нахождения суммы и количества чисел натурального ряда кратных пяти и не превосходящих N.Значение N вводится с клавиатуры". с условиями IF, REPEAT, WHILE и FOR. заранее большое спасибо.
Krjuger
Молодой человек,скиньте хотябы ваши наработки,или вы думаете,что вы кинули задачу и все встали в очередь,чтобы ее решить?И еще такой вопрос,каким образом алгоритм относится к паскалю?Составить алгоритм - это создать последовательность определенных действий, приводящих к необходимому(желаемому) результату.Алгоритм решения задачи на всех языках будет одинаков,просто его реализация будет зависеть от структуры самого языка.
Цитата
с условиями IF, REPEAT, WHILE и FOR.

Тоже не совсем понятно,Надо чтобы все 4 присутстовали в одной программе,или чтобы задача решалась,всеми 4 способами???
pifa
Цитата(Krjuger @ 28.05.2009 23:21) *

Молодой человек,скиньте хотябы ваши наработки,или вы думаете,что вы кинули задачу и все встали в очередь,чтобы ее решить?И еще такой вопрос,каким образом алгоритм относится к паскалю?Составить алгоритм - это создать последовательность определенных действий, приводящих к необходимому(желаемому) результату.Алгоритм решения задачи на всех языках будет одинаков,просто его реализация будет зависеть от структуры самого языка.

Тоже не совсем понятно,Надо чтобы все 4 присутстовали в одной программе,или чтобы задача решалась,всеми 4 способами???

требовалось составить блок-схему, получилось что-то такое. И в 4-х вариантах сделать.
а получилось написать только начало программы
Programm abc;
uses crt;
var N, i, S: intege;
begin
clrscr
writeln ('введите число')
resdln (i)
s:=0

Ozzя
Ну, почти правильно rolleyes.gif схема начерчена. Единственное, что не верно выполняете условие "кратных пяти".
i будет пробегать 1,5,9,14, ...
Разумнее поставить дополнительное условие
if i mod 5=0 then ...

Кстати, "не превосходящих N" будет n<=0
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.