ClrScr;
Write ('Введите число x: ');
Readln(x);
y:=x+power(10,sin(x))-cos(x)/(pi-2*x);
Writeln ('y = ',y:6:2);
Readln;
end.
В результате при x=4 программа выдает, что y = 3,69
Задача 1
Исходные данные:
1. Записать на языке Паскаль выражение: y=e | sin(x-y) |
2. Вычислить значение выражения и определить его тип: succ(round(1.2))
3. Определить тип выражения: abs(5.0)
Задача 2
Исходные данные:
Составить программу вычисления выражения
Задача 3
Исходные данные:
Вычислить выражение:
Задача 4
Исходные данные:
Найти ошибки в следующем фрагменте программы:
k:=1;
for j:=1 to 12 do begin j:=j+3; k:=k+j end;
1. Саймон Д Информатика. НТ Пресс, 2009-512 с.
2. Соколенко А.Л. Просто как дважды два. ЭКСМО, 2007.- 256 с.
3. Алекс Экслер. Программирование на Pascal: Пособие. НТ - Пресс, 2008.- 128 с.
4. Марина Свиридова. Особенности языка Pascal: Пособие. Академия, 2007 144c.
5. Серогородский В.В. Pascal Самоучитель. Наука и техника, 2007.- 392 с.
ние для Xi имеет вид Xi = αXi + β, где α и β регулярные выражения в алфавите Σ. Записать на выходе Xi = = α*β, в уравнениях для Xi1, , X1 подставляя α*β в
могают определить, каким должно быть это действие, в частности знаки «+», «*» и «=». Скобки отсутствуют, т.к. они только определяют порядок действий. Дерево вывода строится с помощью рекурсивных функц
е2102 11 08 21 LXI D,2108 Начальный адрес массива в HL2105 7E MOV A,M A← чтение байта по адресу HL в аккумулятор2106 FA 0E 21 JM 210E С = 1?, если да, то на 210E2109 E6 F0 ANI F0 Зануление
2 = 1 THEN'если число нечетное, то коэф. В сумме = -1, иначе 1c = -1ELSE c = 1END IFs = s + i * i * c 'В сумму добавляется текущий членNEXTPRINT "Сумма знакочередующегося ряда квадратов до 10 равна =