Похожие вопросы
2024-12-05 10:34:23
Помогите, пожалуйста, очень нужно! Срочно!:(
-
Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
- а) y=x^10
- б) y=x^15
- Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль.
- Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль.
Информатика 10 класс Алгоритмы и программирование алгоритмы Паскаль возведение в степень равносторонний треугольник площадь треугольника высота треугольника радиус окружности перевод байтов единицы измерения информации программирование на паскале минимальные переменные
2024-12-13 04:39:22
1. Алгоритмы вычисления:
а) y = x^10:
var x, y: real; begin readln(x); y := x * x * x * x * x * x * x * x * x * x; // x^10 writeln(y); end.
б) y = x^15:
var x, y: real; begin readln(x); y := x * x * x * x * x * x * x * x * x * x * x * x * x * x * x; // x^15 writeln(y); end.
2. Площадь равностороннего треугольника и его характеристики:
var
a, area, height, r_in, r_out: real;
begin
readln(a);
area := (sqrt(3)/4) * a * a; // Площадь
height := (sqrt(3)/2) * a; // Высота
r_in := area / (a * 3); // Радиус вписанной окружности
r_out := (a / (sqrt(3))); // Радиус описанной окружности
writeln('Площадь: ', area);
writeln('Высота: ', height);
writeln('Радиус вписанной: ', r_in);
writeln('Радиус описанной: ', r_out);
end.
3. Перевод объёма информации в более крупные единицы:
var
A: integer;
KB, MB, GB: real;
begin
readln(A);
KB := A / 1024; // Килобайты
MB := KB / 1024; // Мегабайты
GB := MB / 1024; // Гигабайты
writeln('Килобайты: ', KB);
writeln('Мегабайты: ', MB);
writeln('Гигабайты: ', GB);
end.