М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
edgarotlichnik55
edgarotlichnik55
07.07.2021 14:44 •  Информатика

Пользователь вводит длину оснований трапеции (a и b), а также высоту трапеции h. программа выводит сообщение: “площадь трапеции будет равна ”. площадь вычисляется по формуле ((a + b) / 2) * h, где a, b - основания, h - высота. в sublime text

👇
Ответ:
катуааа
катуааа
07.07.2021
<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
        <title>Задача</title>
    </head>
    <body>
<script>
      
var a = +prompt("Введите А","");
var b = +prompt("Введите В","");
var h = +prompt("Введите h","");
var s = ((a + b) / 2) * h;
document.write("<h3> ответ: </h3><br /><p>Площадь равна: " +s+"</p>");
</script>

    </body>
</html>
4,6(95 оценок)
Открыть все ответы
Ответ:
tatleb
tatleb
07.07.2021

Процедуры, не связанные с объектами и событиями, называются процедурами пользователя или подпрограммами. Пользовательские процедуры можно использовать неоднократно. Если текст процедуры пользователя был записан в разделе General - в окне программного кода формы, то она будет доступна только для данной формы, но не доступна для других форм этого же приложения.

Чтобы процедура пользователя была доступна на всех формах приложения, ее текст следует записать в специальном окне

Module - модуль приложения. Программный код такой процедуры будет храниться в файлах приложения с расширением *.bas.

4,4(77 оценок)
Ответ:
guzhowa66
guzhowa66
07.07.2021
Program p1;
var k,t:integer;
begin
write('кг = ');
readln(k);
t:=k div 1000;
writeln('В ',k,' кг полных тонн ',t);
end.

Пример:
кг = 54937
В 54937 кг полных тонн 54

program p2;
var a,b,k:integer;
begin
a:=543;
b:=130;
k:=a div b;
writeln('Количество квадратов = ',k);
end.

Результат:
Количество квадратов = 4

program p3;
var a,b:integer;
begin
write('Введите четырехзначное число: ');
readln(a);
b:=9*10000+a;
writeln('Полученное число = ',b);
end.

Пример:
Введите четырехзначное число: 4937
Полученное число = 94937

program p4;
var a,b:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=(a mod 100)*10 + a div 100;
writeln('Полученное число = ',b);
end.

Пример:
Введите трехзначное число: 437
Полученное число = 374

program p5;
var v1,v2,v3,t1,t2,t3,s:real;
begin
write('v1, t1: ');
readln(v1,t1);
write('v2, t2: ');
readln(v2,t2);
write('v3, t3: ');
readln(v3,t3);
s:=v1*t1+v2*t2+v3*t3;
writeln('Пройденный путь = ',s:5:2, ' км ');
end.

Пример:
v1, t1: 5 2
v2, t2: 3 0.5
v3, t3: 4 1.5
Пройденный путь = 17.50 км
4,8(65 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ