|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.01.2009, 17:19 | #1 |
Регистрация: 08.01.2009
Сообщений: 5
|
2 задачки (String & Set )
1. дан текст ,который составлен с букв , за которыми следут точка. Напечатать этот текст большими буквами в алфавитном порядке по шесть букв в рядке.
Код:
если что ася 362664751.....реально хелп плз..... Последний раз редактировалось mshunter; 08.01.2009 в 18:17. |
08.01.2009, 18:07 | #2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Код:
|
08.01.2009, 18:11 | #3 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
архив 1)
вот в общем архив - всего хорошего - парни - помогите чуваку вторую прогу написать - у меня реально нет времени - завтра экзамен (
|
08.01.2009, 18:31 | #4 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
1
Код:
@(o_0)@
|
08.01.2009, 18:33 | #5 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Ткирилл - через файлы замени
|
08.01.2009, 18:47 | #6 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
спасибо, что чуваку помог
|
08.01.2009, 20:09 | #7 |
Регистрация: 08.01.2009
Сообщений: 5
|
thanks ))!!
|
08.01.2009, 21:13 | #8 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
вот вроде так )
uses crt;
var fil:text; ar:array[1..500] of string[10]; mas:array[1..10] of string; s:string ; i,j,k,n,m,l:integer; begin clrscr; writeln; writeln; assign(fil,'in.txt'); reset(fil); n:=0; while not eof(fil) do begin n:=n+1; readln(mas[i]); end; for i:=1 to 500 do ar[i]:=''; k:=1; l:=0; for i:=1 to n do begin mas[i]:=mas[i]+' '; for j:=1 to length(mas[i]) do begin if not(mas[i][j] in [' ','.','!','?',';',':']) then begin ar[k]:=ar[k]+upcase(mas[i][j]); l:=l+1; end; if l=6 then begin k:=k+1; l:=0; end; end; end; writeln; writeln; for i:=1 to k-1 do begin for j:=1 to k-i do begin if (ar[j][1]>ar[j+1][1]) then begin s:=ar[j]; ar[j]:=ar[j+1]; ar[j+1]:=s; end; end; end; close(fil); assign(fil,'oyt.txt'); rewrite(fil); for i:=1 to k do writeln(fil,ar[i]); close(fil); readln; end.
@(o_0)@
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с MVC++ 2005 && 2008 на висте | NetGod | Софт | 1 | 09.08.2008 17:14 |
Макрос set attribute file | oTyler | Microsoft Office Excel | 3 | 08.07.2008 13:20 |
Так ли нужны эти Get и Set методы? | Руслантус | Общие вопросы C/C++ | 9 | 15.06.2008 06:10 |
ошибка CommandText does not return a result set | furstenberg | БД в Delphi | 2 | 04.02.2008 17:38 |
помгите! string Copy & Delete | Димарик | Общие вопросы Delphi | 4 | 05.11.2007 14:11 |