Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 13
1

Циклы в Паскале (циклы с пост- и предусловием)

20.01.2014, 23:41. Просмотров 1477. Ответов 1
Метки нет (Все метки)

Требуется напиcать программу, которая запрашивает числа с клавиатуры до тех пор, пока сумма чисел не превысит 25 или введенное число не будет отрицательным.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2014, 23:41
Ответы с готовыми решениями:

Программа на циклы с пост и предусловием
5.103. Дано натуральное число. Вывести на экран все его делители, меньшие, чем оно само, через...

Нужно переделать программу с циклом по параметру в циклы с пост- и предусловием (repeat и while)
Никак не получается( program e1; uses crt; var d,r,u,g: integer; begin for d:=1 to 9 do for...

Циклы с предусловием
Даны действительное и натуральное n. Вычислить: а(а+1)...(а+n-1).

циклы с предусловием и постусловием
Ребятки!!!!!!!!!Помогите пожалуйста!!!!!!!!!! Составить программу для задачи"подсчитать сумму чисел...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30599 / 19972 / 7801
Регистрация: 22.10.2011
Сообщений: 34,773
Записей в блоге: 6
21.01.2014, 00:36 2
Лучший ответ Сообщение было отмечено Oliva999 как решение

Решение

И куда эти числа складывать? Просто вводить? Вот так (постусловие):
Pascal
1
2
3
4
5
6
7
8
9
10
11
var 
  X, s : real;
  
begin
  s := 0;
  repeat
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  until (X < 0) or (s > 25);
  writeln('s = ', s:0:0);
end.
Предусловие:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var 
  X, s : real;
  
begin
  s := 0;
  X := 0;
  while (X >= 0) and (s <= 25) do
  begin
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  end;
  writeln('s = ', s:0:0);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2014, 00:36

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

циклы с предусловием и постусловием
Общий член последовательности задан формулой :a=n/5+2n+1 . Суммировать первые n членов...

Циклы с предусловием и с постусловием (while, do.while)
6. Вводится точность e. Вычислить сумму ряда Вычисления продолжать до тех пор, пока очередное...

Итеративные циклы с предусловием.
Вычислить и вывести те члены последовательности, ( (x^2) / (2!) ), -( (x^3) / (3!) ), ...., (...

Циклы с предусловием и постусловием
file:///C:/Users/User/Documents/Bandicam/bandicam%202018-01-13%2019-59-10-132.jpg решите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.