Текущее время: 29 мар 2024, 07:07




 Страница 4 из 7 [ Сообщений: 66 ]  На страницу Пред.  1, 2, 3, 4, 5, 6, 7  След.
Автор Сообщение
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 12 янв 2010, 22:27 
Аватар пользователя

Зарегистрирован: 12 ноя 2009, 16:11
Сообщений: 69
тааак....
вот етот кусок кода будет работать..
Const koor=25;
Type exact=single;
MyMas=longint;
MyArray=array[1..koor,1..2] of MyMas;
Var g1,g2,p,i,j,i0,j0,c,l,lol:integer;
x,y,x1,x2,y1,y2,k,b:exact;
stop:boolean;
m:MyArray;
init,out:text;
d:longint;
begin
j:=2;
p:=koor;
stop:=false;
assign(out,'out.txt');
rewrite(out);
assign(init,'init.txt');
reset(init);
i:=0;
while not(Eoln(init)) do begin
i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do begin
i:=i 1;
read(init,d);
m[i,2]:=d;
end;
i:=1;
end.

а дальше надо разобратся)


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 12 янв 2010, 22:44 
Аватар пользователя

Зарегистрирован: 10 янв 2010, 12:06
Сообщений: 21
Так, окей, жду. Самой ничего в голову не лезет %))


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 12 янв 2010, 22:46 
Аватар пользователя

Зарегистрирован: 12 ноя 2009, 16:11
Сообщений: 69
ааа.. давай как нить завтра т.е. уже сегодня)) днем додумаю..)


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 12 янв 2010, 23:25 
Аватар пользователя

Зарегистрирован: 10 янв 2010, 12:06
Сообщений: 21
Хорошо, жду :) спасибо :)


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 14:40 
Аватар пользователя

Зарегистрирован: 10 янв 2010, 12:06
Сообщений: 21
Хе-хей! Ну как там? :))


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 14:53 
Аватар пользователя

Зарегистрирован: 12 ноя 2009, 16:11
Сообщений: 69
щяс... уроки сделаю и че нить сделаю...)


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 15:32 
Аватар пользователя

Зарегистрирован: 13 янв 2010, 07:12
Сообщений: 2
Доброго времени суток.
Нужна срочная помощь в решении задачи в паскале:
даны 2 окружности на плоскости.наша задача найти их все общие точки.
Первые две строки входного фаила содержат описание окружностей.каждое описание состоит из трех целых чисел-координаты не превосходят 1000 по обсалютной величине. Радиус является положительным числом не превосходящим 1000.


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 15:33 
Аватар пользователя

Зарегистрирован: 13 янв 2010, 07:12
Сообщений: 2
если можно в личку..


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 20:05 
Аватар пользователя

Зарегистрирован: 10 янв 2010, 12:06
Сообщений: 21
Аууууу!


   
 
 Заголовок сообщения: Re: Помогите, пожалуйста, с Паскалем!
СообщениеДобавлено: 13 янв 2010, 20:09 
Аватар пользователя

Зарегистрирован: 12 ноя 2009, 16:11
Сообщений: 69
да...) блин напишы задачу поподробней.. то что я написал выше работает...а вторая часть кода нет..немогу разобратся.. мне легче самому написать но мне не очень понятна сама задача)


   
 
Показать сообщения за:  Сортировать по:  
 Страница 4 из 7 [ Сообщений: 66 ]  На страницу Пред.  1, 2, 3, 4, 5, 6, 7  След.


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

Найти:

Продажа и покупка информационного товара в интернете услуги гаранта сделок в интернете онлайн - надежные сделки через гаранта. Сервис безопасных сделок без риска 24 часа в сутки 365 дней в году.
Сложные и нестандартные случаи, решение ваших проблем консультация психолога онлайн 24 часа в сутки и при личной встрече. Психолог.ПРО.
cron