Технический форум - Помогите решить 2 задачки на Pascal

Цитата:

Сообщение от Ecco (Сообщение 384430)

Нужна помощь, помогите.
1)Поменять местами последнее совершенное и третье простое

В чем?!! Отговорки типа "Не знаю, мне так дали" НЕ ПРИНИМАЮТСЯ. Уточняйте задание у преподавателя.

Цитата:

2)в тексте из 20 строк определить количество знаков препинания в нечетных строках текста

Код:

VAR

 F:TEXT;

 S:STRING;

 Num_Sig:ARRAY[1..10] of BYTE;

 i,j:Integer;



Function Sg(C:Char):BOOLEAN;

 Begin

  Sg:= (C=';') or (C=':') or (C='.') or (C=',') or (C='?')

             or (C='!') or (C='-') or (C='"');

 End;



BEGIN

 Assign(F, 'D:\xxx');

 ReSet(F);

 For i:=1 to 10 do

  begin

   Num_Sig[i]:=0;

   ReadLn(F,S);

   for j:=1 to Length(S) do

    if Sg(S[j]) then Inc(Num_Sig[i]);

   ReadLn(F);

   WriteLn('Number of punctuation marks in the string N',(2*i-1):2,' = ',Num_Sig[i]);

  end;

 ReadLn;

END.

Два комментария:
1. Предполагается, что текст находится на диске D: в файле по имени ххх. Поправьте, как Вам надо (первая строка основной программы).
2. Многоточие (...) как единый знак препинания не обрабатывается. Программа считает, что это три последовательных точки (обработка многоточия раздует программу в разы).