Определить, доплыла ли лодка до берега

@hest · Регистрация: 28.07.2015

Студворк — интернет-сервис помощи студентам

соствить программу которая работает с любым ускорением и сообщает что лодка не доплыла до озера.

это программа которая была до нее, которая работает с отрицательным ускорением)

Pascal

program aggaa;
uses wincrt;
var S,v1,v2,a1,a2,t,t1,t2:real; L:boolean;
procedure KWUR(a,b,c:real; var L:boolean; var x1,x2:real);
var D:real;
begin
D:=sqr(b)-4*a*c;
L:=D>0;
if L then begin
D:=sqrt(D);
a:=2*a;
x1:=(-b-D)/a;
x2:=(-b+D)/a; end;
end;
procedure Time1 (a,b:real; var c:real);
begin
if a>0 then
c:=a else c:=b;
end;
procedure Time2 (a,b:real; var c:real);
begin
if a<b then
c:=a else c:=b;
end;
begin
write ('v1,a1:');readln (v1,a1);
write ('v2,a2:');readln (v2,a2);
write ('S:');readln (S);
KWUR (a1/2,v1,-S,L,t1,t);
Time1 (t1,t,t1);
Time2 (t1,t,t1);
KWUR (a2/2,v2,-S,L,t2,t);
Time1 (t2,t,t2);
time2 (t2,t,t2);
 if t1<t2 then
 writeln ('1-WIN')
 else
 writeln ('2-WIN');
 writeln ('t=', t:6:2);
 end.

@Mad_Dog · 21.02.2011, 13:50

Сообщение от hest

соствить программу которая ...... сообщает что лодка не доплыла до озера.

Абалдеть!!!

@a_lebedev · 21.02.2011, 13:57

жЕСТЬ

@Sunman · 21.02.2011, 14:18

наземные лодки которые плавают "до озера", а не по нему?)

В чем конкретно проблема?

@hest · 21.02.2011, 14:34

решено.

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	21.02.2011, 13:50	2
	Сообщение от hest соствить программу которая ...... сообщает что лодка не доплыла до озера. Абалдеть!!! 1

@a_lebedev 6 / 6 / 3 Регистрация: 05.02.2011 Сообщений: 48
	21.02.2011, 13:57	3
	жЕСТЬ 0

@Sunman 56 / 56 / 14 Регистрация: 02.03.2010 Сообщений: 407
	21.02.2011, 14:18	4
	наземные лодки которые плавают "до озера", а не по нему?) В чем конкретно проблема? 0

@hest 0 / 0 / 0 Регистрация: 28.07.2015 Сообщений: 1
	21.02.2011, 14:34	5
	решено. 0

Опции темы