Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.05.2009, 15:09   #1
ArtiombI4
Новичок
 
Регистрация: 11.05.2009
Сообщений: 2
Репутация: 10
По умолчанию Ваше мнение

Курсач... типа собак гонится за зайцем. Vc=10mps, Vz=5mps. Собак меняет направление каждую секунду. Надо вывести примерную траекторию и таблицу координат.
uses Graph ;
var j,y,xz2,xz1,xv1,yv1,xv2,yv2,i,gd,gm :integer; q,a,b,c:real;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
if graphresult=grOk then
begin
q:=sqrt(2); y:=round(100/q); i:=0; xz1:=round(100/q); xv1:=0; yv1:=0;
for j:=1 to 10 do writeln;
writeln('xv yv xz yz');
repeat
c:=sqrt(sqr(xz1-xv1)+sqr(yv1-y));
a:=xz1-xv1;
b:=sqrt(sqr(c)-sqr(a));
yv2:=round(yv1+10*b/c);
xv2:=round(xv1+10*a/c);
xz2:=round(xz1+5);
line(xz1,y,xz2,y);
line(xv1,yv1,xv2,yv2);
writeln(xv2,' ',yv2,' ',xz2,' ',y);
xv1:=xv2;
yv1:=yv2;
xz1:=xz2;
i:=i+1;
until i>10;
end;
readln
end.
смотрите и издевайтесь
ArtiombI4 вне форума   Ответить с цитированием
Старый 11.05.2009, 15:59   #2
Sazary
В тени
Профессионал
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,784
Репутация: 999
По умолчанию

Как я понимаю, прямая - это заяц, а кривая - собака?
Вот, чуть подправил, чтобы путь до конца выводился.
Код:

uses Graph ;
var j,y,xz2,xz1,xv1,yv1,xv2,yv2,i:integer;
q,a,b,c:real;
gm,gd : integer;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
if graphresult=grOk then
begin
q:=sqrt(2); y:=round(100/q); i:=0; xz1:=round(100/q); xv1:=0; yv1:=0;
for j:=1 to 10 do writeln;
writeln('xv yv xz yz');
repeat
c:=sqrt(sqr(xz1-xv1)+sqr(yv1-y));
if c=0 then break;
a:=xz1-xv1;
b:=sqrt(abs(sqr(c)-sqr(a)));
yv2:=round(yv1+10*b/c);
xv2:=round(xv1+10*a/c);
xz2:=round(xz1+5);
line(xz1,y,xz2,y);
line(xv1,yv1,xv2,yv2);
writeln(xv2,' ',yv2,' ',xz2,' ',y);
xv1:=xv2;
yv1:=yv2;
xz1:=xz2;
i:=i+1;
until (yv1>y);
end;
readln;
end.

__________________
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума   Ответить с цитированием
Старый 11.05.2009, 16:10   #3
ArtiombI4
Новичок
 
Регистрация: 11.05.2009
Сообщений: 2
Репутация: 10
По умолчанию

Спасибо большое, но там по заданию ток за первые 10 секунд. Сорри, что не до конца условие написал
ArtiombI4 вне форума   Ответить с цитированием
Старый 11.05.2009, 16:24   #4
Sazary
В тени
Профессионал
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,784
Репутация: 999
По умолчанию

Цитата:
но там по заданию ток за первые 10 секунд
А, ну тогда ясно. )
__________________
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно ваше мнение! Sandra-z Софт 6 28.03.2009 00:45
ваше мнение Мамочка Свободное общение 0 08.05.2008 13:46
Необходимо Ваше мнение!!! DIMONHR Софт 0 21.02.2008 00:15


19:04.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru