VPF::нужна помощь - Форум программистов

Anya

Дата 7.12.2005, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 7.12.2005

Репутация: нет
Всего: нет

помогите написать программу на паскале. Очень надо.
Написать процедуру для нахождения корней квадратного уравнения. Примерно она выглядит так:

Код


program ....;

uses crt;

var 
  a,b,c,d,x1,x2:real;

procedure korni(a,b,c,d:real var x1,x2:real)
begin
  x1:=(-b+sqrt(d))/2*a;
  x1:=(-b-sqrt(d))/2*a;
  writeln('x1=', x1:3:2);
  write('x1=', x1:3:2);
end;

begin
  clrscr;
  write('enter a:');
  readln(a);
  write('enter b:');
  readln(b);
  write('enter c:');
  readln(c);
  d:=sqr(b)-4*a*c;
  korni(a,b,c,d);
  readkey;
end.

Snowy

Дата 7.12.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Код


program ....;

uses crt;

var    
  a, b, c, x1, x2:real;
  kk: integer;

function korni(a,b,c:real; var x1,x2:real): integer; // находит корни. Возвращает кол-во корней.
var
  d: real; // дискрименант
  k: integer; // кол-во корней
begin    
  d:=sqr(b)-4*a*c;
  if d<0 then k=0
  else
  if d=0 then
  begin
    x1:=-b/2*a;
    k:=1;
  end else
  begin
    x1:=(-b+sqrt(d))/2*a;    
    x2:=(-b-sqrt(d))/2*a;
    k:=2;
  end;
  korni:=k;
end;


begin    
  clrscr;    
  write('enter a:');    
  readln(a);    
  write('enter b:');    
  readln(b);    
  write('enter c:');    
  readln(c);    
  kk:=korni(a, b, c, x1, x2);
  if kk=0 then
    WriteLn('Нет корней')
  else if kk=1 then
    WriteLn('Корень уравнения: x=', x1);
  else
    WriteLn('Корни уравнения: x1=',x1,' x2=', x2);
  readkey;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »