Вторник, 30.09.2014, 15:47
Вы вошли как Гость | Группа "Гости"Приветствую Вас Гость
Главная граница
.
Меню сайта
Мини-чат -=-
Статистика

Онлайн всего: 6
Гостей: 6
Пользователей: 0

Каркасные дома - проекты каркасных коттеджей и домов - построй свою мечту!
Главная » Файлы » Задачи Pascal » Линейные программы

Задача №25
07.08.2011, 18:25
Хозяин хочет оклеить обоями длинную стену в своем доме. Длина этой стены равна а и высота б. Рулон обоев имеет длину 12 м и ширину 1 м. Сколько будут стоить обои для всей стены если цена одного рулона к руб.

uses crt;

var a,b,c,d,price,payment,k:real;

begin;

clrscr;

writeln('Введите параметры стены(высота)');

readln(a);

writeln('Введите параметры стены(ширина)');

readln(b);

writeln('Введите стоимость одного рулона обоев');

readln(price);

writeln('Введите длину рулона обоев)');

readln(d);

writeln('Введите ширину рулона обоев');

readln(c);

k:=b/((d/a)*c)+1;

payment:=k * price;

writeln('Обои для всей стены будут стоить ',payment:7:2,' руб.');

writeln('Вам потребуется купить',k,' рулонов');

end.

Категория: Линейные программы | Добавил: The_Programmer

Просмотров: 2296 | Рейтинг: 5.0/2
Всего комментариев: 0
Имя *:
Email:
Код *:
Меню раздела
Наш опрос
Вы играете в онлайн игры?
Всего ответов: 858