Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 13.05.2018, 20:19   #1 (permalink)
ZEDT
Новичок
 
Регистрация: 13.05.2018
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Прогресии

Добрый вечер, помогите пожалуйста с решением данной задачки на ЯП (PASCAl)
Задачка:
Составить программу, вычисляющую сумму возрастающей арифметической прогрессии прямым суммированием слагаемых. Определить минимальное число слагаемых, нужных для переполнения слова. Программа не должна выдавать ошибку переполнения. С клавиатуры задается начальный член и шаг прогрессии
ZEDT вне форума   Ответить с цитированием
Старый 13.05.2018, 20:25   #2 (permalink)
pofig13
PCHеlp*****
 
Аватар для pofig13
 
Регистрация: 22.08.2010
Адрес: город-геморрой Москва
Сообщений: 12,759
Сказал(а) спасибо: 275
Поблагодарили 47 раз(а) в 20 сообщениях
Репутация: 38402
По умолчанию

это хорошо что вот это
Цитата:
Сообщение от ZEDT Посмотреть сообщение
Составить программу, вычисляющую сумму возрастающей арифметической прогрессии прямым суммированием слагаемых. Определить минимальное число слагаемых, нужных для переполнения слова. Программа не должна выдавать ошибку переполнения. С клавиатуры задается начальный член и шаг прогрессии
я трезвым прочитал , был бы датый .... дураком бы остался на всю жизнь

__________________
Самолет мой гудит. Тяжело моему самолету. Скорей бы Пёрл-Харбор...
pofig13 на форуме   Ответить с цитированием
Старый 13.05.2018, 20:41   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,542
Сказал(а) спасибо: 259
Поблагодарили 487 раз(а) в 154 сообщениях
Репутация: 84095
По умолчанию

Цитата:
Сообщение от pofig13 Посмотреть сообщение
это хорошо что вот это я трезвым прочитал , был бы датый .... дураком бы остался на всю жизнь
Да брось ты — элементарная школьная задачка. Единственная "изюминка" — обход переполнения. Но и это просто.
P.S. Да и лекция по основам органической химии сложна разве что для этого дьяволоподобного кота. Замечу, правда, что когда я учился, термин "алканы" был не в ходу. Мы говорили "предельные углеводороды".
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 13.05.2018, 20:58   #4 (permalink)
pofig13
PCHеlp*****
 
Аватар для pofig13
 
Регистрация: 22.08.2010
Адрес: город-геморрой Москва
Сообщений: 12,759
Сказал(а) спасибо: 275
Поблагодарили 47 раз(а) в 20 сообщениях
Репутация: 38402
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Да брось ты — элементарная школьная задачка. Единственная "изюминка" — обход переполнения. Но и это просто.
когда третий раз прочтёшь)), а с первого как то в дурку хочется))
Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
сложна разве что для этого дьяволоподобного кота.
кот красавец , в химии я вообще за него)
__________________
Самолет мой гудит. Тяжело моему самолету. Скорей бы Пёрл-Харбор...
pofig13 на форуме   Ответить с цитированием
Старый 19.05.2018, 21:22   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,542
Сказал(а) спасибо: 259
Поблагодарили 487 раз(а) в 154 сообщениях
Репутация: 84095
По умолчанию

Код:
Var
 a1,d,N,S:Word;

Begin
 Write('a1 = '); Readln(a1);
 Write('d = '); Readln(d);
 S:=a1;
 N:=1;
 Writeln('N = ',N:5,'   S = ',S:5);
 Repeat
  if S<=65535-d then
   begin
    S:=S+d;
    N:=N+1;
    Writeln('N = ',N:5,'   S = ',S:5);
   end;
 Until S>65535-d;
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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