алг Цилиндр (арг вещ R, H, рез вещ V, S)нач вещ Pi Pi:= 3.14 V:= Pi * R**2 * H S:= 2 * Pi * R * H кон
Turbo Pascal
Program Cylinder;Uses Crt; {Подключение библиотеки Crt}VarR, {радиус основания цилиндра}H, {высота цилиндра }V, {объем цилиндра }S: Real; {площадь боковой поверхности цилиндра}BEGINClrScr; {Вызов из библиотеки Crt процедуры очистки экрана}Write('Введите высоту цилиндра: '); ReadLn(H);Write('Введите радиус основания: '); ReadLn(R);V:= Pi * R * R * H;S:= 2 * Pi * R * H; WriteLn;WriteLn('Объем цилиндра = ', V: 5: 2); {Здесь 5 - общееколичество позиций, занимаемых переменной V при выводе,а 2 - количество позиций в дробной части значения V}WriteLn('Площадь боковой поверхности = ', S: 5: 2);ReadLnEND.
QBasic
CLSINPUT "Введите высоту цилиндра: ", HINPUT "Введите радиус основания: ", RV = 3.14 * R ^ 2 * HS = 2 * 3.14 * R * H: PRINTPRINT "Объем цилиндра = "; VPRINT "Площадь боковой поверхности = "; SEND
Пример 1.3. Даны три точки на плоскости. Определить, какая из них ближе к началу координат.
Номер теста
Данные
Результат
xA
yA
xB
yB
xC
yC
Otvet
-1
"Это точка A"
-1
"Это точка B"
-1
"Это точка C"/TR>
Демонстрация
Школьный АЯ
алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)нач вещ DistA,DistB,DistC ввод xA,yA,xB,yB,xC,yC DistA:= sqrt(xA**2 + yA**2) DistB:= sqrt(xB**2 + yB**2) DistC:= sqrt(xC**2 + yC**2) если (DistA < DistB) и (DistA < DistC) то Otvet:= "Это точка А" иначе если DistB < DistC то Otvet:= "Это точка B" иначе Otvet:= "Это точка C" все все вывод Otvetкон
Turbo Pascal
Program Points;Uses Crt;Var xA, yA, xB, yB, xC, yC, DistA, DistB, DistC: Real;BEGIN ClrScr;WriteLn('Введите координаты точки А:');Write('x = '); ReadLn(xA); Write('y = '); ReadLn(yA);WriteLn('Введите координаты точки B:');Write('x = '); ReadLn(xB); Write('y = '); ReadLn(yB);WriteLn('Введите координаты точки C:');Write('x = '); ReadLn(xC); Write('y = '); ReadLn(yC);DistA:= sqrt(sqr(xA) + sqr(yA)); DistB:= sqrt(sqr(xB) + sqr(yB)); DistC:= sqrt(sqr(xC) + sqr(yC)); WriteLn; Write('Ответ: '); If (DistA < DistB) and (DistA < DistC) then WriteLn('Это точка А.') else If (DistB < DistC) then WriteLn('Это точка B.') else WriteLn('Это точка C.'); ReadLnEND.
Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
studopediasu.com - Студопедия (2013 - 2026) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав!Последнее добавление
Школьный АЯ