Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.06.2011, 21:52   #1 (permalink)
Абай
Member
 
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Процедура, Паскаль

Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B — целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.
Абай вне форума   Ответить с цитированием

Старый 12.06.2011, 21:52
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Содержательные ответы вы можете найти в похожих темах

Процедура удаления пробелов в строке
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Паскаль
Паскаль

Старый 13.06.2011, 10:42   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Абай Посмотреть сообщение
Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B — целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.
Код:
VAR
 A,B:Integer;

Function SumRange(As,Bs:Integer):LongInt;
Var
 SR:Longint;
 i:Integer;
Begin
 SR:=0;
 For i:=As to Bs do Inc(SR,i);
 SumRange:=SR;
End;

BEGIN
 Repeat
  Writeln('Enter A=0 and B=0 to quit');
  Write('A= ');
  Readln(A);
  Write('B= ');
  Readln(B);
  Writeln('Sum= ',SumRange(A,B));
 Until (A=0) and (B=0);
END.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:01.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.