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

Переделать программу из цикла for в цикл repeat

23.10.2013, 18:14. Просмотров 885. Ответов 1
Метки нет (Все метки)

Вот она циклом "for"
uses crt;
var i,k,n:integer;
begin
clrscr;
write('N -> ');
readln(n);
k:=0;
for i:=100 to 999 do if i div 100+i mod 100 div 10+i mod 10=N then inc(k);
writeln(k);
readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2013, 18:14
Ответы с готовыми решениями:

Цикл While переделать на цикл repeat until
как из While переделать на цикл repeat until

Переделать задачу с цикла while на repeat/until
Здравствуйте. Нужна такая помощь: необходимо задачу переделать с циклом...

Как из цикла repeat-until сделать цикл for?
Как из цикла repeat-until сделать цикл for? Вот сама программа: program L4;...

Как из цикла for сделать цикл repeat-until?
Как из цикла for сделать цикл repeat-until? Вот программа: program zadanie4;...

Готовую программу переделать под for и repeat
program example35_2; var i,x,r:integer; begin writeln ('vvedite kurs');...

1
ildwine
Супер-модератор
2989 / 1871 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
23.10.2013, 18:21 2
Лучший ответ Сообщение было отмечено Kosmodzila007 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i, k, n : integer;
begin
  clrscr;
  write('N -> ');
  readln(n);
  k := 0;
  i := 100;
  repeat
    if i div 100 + i mod 100 div 10 + i mod 10 = N
    then inc(k);
    inc(i)
  until i = 999;
  writeln(k);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2013, 18:21

Модифицировать программу используя оператор цикла REPEAT . UNTIL
Помогите пожалуйста модифицировать программу через оператор цикла REPEAT ... ...

Написать программу для решения задачи с использованиес цикла repeat-until
Пусть x0=1 xk=2-(x3k-1)/5,k=1.2... найти первый член xn для которого xn-xn-1 <...

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


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

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

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