Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 15
1

Ввести сумму дохода семьи и вывести как сумма будет распределяется по процентам на продукты

06.02.2016, 04:44. Показов 897. Ответов 3
Метки нет (Все метки)

Pascal: Нужно ввести сумму дохода семьи и вывести как эта сумма будет распределяется по процентам
43% - питание
20% - мероприятия
10% - наёмные услуги
27% - покупки
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2016, 04:44
Ответы с готовыми решениями:

Что будет выведено на экран? Обьясните как распределяется память
.Что будет выведено на экран в результате работы програм-мы? Какие задачи решает процедура?...

Ввести с клавиатуры данные годового дохода в массив, отсортировать записи в массиве по убыванию годового дохода
Как отсортировать записи по убыванию?

Вывести наибольшее из целых N, для которых сумма 1+1\2+...+1\N будет меньше А, и саму эту сумму.
Здравствуйте. Помогите пожайлуста решить задачку. Заранее спасибо! Задача: Дано вещественное...

Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.
1) Дано вещественное число А (>1). Вывести наименьшее из целых чисел N, для которых сумма...

__________________
3
143 / 128 / 46
Регистрация: 12.08.2015
Сообщений: 1,202
Записей в блоге: 1
06.02.2016, 08:03 2
Лучший ответ Сообщение было отмечено daver как решение

Решение

Вот так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var N:Integer;
var F1:Real;
 
begin
WriteLn('Vvedite dokhod:');
ReadLn(N);
WriteLn('');
F1 := 0;
F1 := (N*43/100);
WriteLn('Pitanie (43%):        ',FloatToStr(F1));
F1 := (N*20/100);
WriteLn('Meropriyatiya (20%):  ',FloatToStr(F1));
F1 := (N*10/100);
WriteLn('N. Uslugi (10%):      ',FloatToStr(F1));
F1 := (N*27/100);
WriteLn('Pokupki (27%):        ',FloatToStr(F1));
ReadLn(N);
end.
1
0 / 0 / 0
Регистрация: 06.02.2016
Сообщений: 15
06.02.2016, 08:18  [ТС] 3
Да, спасибо большое.
0
Модератор
8410 / 4161 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
06.02.2016, 20:25 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

RostorLuxor, для обычного паскаля не требуется при выводе результата использовать floattostr. Не надо писать WriteLn(''), и ReadLn тоже вполне нормально себя чувствует без аргумента. Мы не в C++ каком-нибудь. И F1 := 0 зачем? Вот, выкинул всё ненужное и несуразное:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var N: Real;
begin
Write('Vvedite dokhod: ');
ReadLn(N);
WriteLn;
WriteLn('Pitanie (43%):        ', N * 0.43:0:2);
WriteLn('Meropriyatiya (20%):  ', N * 0.2:0:2);
WriteLn('N. Uslugi (10%):      ', N * 0.1:0:2);
WriteLn('Pokupki (27%):        ', N * 0.27:0:2);
ReadLn
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2016, 20:25

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

Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
VI.Операторы цикла 19. Показать, что для всех п = 1, 2, 3, N (15 + 25 + ... + n5) + (17 + 27 +...

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2)...

Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
Надо решить две задачки выручите пожалуйста! 1.Дано вещественное число X и целое число N (> 0)....

Как ввести процент годового дохода
Ввести начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад...

Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+…+1/N будет больше A, и сумму
Добрый вечер всем. Нужна помощь в задании по Pascal ABC Само задание: Дано вещественное число...

Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму
Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет...


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

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

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