Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 18
1

Найти площадь 3х прямоугольников, используя подпрограммы

05.03.2015, 17:50. Показов 1366. Ответов 2
Метки нет (Все метки)

Даны действительные числа а1,b1(длина и ширина первого прямоугольника) a2,b2(длина и ширина второго прямоугольника) a3,b3(длина и ширина третьего прямоугольника) соответственно. Найти сумму площадей всех 3х фигур, используя процедуру с параметрами.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2015, 17:50
Ответы с готовыми решениями:

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

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

Среди прямоугольников матрицы, состоящих из нулей, найти тот, который имеет наибольшую площадь
Помогите решить задачу Дана целочисленная матрица i=1 ,..., n ; j=1 ,..., m . Прямоугольником...

Найти корни уравнений. Используя методы прямоугольников, трапеций, Симпсона и тд.
Помогите пожалуйста с решением! Ато вообще ничего не понимаю в Паскале 1. Метод Симпсона: ...

__________________
2
105 / 105 / 51
Регистрация: 11.04.2014
Сообщений: 160
05.03.2015, 18:27 2
Лучший ответ Сообщение было отмечено wwwgop как решение

Решение

Цитата Сообщение от wwwgop Посмотреть сообщение
Даны действительные числа а1,b1(длина и ширина первого прямоугольника) a2,b2(длина и ширина второго прямоугольника) a3,b3(длина и ширина третьего прямоугольника) соответственно. Найти сумму площадей всех 3х фигур, используя процедуру с параметрами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function S(x,y:real):real;
       begin
           S:=x*y;
       end;
var a,b: real;
    sum: real;
    i:integer;
    begin
    sum:=0;
    for i:=1 to 3 do
    begin
         write('Enter a,b: '); readln(a,b);
         sum:=sum+S(a,b);
    end;
    writeln('Summa: ',sum);
    end.
Добавлено через 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure S(x,y:real; var s1:real);
       begin
           s1:=s1+x*y;
       end;
var a,b: real;
    sum: real;
    i:integer;
    begin
    sum:=0;
    for i:=1 to 3 do
    begin
         write('Enter a,b: '); readln(a,b);
         S(a,b,sum);
    end;
    writeln('Summa: ',sum);
    end.
Переделал под процедуру.
1
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 18
05.03.2015, 19:04  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2015, 19:04

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

Используя подпрограммы, найти наибольший угол треугольника АВС
Найти наибольший угол ( в градусах) треугольника АВС , заданного координатами своих вершин .заранее...

Подпрограммы: вычислить по методу прямоугольников
С погрешностью 0.001 вычислить по методу прямоугольников \int_{0}^{1}cos(x)dx+\int_{1}^{\pi...

Используя подпрограммы, найти минимальный или максимальный элемент в каждом столбике матрицы
Дана матрица MхN .Используя подпрограммы,найти максимальный или минимальный елемент в каждом...

Найти площадь четырёхугольника, используя функцию Герона
Народ, помогите решить плз... 1)Данна последовательность из 10 числе... Найти минимальное число в...


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

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

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