напишите пожалуйста программу вычисления в Паскаль,пожалуйста!
10-11 класс
|
{ABC-pascal}
var
x: real;
begin
write('x=');
readln(x);
write('(sinx)^2+cosx=',sin(x)*sin(x)+cos(x));
readln;
end.
Другие вопросы из категории
var a,b : array [1..10] of integer;
var c : array [0..9] of integer;
var d : array [0..10] of char;
var e : array [1..10] of integer;
Какие из следующих операторов присваивания допустимы, а какие нет и почему?
1) a[10]:=b[10] 2) a[5]:=e[5] 3) c[1]:=d[1]
4)a:=b 5)d:=c 6) e[1]:=e[1] 7) с[0]:=b[0]
8) e:=a
Задача 2. Опишите переменную типа string, под которую отводится 48 байт памяти.
этого массива после выполнения фрагмента программы?
1) 10 0 0 0 0 0 0 0 0 0 0
2) 10 2 3 4 5 6 7 8 9 10 10
3) 10 10 10 10 10 10 10 10 10 10 10
4) 10 0 1 2 3 4 5 6 7 8 9
Дано целое число в диапазоне 1 – 5. Вывести строку — словесное описание соответствующей оценки (1 — "плохо", 2 — "неудовлетворительно", 3 — "удовлетворительно", 4 — "хорошо", 5 — "отлично").
Как организовать посимвольный ввод строки с клавиатуры? То есть пользователь вводит любое предложение (мы не знаем, сколько символов он введет), программа считывает данные и кидает их в строку до тех пор, пока не будет введен, допусти, пробел.
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
слагаемых сумма которых равна 324
результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале