Создать документ Excel. Присвоить имя ДЕЛОВАЯ ГРАФИКА. - вопрос №12195318 от KaratisT222 26.07.2022 10:37

Question

Информатика: Создать документ Excel. Присвоить имя ДЕЛОВАЯ ГРАФИКА. На первом листе вычислить значение функции X2; X2+1; X2-1 для значений Х от -3 до 3 с шагом 0,4. На этом же листе постройте график данных функций. Ось ОХ должна пересекать ось ОУ в точке 0. На втором листе вычислить значение функции ∛(x^2 ); ∛(x^2+1); ∛(x^2-1) для значений Х от -3 до 3 с шагом 0,2. На этом же листе постройте график данных функций. Ось ОХ должна пересекать ось ОУ в точке 0. На третьем листе вычислить значение функции √(|x^3+2|;

KaratisT222 · Answer

a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.