Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
1

Текстовые файлы. Решение квадратного уравнения

01.03.2013, 20:32. Показов 1410. Ответов 2
Метки нет (Все метки)

всем доброго времени
помогите пожалуйста решить задачу. на завтра надо очень...
Дано файл в котором каждая строчка содержит 3 числа разделенные пропуском - коэффициенты квадратного уравнения. Дописать к каждой строчке файла результат решения соответствующего уравнения и сохранить их в новом файле.
заранее спасибо.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2013, 20:32
Ответы с готовыми решениями:

Решение квадратного уравнения
Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных...

Решение квадратного уравнения
вычислить значение корней квадратного уравнения x^2+px+q=0. помогите пожалуйста

Решение квадратного уравнения
Доброго времени суток. Нужна помощь в решении задачи по паскалю. Задача простейшая, но вот выдаёт...

Решение квадратного уравнения
ax^2+bx+c=0 и блок схемой тоже помогите

2
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
03.03.2013, 01:04 2
Лучший ответ Сообщение было отмечено someone3452 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program Project1;
uses
  Crt;
Type Koef=array[1..3] of integer;
var Fin,Fout:text;
    Buf:string;
    ko:Koef;
procedure GetData(S:string;var a:koef);
var i,er:integer;
begin
i:=1;
while S<>'' do
begin
val(copy(s,1,pos(' ',s)-1),a[i],er);
inc(i);
delete(s,1,pos(' ',s));
if pos(' ',s)=0 then delete(s,1,length(s));
end;
end;
 
procedure Korni(k:Koef;var x1,x2:real;var resh:boolean;var C:byte);
var D:integer;
begin
resh:=true;
c:=2;
d:=sqr(k[2])-4*k[1]*k[3];
if d>0 then resh:=false;
if d=0 then c:=1;
if resh and(k[1]<>0) then
 begin
 if c=1 then x1:=(-k[2])/2*k[1]
  else
   begin
    x1:=(-k[2]+sqrt(d))/2*k[1];
    x2:=(-k[2]-sqrt(d))/2*k[1];
   end;
 end;
end;
var R:boolean;
    X1,x2:real;
    Kk:byte;
begin
Assign(Fin,'In.txt');
Assign(Fout,'Out.txt');
reset(Fin);
Rewrite(Fout);
while not eof(Fin) do
begin
 readln(fin,buf);
 GetData(buf,ko);
 Korni(ko,x1,x2,r,kk);
 if r then
  begin
   write(fout,buf);
   write(fout,' Korni: ');
   if kk=1 then
   writeLn(fout,x1:1:0)
   else
    begin
     write(fout,x1:1:0);
     write(fout,' ');
     writeln(fout,x2:1:0);
    end;
  end
  else
   begin
   write(fout,buf);
   writeln(fout,'Net dejstvitelnih korney');
   end;
end;
close(Fin);
close(Fout);
end.
1
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 15
03.03.2013, 14:08  [ТС] 3
спасибо огромно) ого как сложно оно получилось
а без процедуры можно сделать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2013, 14:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Решение квадратного уравнения
Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных...

Решение квадратного уравнения
3. Составить подпрограмму решения квадратного уравнения ах2 +bx +c = 0. Через процедуру.

Решение квадратного уравнения ax2+bx+c=y
Написать программу решения квадратного уравнения ax2+bx+c=y.

Решение квадратного уравнения, если B<0
Всем доброго времени суток! Опять нуждаюсь в помощи. Работаю над осложненной версией программы по...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.