1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

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

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

Тема в разделе "Вопросы новичков и не только", создана пользователем 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 Задачи В Среде Паскаль

    Добавлено: Код от первой задачи - не рабочий почему то)
    Код:
    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
    Все уже давным давно решено)
     
Загрузка...
Статус темы:
Закрыта.

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