Вычислить 7 значений функций - Pascal

Узнай цену своей работы

Формулировка задачи:

Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

Решение задачи: «Вычислить 7 значений функций»

textual
Листинг программы
const n=7;
      da=0.22;
var a,x,a1,b,z:real;
    i:byte;
begin
write('x=');
readln(x);
a:=0.14*x;
for i:=0 to n-1 do
 begin
  a1:=a+i*da;
  z:=a1*a1-x*x;
  if(z<=0)or(z=1)then writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b не определено')
  else
   begin
    b:=(0.15*x-a1)/ln(z);
    writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b=',b:5:2);
   end;
 end;
end.

Объяснение кода листинга программы

  1. Объявляется константа n со значением 7;
  2. Объявляется переменная da с типом даных real и значением 0.22;
  3. Объявляются переменные a, x, a1, b, z с типом данных real;
  4. Объявляется переменная i с типом данных byte;
  5. Пользователь вводит значение переменной x;
  6. Переменной a присваивается значение 0.14 умноженное на переменную x;
  7. Происходит цикл for от 0 до n-1 (7-1);
  8. В каждой итерации цикла переменной a1 присваивается значение a плюс i умноженное на da;
  9. Переменной z присваивается значение квадрата переменной a1 минус квадрат переменной x;
  10. Если z меньше или равно 0 или равно 1, то выводится сообщение с номером итерации, значением x, a1 и сообщением b не определено;
  11. Иначе, переменной b присваивается значение выражения (0.15 умножить на x минус a1) деленное на натуральный логарифм от z, и выводится сообщение с номером итерации, значением x, a1 и значением b.

Оцени полезность:

5   голосов , оценка 3.8 из 5