Помогите!
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 4 из 4

Тема: Помогите!

  1. #1
    Гость форума

    Регистрация
    09.04.2009
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    Exclamation Помогите!

    Вобщем мне сегодня надо решить одну программу в 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; 09.04.2009 в 11:41.

  2. #2
    Гость форума

    Регистрация
    09.04.2009
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Помогите!

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

  3. #3
    Гость форума

    Регистрация
    23.04.2009
    Адрес
    Earth
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Помогите!

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

    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;

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

  4. #4
    Гость форума

    Регистрация
    09.04.2009
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Помогите!

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

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •