Пользователь вводит длину оснований трапеции (a и b), а также высоту трапеции h. программа выводит сообщение: “площадь трапеции будет равна ”. площадь вычисляется по формуле ((a + b) / 2) * h, где a, b - основания, h - высота. в sublime text
Ответы
Процедуры, не связанные с объектами и событиями, называются процедурами пользователя или подпрограммами. Пользовательские процедуры можно использовать неоднократно. Если текст процедуры пользователя был записан в разделе General - в окне программного кода формы, то она будет доступна только для данной формы, но не доступна для других форм этого же приложения.
Чтобы процедура пользователя была доступна на всех формах приложения, ее текст следует записать в специальном окне
Module - модуль приложения. Программный код такой процедуры будет храниться в файлах приложения с расширением *.bas.
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 км
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 км
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Таблица степеней двойки, которая показывает, сколько информации можно закодировать с бит. Заполни таблицу.
Автор: PivovarovaIlina1437
Нужно сделать в word и pascalabc , это
Автор: people33
Що можна робити за до сервісу Coogl Keep?
Автор: alexluu33
Сколько байт информации содержит сообщение объемом 0, 25 кб?
Автор: Кочугурова
Доброго времени суток, с информатикой
Автор: Mbkozlov6
<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>