допоможіть розвязати задачу, використовуючи процедиру

@Алєг · Регистрация: 09.07.2008

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

Обгислити периметр і площу прямокутного трикутника за гіпотинузою і катетом

@hellboy · 09.07.2008, 17:24

т.е входные данные гипотенуза и 1 катет да????? и вычислить его площадь и периметр????если да то сделаю

Добавлено через 2 часа 18 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program zada4a;
uses crt;
  var
    p,s,a,b,c  :  real;
    procedure vi4islenie;
      begin
        b:=sqrt(c*c-a*a);
        s:=1/2*(a*b);
        p:=a+b+c;
      end;
 
begin
  clrscr;
  write('vvedite katet a=');
  readln(a);
  write('vvedite gipotenyzy c=');
  readln(c);
  if (c<=a) or (c=0) then
    write('nepravilnii vvod')
    else
    vi4islenie;
    write('perimetr p=');
    writeln(p:5:7);
    write('plos4ad s=');
    writeln(s:5:7);
 
end.

вот то что у меня получиось, правда новичек , если есть какие то недороботки пиши, я учту и мот чему научусь

Добавлено через 4 минуты
ой там плохо скопировало там де закорючки всякие надо вот if (c<=a) or (c=0) then

@Алєг · 09.07.2008, 18:25 **[ТС]**

Розглянути співвідношеннями між мірами.Скласти програму для побудови таблиці відповідності між двома мірами.
1РОД=28,3КУБ.М;
Зможеш написати програму використовуючи функцію

Program lab3_1;
uses crt;
const line='____________________';
var rod,kubm,krok:real;
i,kil:integer;
begin
clrscr;
write('‚ўҐ¤чвм Ї®з вЄ®ўҐ § зҐп,Єа®Є §¬чЁ в ');
writeln('Єч«мЄчбвм ап¤Єчў г в Ў«Ёжч');
readln(rod,krok,kil);
writeln;
writeln(line);
writeln('’ Ў«Ёжп бЇчўўч¤®иҐм ¬ча');
writeln('ђ®¤ ЉгЎ.¬ҐваЁ');
writeln(line);
for i:=1 to kil do
begin
kubm:=28.3*rod;
writeln(rod:5:4,' ',kubm:8:4);
rod:=rod+krok;
end;
writeln(line);
writeln('’ Ў«Ёжо Ї®Ўг¤гў ў ”Ґ¤ЁЄ Ћ.ћ.');
readln
end.

@hellboy · 09.07.2008, 18:37

я не разобрался в условии, можно было подумать, а тебе на когда , и кстати етот кусок программы что ты привел, ето тип то что тебе пытались решать

Добавлено через 51 секунду
что такое род

@Алєг · 09.07.2008, 19:06 **[ТС]**

етот кусок программы что програма розвязана в циклі, а мені потрібно викориктовуючи функцію!

23.12.2010, 16:43

Розробити програму-довідник, яка за введеним значенням радіуса та номером задачі пропонуватиме користувачу послуги в обчисленні
1) 1-довжини кола;
2)2-площі круга;
3)3-обєм кулі;
4)4-площі поверхні кулі

@Dekio · 23.12.2010, 17:00

Наташа (_*_), а ничего что теме почти 3 года?!

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Алєг 0 / 0 / 0 Регистрация: 09.07.2008 Сообщений: 14

	допоможіть розвязати задачу, використовуючи процедиру 09.07.2008, 14:38. Показов 3713. Ответов 6 Метки нет (Все метки) Обгислити периметр і площу прямокутного трикутника за гіпотинузою і катетом 0

@Алєг 0 / 0 / 0 Регистрация: 09.07.2008 Сообщений: 14
	09.07.2008, 18:25 [ТС]
	Розглянути співвідношеннями між мірами.Скласти програму для побудови таблиці відповідності між двома мірами. 1РОД=28,3КУБ.М; Зможеш написати програму використовуючи функцію Program lab3_1; uses crt; const line='____________________'; var rod,kubm,krok:real; i,kil:integer; begin clrscr; write('‚ўҐ¤чвм Ї®з вЄ®ўҐ § зҐп,Єа®Є §¬чЁ в '); writeln('Єч«мЄчбвм ап¤Єчў г в Ў«Ёжч'); readln(rod,krok,kil); writeln; writeln(line); writeln('’ Ў«Ёжп бЇчўўч¤®иҐм ¬ча'); writeln('ђ®¤ ЉгЎ.¬ҐваЁ'); writeln(line); for i:=1 to kil do begin kubm:=28.3*rod; writeln(rod:5:4,' ',kubm:8:4); rod:=rod+krok; end; writeln(line); writeln('’ Ў«Ёжо Ї®Ўг¤гў ў ”Ґ¤ЁЄ Ћ.ћ.'); readln end. 0

@hellboy 0 / 0 / 0 Регистрация: 09.07.2008 Сообщений: 5
	09.07.2008, 18:37
	я не разобрался в условии, можно было подумать, а тебе на когда , и кстати етот кусок программы что ты привел, ето тип то что тебе пытались решать Добавлено через 51 секунду что такое род 0

@Алєг 0 / 0 / 0 Регистрация: 09.07.2008 Сообщений: 14
	09.07.2008, 19:06 [ТС]
	етот кусок программы что програма розвязана в циклі, а мені потрібно викориктовуючи функцію! 0

Наташа (_*_)
	23.12.2010, 16:43
	Розробити програму-довідник, яка за введеним значенням радіуса та номером задачі пропонуватиме користувачу послуги в обчисленні 1) 1-довжини кола; 2)2-площі круга; 3)3-обєм кулі; 4)4-площі поверхні кулі

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	23.12.2010, 17:00
	*Наташа (__)**, а ничего что теме почти 3 года?! 1