Как найти диагональ в прямоугольнике паскаль

Как найти диагональ в прямоугольнике паскаль



Ученик

(85),
закрыт



10 лет назад

Дополнен 10 лет назад

написал но почему то диагональ не такой ответ

Krag

Мастер

(1311)


10 лет назад

var a,b:real;
begin
Write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
writeln(‘p=’,2*(a+b));
writeln(‘s=’,(a*b));
writeln(‘d=’,sqrt(a*a+b*b));
end.

Jurii

Высший разум

(175098)


10 лет назад

var a, b : Integer;
begin
Write(‘a = ‘); ReadLn(a);
Write(‘b = ‘); ReadLn(b);
WriteLn(‘Периметр P = ‘, 2*(a+b));
WriteLn(‘Площадь S = ‘, a*b);
WriteLn(‘Длина диагонали d = ‘, Sqrt(a*a+b*b):0:5);
end.

Источник

Формулировка задачи:

помогите пожалуйста, паскаль Описать процедуру RectDiag(a, b, d), вычисляющую диагональ прямоугольника со сторонами a, b (a, b — входные, d — выходной параметр вещественного типа).

Код к задаче: «Описать процедуру RectDiag(a, b, d), вычисляющую диагональ прямоугольника со сторонами a, b .»

textual

procedure RectDiag(a, b:real;var d:real);
begin
d:=sqrt(a*a+b*b);
end;

Полезно ли:

5   голосов , оценка 4.000 из 5

Источник

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

1)даны длины сторон прямоугольника.найти его периметр и длину диагонали.
2)Составит программу,которая отгадывает натуральное четное число,,загаданное пользователем.
пример:загадайте натуральное число.
прибавьте к нему 4
уменьшите на 6
поделите на 2
что получилось?
3.
вы загадали число 8!!!!

3)дано расстояние в метрах.Найти число полных километров в нем.
4)Дано трёхзначное число.найти сумму и произведение его цифр.
5)Составить программу обмена значениями двух переменных.

спасибо заранее

Добавлено через 39 минут
помогите пожалуйста

Источник

gintharifo806

gintharifo806

Вопрос по информатике:

Даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок – бесплатно!

Ответы и объяснения 1

shimompelyat386

shimompelyat386

Program sasaylalka;
var a,b:integer;
P,d:real;
begin
writeln(‘Введи стороны’);
readln(a,b);
P:=2*(a+b);
writeln(‘Периметр равен ‘,P);
d:=sqrt(sqr(a)+sqr(b));
writeln(‘Диагональ равна ‘,d);
readln;
end.

Знаете ответ? Поделитесь им!

Гость

Гость ?

Как написать хороший ответ?

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

  • Отвечать достоверно на те вопросы, на которые знаете
    правильный ответ;
  • Писать подробно, чтобы ответ был исчерпывающий и не
    побуждал на дополнительные вопросы к нему;
  • Писать без грамматических, орфографических и
    пунктуационных ошибок.

Этого делать не стоит:

  • Копировать ответы со сторонних ресурсов. Хорошо ценятся
    уникальные и личные объяснения;
  • Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
    знаю» и так далее;
  • Использовать мат – это неуважительно по отношению к
    пользователям;
  • Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

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

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи –
смело задавайте вопросы!

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

Источник


  •
  • 0




Даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!

  • Комментариев (0)



  • 0


Program sasaylalka;
var a,b:integer;
P,d:real;
begin
writeln(‘Введи стороны’);
readln(a,b);
P:=2*(a+b);
writeln(‘Периметр равен ‘,P);
d:=sqrt(sqr(a)+sqr(b));
writeln(‘Диагональ равна ‘,d);
readln;
end.

  • Комментариев (0)

Источник

Добавить комментарий