Программируем

Пожалуйста, зарегистрируйтесь или войдите под уже созданным логином. Вы получите полный доступ ко всем статьям форума.

Join the forum, it's quick and easy

Программируем

Пожалуйста, зарегистрируйтесь или войдите под уже созданным логином. Вы получите полный доступ ко всем статьям форума.

Программируем

Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.
Программируем

На нашем форуме программистов вы сможете найти софт для программирования и другие программы. На форуме обсуждаются многие языки программирования, задачи и их решения. Используются языки: C, Assembler, Pascal, Delphi, Flash и другие.

Последние темы

» Арена искусственных интеллектов Gridwars
Нужна помощь по циклам в freepascal EmptyСр Окт 12, 2016 2:43 am автор SeriousPasha

» требуется несколько JS разработчиков
Нужна помощь по циклам в freepascal EmptyПт Окт 07, 2016 10:19 pm автор mrktwn1

» Защита приложения от взлома
Нужна помощь по циклам в freepascal EmptyЧт Июн 18, 2015 10:28 pm автор stradi

» Ищите программиста или дизайнера?
Нужна помощь по циклам в freepascal EmptyПт Мар 27, 2015 6:25 am автор фриланс

» Создание и продвижение сайтов, их развитие.
Нужна помощь по циклам в freepascal EmptyСр Мар 25, 2015 12:40 am автор asdfghhgfdsa

» Исходники для студентов + скайп-консультации,помощь в написании программ
Нужна помощь по циклам в freepascal EmptyВт Окт 07, 2014 11:25 pm автор Horpion

» IT- технологии для развития бизнеса
Нужна помощь по циклам в freepascal EmptyПн Июн 23, 2014 6:11 pm автор dvos12

» Стенли Кубрик "С Широко закрытыми Глазами"
Нужна помощь по циклам в freepascal EmptyЧт Июн 12, 2014 2:01 am автор Vertuozzz

» Каталог популярных хостинг компаний
Нужна помощь по циклам в freepascal EmptyСб Май 10, 2014 7:18 pm автор naik

Самые активные пользователи

Aster (142)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Exkalibur (89)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Чебурашка (63)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Administrator (34)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
ak95 (8)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Пушкин (7)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
K4_ (7)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
LuDa (7)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Goldcoding (6)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 
Admin (6)
Нужна помощь по циклам в freepascal Bar_leftНужна помощь по циклам в freepascal BarНужна помощь по циклам в freepascal Bar_right 

Партнеры

Нужна помощь по циклам в freepascal Top100 Rambler's Top100

    Нужна помощь по циклам в freepascal

    avatar
    }|{eka
    Новичек
    Новичек


    Сообщения : 1
    Очки : 3
    Репутация : 0
    Дата регистрации : 2012-06-27

    Нужна помощь по циклам в freepascal Empty Нужна помощь по циклам в freepascal

    Сообщение автор }|{eka Ср Июн 27, 2012 2:13 pm

    Здраствуйте, помогите пожалуйста с решением задачи, я сделал с помощью одного цикла (предпроверка условия while), а с помощью остальных циклов (счетчик -for и постпроверка условия - repeat) эту же задачу не могу сделать.

    Вот условие задачи:
    На воду опущен шар радиуса r, изготовленный из вещества плотности p(p<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = p*h^2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.

    Вот листинг программы (цикл while):
    Код:
    unit Unit1;

    {$mode objfpc}{$H }

    interface

    uses
      Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
      ExtCtrls, StdCtrls;

    type

      { TForm1 }

      TForm1 = class(TForm)
        Button1: TButton;
        Edit1: TEdit;
        Edit2: TEdit;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        procedure Button1Click(Sender: TObject);

      private
        { private declarations }
      public
        { public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    { TForm1 }


    procedure TForm1.Button1Click(Sender: TObject);
    const
      e = 0.00001;
      pv=1.03;
    var
      R, p, h, d, c: real;
    begin
    r:=strtoint(form1.Edit1.Text);
    p:=strtoint(form1.Edit2.Text);
      h:=0;
      d:=4*r;
      c:=4*p*r*r*r;
      while abs(pv*h*h*(3*r-h)-c)>e do
      begin
        if d*(pv*h*h*(3*r-h)-c)<0 then
          d:=d/2
        else
          d:=-d/2;
        h:=h d;

     end;
      form1.Label6.Caption:='  ' floattostrf((r-h),fffixed,0,1);

    end;




    initialization
      {$I unit1.lrs}

    end.


    Помогите пожалуйста.

      Текущее время Пт Мар 29, 2024 1:50 pm