Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите решить 2 задачки на Pascal (http://www.tehnari.ru/f41/t39475/)

Ecco 30.08.2010 22:55

Помогите решить 2 задачки на Pascal
 
Нужна помощь, помогите.

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

AlexZir 30.08.2010 23:52

Более конкретное описание заданий есть? В первом задании исходные данные какие? Во втором задании текст каким образом хранится? Что является признаком конца строки?

Ecco 30.08.2010 23:58

Нет, это все задание :(

Vladimir_S 31.08.2010 18:01

Цитата:

Сообщение от 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. Многоточие (...) как единый знак препинания не обрабатывается. Программа считает, что это три последовательных точки (обработка многоточия раздует программу в разы).


Часовой пояс GMT +4, время: 17:30.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.