Прогресии

ZEDT · 13.05.2018, 20:19

Добрый вечер, помогите пожалуйста с решением данной задачки на ЯП (PASCAl)
Задачка:
Составить программу, вычисляющую сумму возрастающей арифметической прогрессии прямым суммированием слагаемых. Определить минимальное число слагаемых, нужных для переполнения слова. Программа не должна выдавать ошибку переполнения. С клавиатуры задается начальный член и шаг прогрессии

pofig13 · 13.05.2018, 20:25

это хорошо что вот это

Цитата:

Сообщение от ZEDT

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

я трезвым прочитал , был бы датый .... дураком бы остался на всю жизнь

Vladimir_S · 13.05.2018, 20:41

Цитата:

Сообщение от pofig13

это хорошо что вот это я трезвым прочитал , был бы датый .... дураком бы остался на всю жизнь

Да брось ты — элементарная школьная задачка. Единственная "изюминка" — обход переполнения. Но и это просто.
P.S. Да и лекция по основам органической химии сложна разве что для этого дьяволоподобного кота. Замечу, правда, что когда я учился, термин "алканы" был не в ходу. Мы говорили "предельные углеводороды".

pofig13 · 13.05.2018, 20:58

Цитата:

Сообщение от Vladimir_S

Да брось ты — элементарная школьная задачка. Единственная "изюминка" — обход переполнения. Но и это просто.

когда третий раз прочтёшь)), а с первого как то в дурку хочется))

Цитата:

Сообщение от Vladimir_S

сложна разве что для этого дьяволоподобного кота.

кот красавец , в химии я вообще за него)

Vladimir_S · 19.05.2018, 21:22

Код:

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.

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

19.05.2018, 21:22	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Код: 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.

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