Суббота, 18.11.2017, 09:22
Приветствую Вас Гость | RSS
Главная | Урок 41 | Регистрация | Вход
Меню сайта
Форма входа
Поиск
Опрос
Помог ли Вам мой сайт
Всего ответов: 40
Полезно

Управление по делам образования г.Челябинска

Учебно-методический центр г.Челябинска

Служба информационно-аналитического обеспечения Калининского района г.Челябинска

Олимпийский образовательный портал

Вход в Электронный журнал

Блог АС "Сетевой город.Образование"

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сайт заместителя директора по УВР
Тема: Алгоритм "цикл". Решение задач.


Циклический алгоритм с предусловием




While <логическое выражение> Do <тело цикла>

Циклический алгоритм с постусловием




Repeat <тело цикла> Until <логическое выражение>

Цикл с параметром


1) For I:=In to Ik Do <тело цикла>
2) For
I:=In downto Ik Do
<тело цикла>

Задача 1. Вычислить  сумму натурального ряда чисел от 1 до N.





procedure
TForm1.Button1Click(Sender: TObject);
var
  n,s,a: integer;
begin
  s:=0 ;
  a:=1;
  n:=StrToInt ( Edit1.Text ) ;
  for a:=1 to n do s:=s+a;
  Label3.Caption:= 'Ответ: '+FloatToStr (s);
end;


Задача 2. Вычислить произведение натурального ряда чисел от 1 до N.
Примечание: s:=1.



Задача 3. Вычислить квадрат суммы натурального ряда чисел от 1 до N.
Бесплатный хостинг uCozCopyright MyCorp © 2017