Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
михаил111
0 / 0 / 0
Регистрация: 29.03.2011
Сообщений: 27
1

Переделать предусловие на постусловие

14.05.2011, 20:08. Просмотров 878. Ответов 3
Метки нет (Все метки)

как переделать на постусловие?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 i,w,k: integer;
 f: boolean;
begin
 write('enter w: ');
 readln(w);
 k:=2;
 while k<>w do
  begin
   for i:=2 to k-1 do
    if k mod i = 0 then f:=true;
   if f=false then writeln(k);
   f:=false;
   ink(k);
  end;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2011, 20:08
Ответы с готовыми решениями:

Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)
Здравствуйте. Нужно программно решить систему с использованием трёх видов операторов цикла...

Нахождение положительных четных чисел, меньших а (постусловие)
составит программу нахождения положительных четных чисел меньших а (а ввод с клав)

Найти сумму положительных членов использую постусловие и параметр
Создать последовательность по формуле {a}_{i}=ln(i)*sin(i/7) и сохранить её в файл, округлив...

Предусловие-цикл-постусловие
Доброго времени суток. Хочу обратиться к Вам за помощью. Нужно решить задачу. Дано Е Нужно...

Задача на Предусловие,постусловие
Здравствуйте! Сделал задачу,но не работает предусловие,помогите пожалуйста.... procedure...

3
mr. Spock
20 / 20 / 22
Регистрация: 01.01.2011
Сообщений: 198
14.05.2011, 20:12 2
Pascal
1
2
3
4
5
6
7
8
9
repeat
 begin
 for i:=2 to k-1 do
if k mod i = 0 then f:=true;
if f=false then writeln(k);
f:=false;
ink(k);
 end
 until k<>w;
0
михаил111
0 / 0 / 0
Регистрация: 29.03.2011
Сообщений: 27
15.05.2011, 11:25  [ТС] 3
НЕ РАБОТАЕТ
0
Humanoid
Почетный модератор
10031 / 3909 / 354
Регистрация: 12.06.2008
Сообщений: 11,455
15.05.2011, 11:34 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно сделать так, но это плохая идея. В данном случае while лучше подходит.
Pascal
1
2
3
4
5
6
7
8
 k:=1;
 repeat
   ink(k);
   for i:=2 to k-1 do
    if k mod i = 0 then f:=true;
   if f=false then writeln(k);
   f:=false;
  until k=w-1;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2011, 11:34

Найдите пару значений, при которых предусловие выполняется, а постусловие — нет
int area(int length, int width) // Вычисляет площадь прямоугольника; // предусловия: аргументы...

Как переделать програму с предусловием в с постусловие ?
#include &lt;iostream.h&gt; #include &lt;math.h&gt; //using namespace std; int main() { double x,a, eps;...

Подскажите пожалуйста, Как переделать на постусловие
Чего-то не сообразить, как переделать на постусловие. Так то ясно, что условие, если оно не...


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

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

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