Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.08.2010, 22:55   #1 (permalink)
Ecco
Новичок
 
Регистрация: 30.08.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить 2 задачки на Pascal

Нужна помощь, помогите.

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

Старый 30.08.2010, 22:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Очень эффективно в решении проблемы просто пролистать похожие обсуждения

Помогите решить две паскальные задачки пожалуйста
Помогите решить задачки в Pascal
Помогите пожалуйста решить задачки на C++Builder 6. Заранее благодарю
Помогите решить задачу в Pascal
Помогите решить, пожалуйста. Pascal
Помогите решить простейшие задачи в pascal

Старый 30.08.2010, 23:52   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,965
Записей в дневнике: 57
Сказал(а) спасибо: 135
Поблагодарили 164 раз(а) в 69 сообщениях
Репутация: 67284
По умолчанию

Более конкретное описание заданий есть? В первом задании исходные данные какие? Во втором задании текст каким образом хранится? Что является признаком конца строки?
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 30.08.2010, 23:58   #3 (permalink)
Ecco
Новичок
 
Регистрация: 30.08.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Нет, это все задание
Ecco вне форума   Ответить с цитированием
Старый 31.08.2010, 18:01   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,973
Сказал(а) спасибо: 322
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 102185
По умолчанию

Цитата:
Сообщение от Ecco Посмотреть сообщение
Нужна помощь, помогите.
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. Многоточие (...) как единый знак препинания не обрабатывается. Программа считает, что это три последовательных точки (обработка многоточия раздует программу в разы).
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.