Формирование массива значений функции

@Incognito0202 · Регистрация: 19.01.2021

Написать программу с помощью Function (без random,randomize)(используя простейшие операторы).

@BLockade · 20.01.2021, 16:50

Pascal

Uses crt;
Const n=7;
Var i,a,b,d:integer; x:array [1..n] of integer;
 
Function fun1(x1:integer):integer;
 Var y1:real;
Begin
  if x1=0 then writeln('Ошибка деление на ноль') else begin
  
  y1:=sqr(x1)*x1+d/x1-a;
  writeln('y',i,' = ',y1);
  end;
end;
 
Function fun2(x2:integer):integer;
 Var y2:real; 
Begin
  
  y2:=a*x2+b;
  writeln('y',i,' = ',y2);
end;
 
Function fun3(x3:integer):integer;
 Var y3:real;
Begin
  y3:=sin(x3-a)*(ln(x3)/ln(10));
  writeln('y',i,' = ',y3);
end;
 
Begin
i:=0;
Write('a = ');
Readln(a);
write('b = ');
readln(b);
write('d = ');
readln(d); 
 
  Repeat
  i:=i+1; 
 write('x',i,' = ');
 readln(x[i]);
  if (a < x[i]) and (x[i] < Pi) then fun1(x[i]);
  if (x[i] <= a) then fun2(x[i]);
  if (x[i] >= Pi) then fun3(x[i]);  
  Until (i>=n)
end.

@Incognito0202 1 / 1 / 0 Регистрация: 19.01.2021 Сообщений: 12
		1
	Формирование массива значений функции 20.01.2021, 14:19. Просмотров 2231. Ответов 1 Метки pascal, pascal abc net (Все метки) Написать программу с помощью Function (без random,randomize)(используя простейшие операторы). 1

Опции темы

Формирование массива значений функции

Решение