Помогите пожалста, надо вот решить 3 задачи, вся надежда на вас. 1)В заданном текстовом файле найти самое длинное симметричное слово (например АККА), содержащее ровно одну гласную (в смысле 2, с одной стороны одна и с другой). 2)Определить множество согласных, содержащихся в каждом слове заданного (в текстовом файле) текста. 3)Найти окружность, содержащую максимальное количество точек на еденицу своей площади. Входные данные * poits.dat-текстовый файл с координатами точек на плоскости * circles.dat-текстовый файл с координатами на плоскости центров окружностей и их радиусами.
И чё с того? Просто человек попался ниибацо тупой. Поясню 1) У всех наверное дохера времени 2) Все тока и делают что решают чужие задачки на паскале 3) Больше они ничего не делают 4) Все ведутся на тупой развод ("на слабо") Состав треда (по постам и выделение постов топикстартера) -Описал задачу -Попробовал развести -Постебались -Тафталогия -Опять просит сделать ему задачку -Очень просит -Написал про возможный суицид если ему не сделают его задачу (угу, поверили все) -Оскорбление и развод "на слабо" -Пост заипавшегося читать тупость -***** -ещё один пост другого заипавшегося -этот пост Делаем выводы...
Если вы не можете мне сделать задачи, тогда я думаю сможете помочь хотя бы довести до ума. Вот то что я сделал в первой задаче: ---------------------------------- 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<>' ') and (i<=length(s)) do begin t:=t+s; i:=i+1; end; if Simmetric(t) then if length(t)>max then begin max:=length(t); longSim:=t; end; while s=' ' do i:=i+1; end; writeln('Very long simmetric word: ',longSim); readln; end. ---------------------- То что тут есть, эта прога находит самые длинные симметричные слова, ей только надо добавить: 1) чтоб она это брала из текстового файла 2) чтоб она искала слова только с одной гласной у меня все не получается, пишет несовместимость типов. Надеюсь на вашу помошь, просто сдать проги нада в понедельник, если не сдам то в натуре капут!!! PS В паскале я действительно дуб дубом.
Насчет второй проги, вот она: ----------------------------------- 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=' ')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. ------------------------------ Смысл в том, что эта прога определяет множество во всех словах, а надо в каждом, может подскажете, что тут надо изменить. Надеюсь на ваше понимание.
Может подскажете, есть ли паскаль на русском или русификатор. Выложите пожалста, если такой в природе существует, я буду очень рад. Все таки на русском палюбак легче изучать любую прогу.
когда в школе проходил мне кто то кидал Pascal ABC назывался помоему спец фо студентов и школьников ток там не совсем то
вот если до понедельника никто не поможет, то убить себя ап стену будет жутко актуально. А если серьезно, помогите пжалста довети до ума проги.
Ты не на удаффкоме А вообще The real Dr.Lector ты постуаешь глупо. Задача действительно не простая, точнее простая, но на нее требуется время, нужно сначала составить алгоритм, а потом отдельно справшивать, что не понятно. А полностью тебе никто писать не будет. Темболее, если ты будешь угражать самоубийством. А где тут проблема? Запишешь в массив строк все СЛОВА (сможежь надеюсь) words: array of string; А потом в цикле для каждой строки (length(words)-1) раз повторить эту процедуру, можно ее даже в отдельгую функцию перенести.