Пожалуйста напишите прогу на Pascal'е!

[Impulsive]

1) размещая код программы, заключай ее между тегами
2) процедуры и функции обычно используются для упрощения. я посмотрю. к какому дню (тока не говори, что к вчерашнему!!!)

не к вчерашнему, неделька еще есть!

[C_O_D_E]

ну уже радует!!! а кто курсовую за меня делать будет?

[C_O_D_E]

А что тебе в проге не нравиться, кроме попрограмм? (кста, первая процедура оч двже ничего!!)
еще алфавит надо на русский заменить (заменила). так что те не нравиться, вроде же работает...

[Medved]

C подпрограммами даже легче понять программу.

[C_O_D_E]

ага , в особенности если много разных локалтных параметров типа ii,iii,jij, hgg итд,
и название подпрограммы "говорит " само за себя "hgdf" или еще что-нибудь.

[Impulsive]

Да мы не проходили под программы...

[C_O_D_E]

Тут не стоит вопрос проходили или не проходили, переработаю я тебе ее, но ответ получишь скорее всего завтра, хотя идеи у меня есть.

[Medved]

program l2;
const gluh=['к','п','с','т','ф','х','с','в']; {глухие звуки - (нормальным)}
type wrds=array[1..250] of string;
var l:string;
ww:wrds;
len,ii:integer;

procedure fromstringtwords;
var i,j:integer;
cs:string;
begin
i:=1;
j:=1;
cs:='';
while l<>'.' do
begin
if l=',' then
begin
ww[j]:=cs;
cs:='';
inc(j);
end
else cs:=cs+l;
inc(i);
end;
ww[j]:=cs;
len:=j;
end;

function notinchet(s:char):boolean;
var i,j:integer;
k:boolean;
begin
i:=0;
k:=true;
while (i<=len) and k do
begin
inc(i,2);
j:=1;
while (j<=length(ww))and(ww[j]<>s) do inc(j);
if j<=length(ww) then
k:=false;
end;
ninchet:=i>len;
end;

function inallnechet(s:char):boolean;
var i,j:integer;
k:boolean;
begin
k:=true;
i:=-1;
while (i<=len) and k do
begin
inc(i,2);
j:=1;
while (j<=length(ww)) and (ww[j]<>s) do inc(j);
k:=j>length(ww);
end;
inallnechet:=i<len;
end;

begin
fillchar(ww,sizeof(ww),0);
read(l);
fromstringtwords;
for ii:=40 to 256 do
if (chr(ii) in gluh) and notinchet(chr(ii)) and inallnechet(chr(ii)) then write(chr(ii),' ');
end;
end.



fromstringtowrds - строку вводит в массивЧЕГ (простите, не удержался)
notinchet - проверяет, что символа НЕТ в хотя бы одном четном слове
inallnechet - проверяет, что символ ЕСТЬ во всех нечётных словах.
if (chr(ii) in gluh) and notinchet(chr(ii)) and inallnechet(chr(ii)) then write(chr(ii),' '); <=>
EСЛИ (символ глухой) И (NotInChet) И (InAllNechet) ТО ВЫВЕСТИ(СИМВОЛ);

Куда уж проще???

Возникли проблемы - пишите 366300465 - помогу чем могу!

[Medved]

А подпрограммы попробуй самостоятельно пройти - и жизнь ярче становицца, и в учебном заведении самым крутым в программировании будешь!

[C_O_D_E]

а через массивы символов?