Нужно Решить 3 Задачи В Среде Паскаль

Тема в разделе "Pascal and Delphi", создана пользователем Jalced, 3 окт 2011.

Статус темы:
Закрыта.
  1. Jalced

    Jalced Гость

    Вобщем надо решить 3, вроде как простейшие задачки, но у меня ничего не выходит >_< Или ошибка или хрень какая нибудь вылазиет...
    Решите хотябы одну для примера плиз, а то даже не знаю на что операться... Заранее спасибо

    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Задачка 1</div></div><div class="sp-body"><div class="sp-content">[​IMG]

    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Задачка 2</div></div><div class="sp-body"><div class="sp-content">[​IMG]

    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Задачка 3</div></div><div class="sp-body"><div class="sp-content">[​IMG]

    Добавлено: Код от первой задачи - не рабочий почему то)
    Код (Text):
    program lineika;
    var
    a,t,h,b,h0,d,k:integer;
    begin
    Writeln ('Vvedi h0,h,b,a');
    readln (h0,h,b,a);
    k:=sqrt(h0-B)-sqrt(h-b-(h-h0)*((a*a)/(a-2*B)*(a-2*B)));
    Wruteln ('Vvedi a,b');
    readln (a,B);
    t:=((2*k)/0.82*3.14*(a*a)*sqrt(2*9.81))*(a*a)*((a-2*B)*a-2*B))/(a*a)-((a-2*B)*a-2*B));
    end;
     
  2. Lado

    Lado New Member

    Регистрация:
    28 окт 2011
    Сообщения:
    1
    Симпатии:
    0

    Во-первых надо поменять тип данных с integer на real, затем прописать нормально команды writeln, а не wruteln, и там где ты присваиваешь к t:= у тебя две лишние скобки, смотри внимательней.
     
  3. Jalced

    Jalced Гость

    Все уже давным давно решено)
     
Загрузка...
Похожие Темы - Нужно Решить Задачи
  1. yaroslavzlat
    Ответов:
    0
    Просмотров:
    1.191
  2. Инна123
    Ответов:
    1
    Просмотров:
    1.398
  3. MaxP
    Ответов:
    1
    Просмотров:
    44
  4. kuklofon
    Ответов:
    12
    Просмотров:
    586
  5. rownong
    Ответов:
    1
    Просмотров:
    197
Статус темы:
Закрыта.

Поделиться этой страницей