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

  • Автор темы Jalced
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

Jalced

Гость
#1
Вобщем надо решить 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">


<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">


<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">


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

Lado

New Member
28.10.2011
1
0
#2
Вобщем надо решить 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">


<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">


<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">


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

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