Решить задачу, используя оператор repeat.

[Дашка Шалахан]

Решить задачу, используя оператор repeat.

100 г. конфет стоит 3000р. Вывести на экран стоимость 200, 400, 600, 800, 1000, 1200г.

 

[Plastinator]

Клинический случай, эта задача настолько "сложна", что я даже боюсь писать этот код из нескольких миллионов строк.
P.S: Дорогие конфетки ^^

 

[MrSTEP]

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

 

[Дашка Шалахан]

Епт... :tehnari_ru_281:И что же вы, раз все так просто, не соизволили написать текст прогр.? Я вопрос задавала для того, чтоб получить ответ, а не для того чтоб читать мысли "гениев" о степени сложности задачи и иронию в свой адрес!!!:tehnari_ru_184: Могли бы и промолчать.:tehnari_ru_267:

 

[Дашка Шалахан]

:tehnari_ru_117:

 

[MrSTEP]

Реальная помощь - это подтолкнуть человека в верном направлении, помочь ему в определенных сложных ситуациях, что я вам и предлагаю. На таких задачах учатся азам. а если их не поймете, то дальше вообще никак. И будьте спокойнее, мы реально помочь хотим. А в данном случае помощь - это подсказки в тех местах, где человек путается или что-то не понимает

 

[Дашка Шалахан]

что-то я не вижу ни одной подсказки!! =/

 

[MrSTEP]

А я не вижу ни одной вашей наработки или хотя бы конкретного вопроса о том, что вам непонятно

 

[Дашка Шалахан]

ничего мне не понятно. НИ-ЧЕ-ГО!!!

 

[MrSTEP]

Кхм-кхм... Для начала попробую на словах описать алгоритм: вам в цикле нужно рассчитать стоимость 1200 грамм конфет. Шаг изменения веса 200 грамм. Следовательно, на каждом шаге цикла вам надо увеличивать некую переменную на 200, и умножать на цену за 1 гр конфет (30 рублей). Из цикла надо выйти тогда, когда достигнем веса в 1200 грамм. И все. понятно это?

 

[Дашка Шалахан]

ага, понятно. а почему 1 гр. 30 рублей, а не 3?))

 

[Дашка Шалахан]

понятно то мне понятно, а вот как это правильно записать, я не знаю!!!

 

[MrSTEP]

100гр = 3000р (исходя из вашего условия); 10гр = 300р; 1гр = 30р. Ладно, так и быть напишу вам эту несчастную программу.

var c,w:word;
begin
 w:=0;
 repeat
  w:=w+200;
  c:=w*30;
  writeln ('Cost of ', w, 'gr of sweets is ', c, 'r.');
 until w=1200;
 readln;
end.

 

[MrSTEP]

То есть надо строго больше?

 

[MrSTEP]

проверил задачу. Как раз-таки, если сделать строго больше, то последнее значение получаем 1400 грамм, а с равенством и нестрогим неравенством получаем все верно. И кстати, тип переменных надо заменить на word (программа писалась с телефона, посему не проверял ее)

 

[MrSTEP]

Ну вот. Вношу коррективы в код

 

[Дашка Шалахан]

спс..)
только вот почему это сразу нельзя было написать?


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

 

[Дашка Шалахан]

Так, а почему это что-то там ввести нужно??..=\

 

[shrek=)]

Даша, если вы укажете в приведенном листинге ещё один оператор ввода, кроме задержки - то вы гений

 

[MrSTEP]

Это ввод для отображения ответа непосредственно после выполнения программы