0 / 0 / 0
Регистрация: 01.06.2013
Сообщений: 32
1

Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет

20.08.2013, 18:52. Показов 32927. Ответов 5
Метки нет (Все метки)

Помогите решить задачу.
Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет.
С объяснениями, пожалуйста.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.08.2013, 18:52
Ответы с готовыми решениями:

Дано вещественное число - цена 1 кг конфет. Вывести стоимость 0.1,0.2, .1 кг конфет
дано вещественное число-цена 1кг конфет. вывести стоимость 0.1,0.2, ...1кг конфет.

Дано вещественное число – цена 1кг конфет Вывести стоимость 01, 02,…, 1кг конфет
1.Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2,…, 1кг конфет.

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет
4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. А с этим как...

5
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.08.2013, 19:04 2
Pascal
1
2
3
4
5
6
7
8
9
var a:real; //стоим. 1 кг
    i:byte; //счетчик
begin
write('Введите цену 1 кг конфет a=');
read(a);
for i:=1 to 10 do//10 раз через 100 грамм
//выводим вес в виде 0.1 и стоимость в виде 111.11
writeln(i/10:0:1,' кг стоят ',i*a/10:0:2)
end.
0
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
20.08.2013, 19:09 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
 
var
  p: real; // цена
  m: real; // вес
 
begin
  m := 1;
  repeat // поскольку цена может быть только положительной, считываем значение p(цена) до тех пор, пока она не примет верное значение
    write('Введите цену 1 кг конфет: ');
    readln(p);
  until p > 0;
  while m >= 0.1 do
  // Уменьшаем m(массу) до тех пор, пока она не будет равняться 0,1
  begin
    writeln(m:0:1, ' кг конфет стоит ', m * p:0:2);  // Выводим соответствующее сообщение с каждым изменением m(массы)
    m := m - 0.1;
  end;
  readln;
 
end.
1
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.08.2013, 19:11 4
Цитата Сообщение от sobakabobik Посмотреть сообщение
readln;
readln;
Зачем это в АВС, да еще 2 раза?
0
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
20.08.2013, 19:14 5
У меня почему-то закрывалось окно когда 1 раз написал. Пишу на Delphi, с АВС не очень знаком. Поэтому так.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.08.2013, 19:17 6
Цитата Сообщение от sobakabobik Посмотреть сообщение
У меня почему-то закрывалось окно когда 1 раз написал.
Если написать
Pascal
1
read(p);
и потом 1 раз
Pascal
1
readln;
то закроется, а если
Pascal
1
readln(p);
то достаточно 1 readln;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.08.2013, 19:17
Помогаю со студенческими работами здесь

Дано вещество число - цена 1 кг конфет. Вывести стоимость 1,2,.., 10 кг конфет
Дано вещество число - цена 1 кг конфет. Вывести стоимость 1,2,.., 10 кг конфет.

Дано вещественное число - цена 1 кг кофет. Вывести 1.2, 1.4,...2 кг конфет.
Дано вещественное число - цена 1 кг кофет. Вывести 1.2, 1.4,...2 кг конфет. Благодарю за помощ!8-)

Напечатать таблицу стоимости 100,200,300....., 2000 г конфет(стоимость 1 кг конфет вводится с клавиатуры)
Дайте код прог. (Уважения Вам за вашу роботу) Напечатать таблицу стоимости 100,200,300.....,...

дана цена 1 кг конфет. найти стоимость 1.2кг; 1.3кг; и т.д до 2 кг
дана цена 1 кг конфет. найти стоимость 1.2кг; 1.3кг; и т.д до 2 кг.... помогите решить и в конце...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru