Для организации цикла For необходимо сначала определить число
повторений цикла - n. Это можно сделать с помощью формулы: n=(b-a)/h+1. При программировании необходимо учитывать тип переменных, участвующих в выражении. При вычислении значения n в правой части формулы получается результат вещественного типа, а слева стоит переменная целого типа, поэтому необходимо применить операцию округления полученного значения n до целого значения получаемого в результате операции деления. Для этого можно использовать стандартную функцию Round.
 | |||
 | |||
нет
да
 | |||
 | |||
Текст программы
{Лабораторная работа }
{Программирование циклов с использованием оператора FOR}
{Студенты гр.....}
Uses crt;
Var x,y,A,B,H:real;
n,i: integer;
BEGIN Clrscr;
Writeln(' Введите A B H'); read(A,B,H);
n:= Round((B-A)/H)+1;
x:=A;
For i:=1 To n Do
begin
if (6*x*x-x*x*x)<=0 then
Writeln('При x= ',x:5:3,' под знаком логарифма недопустимое значение')
else
begin
y:= Exp(1.0/3.0*Ln(Abs(6*x*x-x*x*x)));
Writeln(' x= ',x:2:3,' y= ',y:2:3);
end;
x:=x+H;
end; { Конец For}
END.
Варианты самостоятельных заданий
1. Y = xSinx/Cosx; A = -1.6, B = 1.6, H = 0.2
2. Y = tgx2 + ctgx2; A = -2, B = 2, H=0.5
3. Y = Ln(x2 -9)/x; A = -6, B = 6, H = 1
4. Y = xLn(Cosx); A = -3, B = 3, H = 0.3
5. Y = tgx/x; A = -2, B = 2, H = 0.2
6. Y = Sinx/(x-5); A = -6, B = 6, H = 0.5
7. Y = x/(1-Cosx); A = -4, B = 4, H = 0.5
8. Y = 1/xtg(x/2); A = -3, B = 3, H = 0.5
9. Y = 1/(x2 -3); A = -4, B = 4, H = 0.5
10. Y = 1/Ln(x2/8); A = -3, B = 3, H = 0.6
11. Y = 1/x ctg(x/3); A = -4, B = 4, H = 0.5
12. Y = Ln(16-x2)/x ex; A = -6, B = 6, H = 0.5
13. Y = x tg x/ Lnx; A = -3, B = 3, H = 0.5
14. Y = x2Ln|x|/Sinx; A = -2, B = 2, H = 0.2
15. Y = x/Sinx+ Ln(x2 - 4); A = - 6, B = 6, H = 0.5
16. Y = x2Cosx/Ln(x2-1); A = -2, B = 2, H = 0.1
17. Y = xSinx/Ln(x2-9); A = -5, B = 5, H = 0.5
18. Y = x2/(Cosx+Ln(x2-1)); A = -2, B = 2, H = 0.2
19. Y = (x2+ tgx)/Ln(x2-4); A = -4, B = 4, H = 0.8
20. Y = (x2- Cosx)/xLn(x2-1); A = -2, B = 2, H = 0.2
