нужно составить блок схему для программы

15.12.2009, 20:26. Показов 435. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

program kursovaya;
const e=0.0001;
var x,x1,l,fx,fxp:real;
            n,a,b:integer;
 
function Fiter(x:real;a,b:integer):real;
begin
     fx:=a*sqr(x)*x+b*x+1;
     fxp:=a*3*sqr(x)+b;
end;
 
begin
 writeln('reshenie nelineynogo uravneniya metodom prostix uteraziy');
 writeln ('vvedite priblizhenie x=');
  readln (x);
 writeln('vvedite coefficient a');
  readln(a);
 writeln('vvedite coefficient b');
  readln(b);
 n:=0;
  repeat
   x1:=x;
   Fiter (x1,a,b);
   l:=(-1)/(fxp+1);
   x:=x1+l*fx;
   n:=n+1;
    writeln ('ne podoshedshii koren:',x1:9:4);
  until abs(x-x1)<e;
   writeln ('Otvet: x=', x:9:4);
   Fiter (x,a,b);
    writeln ('kollichestvo vichicleniy:',n);
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.12.2009, 20:26

Ответы с готовыми решениями:

Составить блок схему для программы
Var S:real; A:real; begin while s<=100 do begin writeln('enter chislo'); readln(a); if a> 0...

Нужно написать блок схему для программы
program abc; const e=0.0001; var x,x1,l,fx,fxp:real; n,a,b:integer; function...

составить блок схему для данной программы
uses crt; const n=5; var a:array of integer; i,j:byte; s:integer; begin clrscr;...

Составить блок схему для текста программы Pascal
Ввести одномерный массив A, вывести его. Найти в массиве минимум и часть до минимального элемента...

	15.12.2009, 20:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.12.2009, 20:26

Помогаю со студенческими работами здесь

Составить блок схему для текста программы Pascal
Ввести целочисленный двумерный массив AN×M, вывести его. Найти сумму его чётных элементов,...

Составить блок схему для текста программы Pascal
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить остатками от деления её...

Составить блок схему для текста программы Pascal
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей отрицательных...

нужно составить блок схему
В одномерном массиве определить номер 1-го нулевого элемента. Const=20 var a:array of integer;...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх