[ok] Нужна помощь,люди!Задали задачку на паскале к завтрашнему дню к 8 утра,а я в нем не шарю вообще никак,последний...

среда, 16 января 2008

00:08

все записи пользователя в сообществе Suzukava

[ok]

Нужна помощь,люди!Задали задачку на паскале к завтрашнему дню к 8 утра,а я в нем не шарю вообще никак,последний раз видел года 4 назад в школе.

Мишень для стрельбы представляет собой концентрические кольца с центром в начале координат.Радиус внутреннего кольца("десятки") равен 1см. Ширина всех остальных по 1см. Составить программу которая по координатам 3х точек попадания(х1,y1), (x2,y2),(x3,y3). вычисляет сумму выбитых очков.
Замечание: Среди анализируемых выстрелов могут оказаться и попадания в "молоко" не приносящие очков.
Напишите код задачки если не сложно, буду очень благодарен

@темы: Программирование, Мне лень читать инструкцию помогите

URL

Комментарии

16.01.2008 в 00:12

doctor.exe

For tonight GOD IS A DJ

URL

16.01.2008 в 00:15

Bagir

И нет преград, кроме тех, что строим сами для себя…

Suzukava, просто умиляют люди любящие ездить на других

URL

16.01.2008 в 00:17

doctor.exe

For tonight GOD IS A DJ

как же я понимаю этого чувака) мнеб вот только на C++)))))))))))

URL

16.01.2008 в 00:26

Suzukava

На других я ездить не люблю.еслиб не острая нужда не попросил бы помощи.была бы прога на С++ сам бы накатал.а так... ((( экзамен сдавать по паскалю надо а как хз(

URL

16.01.2008 в 01:28

alhames

alhames.ru

Suzukava споси у препода ))
(я обычно всегда так поступаю)

URL

16.01.2008 в 01:58

Suzukava

alhames будет очень забавно смотреть когда я на экзамене подойду к преподу и спрошу как делать экзаменационную задачу.Я думаю мы с ним офигенно поржем.

URL

16.01.2008 в 02:02

alhames

alhames.ru

Suzukava а ты до экзамена..
(я лично и на экзамене спрашивал..
Ведь когда студент стремится в чем-то разобраться, преподаватели идут только на встречу

)

URL

16.01.2008 в 03:35

neo_rage

The day that you stop running is the day that you arrive.

А можно ~~я его стукну и он станет фиолетовым~~ напишу программу на PHP через год(примерно тогда будет свободное время) ?))

URL

16.01.2008 в 03:50

neo_rage

The day that you stop running is the day that you arrive.

радиус(расстояние от центра до точки попадания) равен гипотенузе прямоугольного треугольника.
поскольку центр в начале координат, то модуль значений xn, yn будет катетами этого треугольника.
если считать, что шаг координатной сетки составляет 1см, то

var x1,y1,x2,y2,x3,y3:Real;
R1,R2,R3:Real;
Score, Temp:Integer;

begin
writeln('Tochka 1(x,y):');
Readln(x1,y1);
writeln('Tochka 2(x,y):');
Readln(x2,y2);
writeln('Tochka 3(x,y):');
Readln(x3,y3);
R1:=SQRT(SQR(x1)+SQR(y1));
R2:=SQRT(SQR(x2)+SQR(y2));
R3:=SQRT(SQR(x3)+SQR(y3));
//WriteLn(R1, ' ', R2, ' ', R3);
Score:=30-(Trunc(R1)+Trunc(R2)+Trunc(R3));
If Score <0 Then Score:=0;
WriteLn('Ochki: ',Score);
ReadLn;

end.

URL