Формулировка задачи:
помогите пожалуйста, паскаль Описать процедуру 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
program zz1;
var a, b, c, S:real; / / задаем переменные не целого типа
begin
write (‘введите первую сторону прямоугольника ‘); / / вводим с клавиатуры исходное значение первой стороны прямоугольника
read (a);
write (‘введите вторую сторону прямоугольника ‘); / / вводим с клавиатуры исходное значение второй стороны прямоугольника
read (b);
c: = sqrt (sqr (a) + sqr (b)); / / вычисляем диагональ прямоугольника по формуле Пифагора
write (‘диагональ прямоугольника = ‘, c:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки
end.
1)даны длины сторон прямоугольника.найти его периметр и длину диагонали.
2)Составит программу,которая отгадывает натуральное четное число,,загаданное пользователем.
пример:загадайте натуральное число.
прибавьте к нему 4
уменьшите на 6
поделите на 2
что получилось?
3.
вы загадали число 8!!!!
3)дано расстояние в метрах.Найти число полных километров в нем.
4)Дано трёхзначное число.найти сумму и произведение его цифр.
5)Составить программу обмена значениями двух переменных.
спасибо заранее
Добавлено через 39 минут
помогите пожалуйста
gintharifo806
Вопрос по информатике:
Даны длины сторон прямоугольника составить программу найти периметр и длину диагонали.
Pascal.
Ребята помогите пожеее.Заранее спасибо!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
Ответы и объяснения 1
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.
Знаете ответ? Поделитесь им!
Гость ?
Как написать хороший ответ?
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете
правильный ответ; - Писать подробно, чтобы ответ был исчерпывающий и не
побуждал на дополнительные вопросы к нему; - Писать без грамматических, орфографических и
пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся
уникальные и личные объяснения; - Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не
знаю» и так далее; - Использовать мат — это неуважительно по отношению к
пользователям; - Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует?
Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие
вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи —
смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Ramos04
5 лет назад
Светило науки — 15 ответов — 0 раз оказано помощи
Var
a,b,S,P:Integer;
d:real;
Begin
Writeln(‘Введите стороны прямоугольника’);
Read(a,b);
P:=2*(a+b);
S:=a*b;
d:=sqrt(sqr(a)+sqr(b));
Writeln(‘Периметр=’, P);
WriteLn(‘Площадь=’, S);
WriteLn(‘Диагональ=’, d:6:2);
End.