Помогите!

[CpochHaya_nomoch_Hy)|(Ha]

Вобщем мне сегодня надо решить одну программу в 2 часа дня я её должен здать своему предподователю! программа на диление отразка пополам или метод половинного деления! эту задачу нужно решить в двух экзымлярах на паскале и на с++ что делать незнаю, набрасал кое что а решатся нехочет вот мои наброски!

programm delenie
var a,b,c,t: real
begin
readln (Vvedite a,a);
readln (Vvedite b,b);
readln (Vvedite t,t);
while (t<a) and (t>b)
for i:=0 to 100 do
begin
c: (b-a)/2
if (t>a) and (t<c) then
b:=c
else if (t>c) and (t<b) thena;
a:=c;
end.
writeln ('Tochka t naidena-;t; naotrezke a=;a;; b=;b);
end.


Это что касаема паскаля а на с++ аналогично! Помогить умоляю вас!

[CpochHaya_nomoch_Hy)|(Ha]

Не ужели здесь нет таких людей которые могут эту задачу подправить?

[yurash1]

напиши конкретней, что должна делать программа.

programm delenie // ; забыл
var a,b,c,t: real // ; забыл
begin
readln (Vvedite a,a); // не правильно. Writeln('Vvedite a'); Readln(a);
readln (Vvedite b,b); // не правильно. Writeln('Vvedite b'); Readln(b);
readln (Vvedite t,t); //зачем это вводить? если её нужно найти..не правильно
while (t<a) and (t>b)
for i:=0 to 100 do // что должно делать это условие? i не описано
begin
c: (b-a)/2 // c:=
if (t>a) and (t<c) then
b:=c // забыл ;
else if (t>c) and (t<b) thena; // then, ; не ставится
a:=c;
end. // . ставится в конце, тут нужно ;
writeln ('Tochka t naidena-;t; naotrezke a=;a;; b=;b); {не так. writeln ('Tochka t naidena-'t', na otrezke a='a', b='b'};
end.


i не описан в Var, добавь в Var i:integer;

// Паскаль уже плохо помню, так что возможны ошибки, проверить не где(

[CpochHaya_nomoch_Hy)|(Ha]

Понимаешь в чём дело мне сказал предподователь что бы я решил задачу по теме метод половинчетого деления либо диление отрезка пополам вот я написал что смог предподователь мне сказал что неправильно иди говорит переделовай и теперь пипец я даже незнаю как! Хорошо что ты хоть ответил а то не чего бы не зделал бы!