Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 1
Регистрация: 12.11.2013
Сообщений: 81
1

Текст и масивы

11.12.2013, 15:42. Просмотров 287. Ответов 0
Метки нет (Все метки)

Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав
каждое из них по следующему правилу: если слово нечетной длины, то удалить его среднюю
букву.
под словом "текст" понимается строка символов,
слова в которой, разделены пробелами, ",",".","!","?",";",":" (одним или несколькими).

Добавлено через 15 часов 41 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program pr;
 const n = 30; m = 10;
 type TString = STring[m];
 var A: array[1..n] of TString;
 s: STring;
 k, i, p, l: Integer;
 procedure MDel(var st: TString);
 var k: Byte;
 begin
 k := Length(st);
 if k mod 2 = 1 then Delete( st, k div 2+1, 1)
 end;
 procedure DElPr(var s: String; var p, n: Integer);
 begin
 while (s[p] = ' ') and (p <= n) do Inc(p);
 end;
 function GetWord(var s: String; var p, n: Integer): TString;
 var p2: Integer;
 begin
 p2 := p;
 while (s[p2] <> ' ') and (p2 <= n) do Inc(p2);
 GetWord := Copy(s, p, p2 - p);
 p := p2;
 DelPr(s, p, n);
 end;
 begin
 writeln('ВВедите текст:'); readln(s);
 k := 0; p := 1; l := length(s);
 DelPr(s, p, l);
 while p <= l do begin
 Inc(k);
 A[k] := GetWord(s, p, l);
 if A[k][length(A[k])] = '.' then begin
 Delete(A[k], lrngth(A[k]) - 1, 1); break;
 end;
 end;
 for i := 1 to k - 1 do
 if(A[k]<>A[k]) then begin
 Mdel(A[i]);
 Writeln(A[i]);
 end;
 Writeln('Ввести текст:'); readln(s);
 end.
но не работает ошибка 11 строка из-за st
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2013, 15:42
Ответы с готовыми решениями:

Масивы
Помогите пожалуйста...Голову уже как часа 2 ломаю((( Программа должна осуществлять: 1)Ввод с...

Масивы
Дан статичный массив А(1,8,-7,6,-15), сформировать динамичный массив Б, который будет содержать...

МАсивы
В масивію,що складається з дійсних елементів обчисліть: номер мінімального елемента мисива))....

Масивы
Задана последовательность из N вещественных чисел. Определить, сколько среди них чисел меньших К,...

__________________
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2013, 15:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Масивы
Задание на скриншоте ниже: http://img7.imageshost.ru/imgs/091012/5aad99e3a4/adbea.jpg

Масивы!
1.Задан Массив M i,j =1,10 (над цифрами __) , найти произведение элементов 2-го столбца. (с...

Масивы
Привет Люди, снова нужна ваша помощь .... Решите задачи если не трудно... 1)Дано ...

Масивы
Подсчитать средний балл на экзамене по вычислительной технике в группе из 30 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.