Срочно нужна помощь по Паскалю

[The real Dr.Lector]

Помогите пожалста, надо вот решить 3 задачи, вся надежда на вас.
1)В заданном текстовом файле найти самое длинное симметричное слово (например АККА), содержащее ровно одну гласную (в смысле 2, с одной стороны одна и с другой).
2)Определить множество согласных, содержащихся в каждом слове заданного (в текстовом файле) текста.
3)Найти окружность, содержащую максимальное количество точек на еденицу своей площади.
Входные данные
* poits.dat-текстовый файл с координатами точек на плоскости
* circles.dat-текстовый файл с координатами на плоскости центров окружностей и их радиусами.

[The real Dr.Lector]

Че, никто паскаль не знает?

[EPIDEM]

нет

[LoneWolf666]

ИМХО любой кто кодит на дельфи сможет реализовать это на паскале))

[The real Dr.Lector]

Ну тогда может реализуете

[The real Dr.Lector]

Очень очень нужна помощь

[The real Dr.Lector]

Ну все, пошел кончать жызнь самоубийством, если никто помочь не может.

[The real Dr.Lector]

Слабаки! Даже помочь не могут, кулхацкеры тоже мне.

[+toxa+]

Слабаки! Даже помочь не могут, кулхацкеры тоже мне.
пшлнх

[Sn@k3]

The real Dr.Lector ты тут тока один час, а уже нарываешься....
+toxa+ грубо, но ты же гринн)

[r0]

in нах с такими задачи, их долго делать. Пойду лучше гулять.

[+toxa+]

+toxa+ грубо, но ты же грин)
И чё с того? Просто человек попался ниибацо тупой. Поясню
1) У всех наверное дохера времени
2) Все тока и делают что решают чужие задачки на паскале
3) Больше они ничего не делают
4) Все ведутся на тупой развод ("на слабо")

Состав треда (по постам и выделение постов топикстартера)
-Описал задачу
-Попробовал развести
-Постебались
-Тафталогия
-Опять просит сделать ему задачку
-Очень просит
-Написал про возможный суицид если ему не сделают его задачу (угу, поверили все)
-Оскорбление и развод "на слабо"
-Пост заипавшегося читать тупость
-*****
-ещё один пост другого заипавшегося
-этот пост

Делаем выводы...

[The real Dr.Lector]

Если вы не можете мне сделать задачи, тогда я думаю сможете помочь хотя бы довести до ума.
Вот то что я сделал в первой задаче:
----------------------------------
program Clane_N_2;
uses crt;
var
t,s,longSim :string;
max :integer;
i :integer;

function Simmetric(ss:string):boolean;
var k,j:integer;
begin
Simmetric:=True;
k:=length(ss) div 2;
for j:=1 to k do
if ss[j]<>ss[length(ss)-j+1] then begin Simmetric:=false;break;end;
end;

begin
ClrScr;
write('Input string -> ');readln(s);
i:=1; max:=0;
while i<=length(s) do
begin
t:='';
while (s[i]<>' ') and (i<=length(s)) do
begin
t:=t+s[i];
i:=i+1;
end;
if Simmetric(t) then
if length(t)>max then
begin
max:=length(t);
longSim:=t;
end;
while s[i]=' ' do i:=i+1;
end;
writeln('Very long simmetric word: ',longSim);
readln;
end.
----------------------

То что тут есть, эта прога находит самые длинные симметричные слова,
ей только надо добавить:
1) чтоб она это брала из текстового файла
2) чтоб она искала слова только с одной гласной
у меня все не получается, пишет несовместимость типов.
Надеюсь на вашу помошь, просто сдать проги нада в понедельник, если не сдам то в натуре капут!!!
PS В паскале я действительно дуб дубом.

[The real Dr.Lector]

Насчет второй проги, вот она:
-----------------------------------
program zad2;
uses crt;
const e=['q','w','r','t','p','s','d','f','g','h','j','k','l ','z','x','c','v','b','n','m'];
var x:text;
sm,ss: set of char;
i,j,k,s:integer;
a:string;

BEgin
clrscr;
sm:=[];
assign(x,'aa.txt');
reset(x);
while not eof(x) do
begin
readln(x,a);
writeln(a);
writeln;
writeln;


a:=a+' '; k:=1;
for i:=1 to length(a) do

begin
if (a[i]=' ')or (i=length(a)) then
begin

for j:=k to i-1 do begin
if a[j] in e then begin if a[j] in sm then else sm:=sm+[a[j]];
end;
end;



k:=i+1;
end;
end;
end; for i:=97 to 122 do
if chr(i) in sm then writeln(chr(i));
readkey;
end.
------------------------------
Смысл в том, что эта прога определяет множество во всех словах, а надо в каждом,
может подскажете, что тут надо изменить.
Надеюсь на ваше понимание.

[The real Dr.Lector]

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

[taha]

Может подскажете, есть ли паскаль на русском или русификатор
когда в школе проходил
мне кто то кидал Pascal ABC назывался помоему
спец фо студентов и школьников

ток там не совсем то

[je0n]

Ну все, пошел кончать жызнь самоубийством, если никто помочь не может.
Убей себя апстену

[The real Dr.Lector]

вот если до понедельника никто не поможет, то убить себя ап стену будет жутко актуально.
А если серьезно, помогите пжалста довети до ума проги.

[a1nt]

Убей себя апстену
Ты не на удаффкоме

А вообще The real Dr.Lector ты постуаешь глупо. Задача действительно не простая, точнее простая, но на нее требуется время, нужно сначала составить алгоритм, а потом отдельно справшивать, что не понятно. А полностью тебе никто писать не будет.
Темболее, если ты будешь угражать самоубийством.
Насчет второй проги, вот она:
А где тут проблема?
Запишешь в массив строк все СЛОВА (сможежь надеюсь)
words: array of string;
А потом в цикле для каждой строки (length(words)-1) раз повторить эту процедуру, можно ее даже в отдельгую функцию перенести.

[The real Dr.Lector]

Ладно, постараюсь

[The real Dr.Lector]

Таг, две первы задачи я сделал, первую задачу я нагло впарил, в ней не выполнялось условия одной гласной, но я немного умолчал про условия задачи и все прокатило.
Осталась только третья, вот с ней действительно напряг, может кто совет даст, как ее делать.

[sni4ok]

Осталась только третья, вот с ней действительно напряг, может кто совет даст, как ее делать.

делаешь 2й вложенный цикл, на псевдоязыке выглядит так:

k0 = 0
идём по всем центрам окружностям (C-центр окружности, cx, cy- координаты центры, r- радиус):
{
k-колличество точек принадл. окружности
идём по всем точкам A(ax,ay -координаты)
{
если r^2 >= (ax-cx)^2+ (ay-cy)^2,
то инкрементируем k

}

если k > k0, то k0 = k и тогда
запоминаем какой он принадлежит окружности.
}

ту окружность которую мы помним и есть искомая.

[satana8920]

слушай The real Dr.Lector тут ваще-то сайт по безопасномти, а не сайт ДВОЕШНИКОВ !!!

[The real Dr.Lector]

sni4ok пасиба.
Ну почемуже двоечников, если человек знает он поможет если время у него есть, а если не знает, то будет выпендривацца.

[satana8920]

да я не выпендриваюсь я сам делфи учу но еси тебе эту задачу надо сделать значит ты должен её сделать а не кто то другой в этом суть обучения !!!!

[The real Dr.Lector]

Правда в твоих словах есть, но все же помощь не помешает