18.06.2009, 03:09 | #1 (permalink) |
Новичок
Регистрация: 18.06.2009
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать задачи на Паскале
2.Задан список из десяти городов. Поменять местами названия последнего города и любого из городов, название которого оканчивается на букву «к». 3.Задан текст, состоящий из слов, разделенных одним или несколькими пробелами. Сформируйте новый текст, включив в него слова заданного текста, разделенными только одним пробелом |
18.06.2009, 03:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Советую вам прочесть аналогичные темы, наверняка вы найдете там что то важное Помогите написать программы в Паскале. Помогите решить четыре задачи в Паскале Помогите решить две задачи в турбо паскале |
18.06.2009, 16:43 | #2 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
T:ARRAY[1..10] of STRING; LastTown:String; lng:BYTE; i,i_k:INTEGER; BEGIN FOR i:=1 TO 10 DO BEGIN Write('Enter the town number ',i:2,' '); ReadLn(T[i]); END; i_k:=0; i:=0; REPEAT INC(i); lng:=Length(T[i]); IF T[i][lng]='к' THEN i_k:=i; UNTIL (i_k>0) OR ((i_k=0) AND (i=10)); IF i_k=0 THEN Writeln('There are no towns ending with "к"') ELSE BEGIN LastTown:=T[10]; T[10]:=T[i_k]; T[i_k]:=LastTown; FOR i:=1 TO 10 DO WriteLn(T[i]); END; ReadLn; END. Цитата:
VAR f,f1:TEXT; ch:CHAR; BEGIN Assign(f,'C:\d'); ReSet(f); Assign(f1,'C:\d1'); ReWrite(f1); REPEAT Read(f, ch); Write(f1,ch); IF (ch=' ') AND (NOT EoF(f)) THEN BEGIN REPEAT Read(f,ch); UNTIL ch<>' '; Write(f1,ch); END; UNTIL EoF(f); Close(f); Close(f1); END. |
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|