Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2009, 17:44   #1
olya3
Заблокирован
 
Регистрация: 18.12.2009
Сообщений: 4
По умолчанию файлы паскаль

1 Поменять местами первое и последнее слово каждой строки. Слова разделяются пробелами.
2 . Удалить из текста все односимвольные слова и пробелы, следующие за ними. Вывести удаленные слова.
3 Во всех словах, которые состоят только из строчных латинских букв, заменить эти буквы прописными.

Помогите пожалуйста!!!!
olya3 вне форума Ответить с цитированием
Старый 19.12.2009, 19:28   #2
Андрей.12
Программист
Пользователь
 
Регистрация: 12.10.2009
Сообщений: 77
По умолчанию

Код:
uses crt;
var s,b,s1,s2,s3:string;
z,i,k,n,t,o,y:integer;
begin
clrscr;
readln(s);
b:=' ';
n:=pos(b,s);
k:=n-1;
s1:=copy(s,1,k);
y:=length(s);
t:=length(s);
repeat
t:=t-1;
until s[t]=b;
z:=t+1;
o:=(y-z)+1;
s2:=copy(s,z,t);
delete(S,1,K);
delete(s,z,o);
s3:=s2+s+s1;
write(s3);
readln;
end.
Поменять местами первое и последнее слово каждой строки. Слова разделяются пробелами.
Андрей.12 вне форума Ответить с цитированием
Старый 19.12.2009, 19:47   #3
Анатоль
Пользователь
 
Регистрация: 17.12.2009
Сообщений: 74
По умолчанию

Задача 2
program 1_simvol;
var
s : string;
i : longint;
begin
readln(s);
i := 1;
while i <= length(s) do
begin
if ((s[i] in ['a'..'z']) and (s[i+1] = ' ')) or ((s[i] in ['A'..'Z']) and (s[i+1] = ' ')) then
delete(s,i,2);
else
inc(i);
end;
write(s);
end.
Анатоль вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файлы. Паскаль Mariya0202 Помощь студентам 4 15.10.2009 18:34
файлы. Паскаль. Defa4ka Помощь студентам 2 14.05.2009 11:59
Паскаль. Файлы playboy Помощь студентам 9 24.03.2009 13:42
Файлы!Паскаль ТРОЯН=) Помощь студентам 1 23.03.2009 10:08