Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
denysd
0 / 0 / 1
Регистрация: 18.05.2012
Сообщений: 12
1

Дана информация о площади каждой комнаты в квартире. Найти общую площадь комнат

20.05.2012, 21:13. Просмотров 1508. Ответов 5
Метки нет (Все метки)

Помогите пожалуйста с задачей. Нужен код на паскале. Очень надо. Вот условие:

Вам будет предоставлена информация о площади каждой комнаты в квартире и стоимость одного квадратного метра. Необходимо рассчитать следующие значения для квартиры:

общую площадь комнат;
общую площадь всех спален;
стоимость квартиры.

Первая строка содержит два целых числа n и c - количество комнат в квартире и стоимость квадратного метра соответственно.

Каждая из следующих n строк содержит целое число ai (1 ≤ ai ≤ 100) и слово ti - площадь i-ой комнаты и ее тип соответственно. Слово ti может содержать только одно из следующих значений: "bedroom", "bathroom", "kitchen", "balcony", "other".

Выходные данные

Общая площадь всех комнат квартиры. Вторая строка - общая площадь всех спален в квартире. Третья строка содержит одно действительное число - стоимость квартиры с точностью не больше 10^-6.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2012, 21:13
Ответы с готовыми решениями:

Вычисление площади поверхности комнаты
Написать программу, учитывая необходимые типы данных, для вычисления площади...

Найти площадь, периметр,высоту,радиусы, длины и площади вписанной и описанной окружностей треугольников
Можете проверить задачу, пожалуйста, в чем-то здесь прокол. Прога запускается,...

Дана сторона квадрата, найти его периметр и площадь
помогите, пожалуйста:cry: дана сторона квадрата. найти его периметр и площадь....

Определить общую площадь треугольников
Помогите пожалуста....Составьте программу на Паскале. Даны длины сторон трех...

Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.
Помогите пожалуйста и мне! Дана длина окружности. Найти площадь круга,...

5
antbert
8 / 8 / 1
Регистрация: 28.03.2012
Сообщений: 126
20.05.2012, 21:18 2
А в чем трудности при написании?
0
denysd
0 / 0 / 1
Регистрация: 18.05.2012
Сообщений: 12
20.05.2012, 21:25  [ТС] 3
Я написал свой код но он только частично правильный могу выложить если надо. Извините за граматические ошибки просто пишу и говорю обычно по украински.
Вот он:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var s:string;
   n,c,d,i,q1,q2,q3,k:longint;
   q:real;
begin
readln(n,c);
q:=0;
q2:=0;
q1:=0;
q3:=0;
for i:=1 to n do
   begin
   read(d,s);
   if s='balcony' then q:=q+d/2;
   if s<>'balcony' then q3:=q3+d;
   if s='bedroom' then q2:=q2+d;
   q1:=q1+d;
   end;
q:=(q+q3)*c;
q1:=trunc(q1);
q2:=trunc(q2);
writeln(q1);
writeln(q2);
writeln(q);
end.
0
antbert
8 / 8 / 1
Регистрация: 28.03.2012
Сообщений: 126
20.05.2012, 21:56 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
name:string;
n,c,i,k,sum:longint;
sq,d,bedroom,bathroom,kitchen,balcony,other:real;
begin
writeln ('Please enter number of rooms and price per 1 m^2');
repeat
readln(n,c);
until (n>0) and (c>0) and (n mod 1=0) and (c mod 1 = 0);
writeln ('Please enter size (m^2) and name of room ');
repeat
readln(d,name);
sq:=sq+c*d;
 
if name='balcony' then balcony:=balcony+c*d;
if name='bedroom' then bedroom:=bedroom+c*d;
if name='bathroom' then bathroom:=bathroom+c*d;
if name='kitchen' then kitchen:=kitchen+c*d;
if name='other' then other:=other+c*d;
inc (i);
until (i=n) and (d>0);
 
writeln ('Total area of the bedroom: ');
writeln (bedroom);
 
writeln ('Statistics of rooms');
writeln ('balcony - ',balcony);
writeln('bedroom - ' ,bedroom);
writeln ('bathroom - ',bathroom);
writeln ('kitchen - ', kitchen);
writeln ('other - ', other);
 
writeln ('Total floor area of the house');
writeln (sq);
 
end.
На ошибки проверьте.
1
denysd
0 / 0 / 1
Регистрация: 18.05.2012
Сообщений: 12
20.05.2012, 22:04  [ТС] 5
только есть одна проблема. Виноват што сразу не сказал што у меня есть пример входных и выходных данных. Вот они:

Приклад
Приклад вхідних даних
Sample 1
6 75000
8 other
3 bathroom
2 bathroom
10 kitchen
16 bedroom
7 balcony

Извините што то у меня с вордом проблеми што то он викривляет текст вобщем условие такое
Квартира
Вы являетесь одним из разработчиков программного обеспечения для агентства недвижимости. Вам следует реализовать различные статистические функции для квартир, которые продает агентство. Каждая квартира состоит из различных типов комнат: спальня, ванная комната, кухня, балкон и другие.

Стоимость квартиры равна произведению уменьшенной общей площади и стоимости одного квадратного метра. Уменьшенной общей площадью считается общая площадь всех помещений кроме балконов плюс половина площадей всех балконов.

Вам будет предоставлена информация о площади каждой комнаты в квартире и стоимость одного квадратного метра. Необходимо рассчитать следующие значения для квартиры:

общую площадь комнат;
общую площадь всех спален;
стоимость квартиры.

Технічні умови
Входные данные

Первая строка содержит два целых числа n (1 ≤ n ≤ 10) и c (1 ≤ c ≤ 100000) - количество комнат в квартире и стоимость квадратного метра соответственно.

Каждая из следующих n строк содержит целое число ai (1 ≤ ai ≤ 100) и слово ti - площадь i-ой комнаты и ее тип соответственно. Слово ti может содержать только одно из следующих значений: "bedroom", "bathroom", "kitchen", "balcony", "other".

Выходные данные

Первая строка содержит одно целое число - общую площадь всех комнат квартиры. Вторая строка содержит одно целое число - общую площадь всех спален в квартире. Третья строка содержит одно действительное число - стоимость квартиры с точностью не больше 10-6.

Следующий рисунок отображает план квартиры, заданной в первом примере.
0
denysd
0 / 0 / 1
Регистрация: 18.05.2012
Сообщений: 12
20.05.2012, 22:54  [ТС] 6
тут не с рисунками тут грубо считать надо ( мне так подсказали ) посмотрите еще вот што http://www.cyberforum.ru/pascal/thread580848.html#post3058666
0
20.05.2012, 22:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.05.2012, 22:54

Написать программу ,которая выводит суммарную площадь каждой комнаты.Найти суммарную площадь все комнат в этом доме
Помогите пожалуйста! В доме шесть комнат ,каждая из которых имеет форму...

Составить программу определения числа комнат в музее и площади каждой комнаты в клетках
Вариант 6 Комнаты музея. Составьте программу определения числа комнат в музее и...

Составьте алгоритм-программу определения числа комнат в музее и площади каждой комнаты в клетках
Уважаемые программисты, очень прошу помочь написать следующую программу: ...


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

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

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