Вычислить периметр и площадь прямоугольника по известным сторонам

@Александримя · Регистрация: 18.11.2012

Студворк — интернет-сервис помощи студентам

Создание модуля, содержащий процедуры и/или функции:
- периметр и площадь прямоугольника по известным сторонам;
- диагональ прямоугольника по известным сторонам;
- объем и площадь боковой поверхности параллелепипеда.
Написать программу, демонстрирующую работу созданного модуля.

я могу лишь найти отдельные программы. И может даже строго не подходить к заданиям,которые написаны выше.

Pascal

program perpr;
uses crt;
var
a:integer;
b:integer;
p:integer;
begin
p:=0;
write('Vvedite a=  ');
read(a);
write('Vvedite b=  ');
read(b);
p:=(2*a)+(2*b);
writeln('Perimetr raven= ',p);
read;
end.

Добавлено через 11 минут

Pascal

program plpr;
uses crt;
var
a:integer;
b:integer;
s:integer;
begin
s:=0;
write('Vvedite a=  ');
read(a);
write('Vvedite b=  ');
read(b);
s:=a*b;
writeln('Ploshad raven= ',s);
read;
end.

Добавлено через 12 минут

Pascal

program dldig;
uses crt;
var
a:integer;
b:integer;
d:real;
begin
d:=0;
Write('Vvedite a=  ');
readln(a);
write('Vvedite b=  ');
readln(b);
d:=sqrt(a*a+b*b);
writeln('Diagonal raven= ',d);
end.

Добавлено через 3 минуты

Pascal

uses crt;
var a,b,c,s:integer;
begin
clrscr;
writeln('Введите размеры сторон основания прямоугольного параллелепипеда:');
readln(a,b);
write('Боковое ребро=');
readln(c);
s:=2*c*(a+b);
writeln('Площадь боковой поверхности=',s);
readln
end.

Добавлено через 12 минут
и что они имели ввиду?нужно найти объем боковой поверхности(существует такая формула?) параллелепипеда или просто объем параллелепипеда.

@ermolay · 17.04.2013, 01:44

Сообщение от Александримя

существует такая формула?

для прямоугольного параллелепипеда: S=2c(a+b)

модуль:

Pascal

unit paral;
 
interface
 
  procedure PandS(a,b: real);
  procedure d(a,b: real);
  procedure VandS(a,b,c: real);
 
implementation
 
  procedure PandS(a,b: real);
  begin
    writeln('Периметр прямоугольника P = ',(a+b)*2:0:2);
    writeln('Площадь прямоугольника S = ',a*b:0:2);
  end;
  
  procedure d(a,b: real);
  begin
    writeln('Диагональ прямоугольника d = ',sqrt(a*a+b*b):0:2);
  end;
  
  // для прямоугольного параллелепипеда
  procedure VandS(a,b,c: real);
  begin
    writeln('Объем параллелепипеда V = ',a*b*c:0:2);
    writeln('Площадь боковой поверхности S = ',2*c*(a+b));
  end;
 
end.

программа:

Pascal

uses paral;
var
  a,b,c: real;
begin
  write('Введите стороны прямоугольника a, b: ');
  readln(a,b);
  PandS(a,b);
  d(a,b);
  write('Введите стороны параллелепипеда a, b, c: ');
  readln(a,b,c);
  VandS(a,b,c);
end.

@Александримя · 17.04.2013, 11:40 **[ТС]**

ermolay, спасибо,но мне нужно в pascal abc.

Добавлено через 10 минут
ermolay, еще раз спасибо большое.всё работает,я разобрался.

@Александримя 2 / 2 / 2 Регистрация: 18.11.2012 Сообщений: 152
	17.04.2013, 11:40 [ТС]	3
	ermolay, спасибо,но мне нужно в pascal abc. Добавлено через 10 минут ermolay, еще раз спасибо большое.всё работает,я разобрался. 0

Опции темы