составить 5 формул и записать их на turba pascol
5-9 класс
|
A := (6 + x) / (2 - 3) + Abs(y - 2.5);
B := Sin(x * Pi) / (y + Cos(Pi);
C := Exp(2 * Ln(x)) + Sin(Abs(-y) / (2 * 7 - 9);
D := Sqrt((6 + x) / (2 * Cos(y));
E := Tan(8 + 4 / x) * 1 / (Cos(Sqrt(y)) + Sin(Sqrt(2 * y)));
Другие вопросы из категории
Зарание спасибо .
3AF16 + 1CBE16
1EA16 + 7D716
A8116 + 37716
Читайте также
деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.
без использования третьей переменной
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
Writeln(‘Массив случайных чисел:’)
For I:=1 to 10 do
begin
Rand[I]:=random(50); Write(Rand[I]:4)
End;
Writeln;
{Ввод Х}
Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
NumberX:=0;
For I:=1 to 10 do
If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
If NumberX=0
Thenwriteln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.