|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.04.2018, 16:31 | #1 |
Пользователь
Регистрация: 30.11.2017
Сообщений: 16
|
Расставить пробелы.
Нужно в конечном тексте расставить пробелы также как и в начале. Думаю можно попробовать подсчитать количество символов в начальном слове. Затем расставить также как и в начале пробелы.
program ghj; const A: array[1..99] of string = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я','а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я','а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я'); var day,v,b1: integer; n,b,v1:string; i,i1,i2:byte; Begin v:=3; b:='абвгдеёжзийклмнопрстуфхцчшщъыьэ юя'; Writeln('Введите одну русскую букву'); Readln(n); for i:=1 to length(n) do begin v:=v+1; day:=pos(n[i],b); //Write(day,' '); day:=day+v; v1:=A[day];//Составление слова по символам if n[i]<>' 'then //writeln(v); write(v1); if n[i]=' 'then v:=3; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отформатировать файл с программой на языке С: расставить недостающие пробелы | Кристина1998 | Помощь студентам | 0 | 17.03.2017 22:49 |
Расставить комментарии (fasm) | rolex123 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 06.05.2012 21:06 |
Расставить даты по таблице | hunter-330 | Microsoft Office Access | 2 | 25.10.2010 12:05 |
Расставить комментарии | bookkc | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 5 | 16.09.2010 10:00 |
Расставить пробелы | dukesoteg | Помощь студентам | 0 | 10.06.2010 18:30 |