1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

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

    Jalced Гость

    Репутация:
    0
    Вобщем надо решить 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">Нужно Решить 3 Задачи В Среде Паскаль

    <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">Нужно Решить 3 Задачи В Среде Паскаль

    <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">Нужно Решить 3 Задачи В Среде Паскаль

    Добавлено: Код от первой задачи - не рабочий почему то)
    Код (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

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

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

    Jalced Гость

    Репутация:
    0
    Все уже давным давно решено)
     
Загрузка...
Похожие Темы - Нужно Решить Задачи
  1. Саша Зеленюк
    Ответов:
    1
    Просмотров:
    233
  2. yaroslavzlat
    Ответов:
    0
    Просмотров:
    1.247
  3. Инна123
    Ответов:
    1
    Просмотров:
    1.484
  4. spacelove
    Ответов:
    6
    Просмотров:
    170
  5. nujencod
    Ответов:
    0
    Просмотров:
    110
Статус темы:
Закрыта.

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