Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 64
1

Дан список слов. Выведите на экран слова списка которые оканчиваются и начинаются с одной и той же буквы

02.07.2012, 00:14. Просмотров 1603. Ответов 4
Метки нет (Все метки)

Дан список слов.Выведите на экран слова списка которые
1)Оканчиваются и начинаются с одной и той же буквы:
2)Начинается с той же буквы что и следующие слово;
3)Совпадают с последним или первым словом

ДИНАМИЧЕСКИЕ МАССИВЫ
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2012, 00:14
Ответы с готовыми решениями:

Выведите на экран слова из списка, которые оканчиваются и начинаются с одной и той же буквы
не понимаю динамику неlp :wall: вот она . Дан список слов. Выведите на экран слова из списка,...

Найти в строке слова, которые начинаются и оканчиваются одной и той же буквой
нужна помощь! Дана строка Найти в ней те слова которые начинаются и оканчиваются одной и той же...

Найти в строке те слова, которые начинаются и оканчиваются одной и той же буквой
дана строка. найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

4
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
02.07.2012, 00:30 2
Цитата Сообщение от Delaforse Посмотреть сообщение
МНЕ ДО ЗАВТРА НУЖНО СДЕЛАТЬ, А Я ПОНЯТИЯ НЕ ИМЕЮ КАК, КТО-НИБУДЬ РЕШИТЕ ПОЖАЛУЙСТА
За это время уже можно было бы прочитать, что такое списки и как их есть, и хотя бы ПОПРОБЫВАТЬ что-то сделать.

Дописываю третий пункт и скидываю.
1
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 64
02.07.2012, 00:55  [ТС] 3
заранее спасибо!!!
0
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
02.07.2012, 01:02 4
p.s. Предупреждаю, что до этого я с дин. структурами не работал так, что сразу тестируй и говори, какие увидел недочеты.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
 
type
 
PMyType = ^TMyType;
 
TMyType = record
  Str : string;
  Prev : PMyType;
  Next : PMyType;
 end;
 
var
   num, n, i: integer;
   u, u1, u2,  x: PMyType;
BEGIN
 ClrScr;
 New(u);
 u^. Next := nil;
 u^. Prev := nil;
 Write('Kol-vo slov = ');
 Readln(n);
 for i := 1 to n do
  begin
  New(x);
  Readln(x^. Str);
  x^. Next := u;
  u := x;
  if i = 1 then u1 := x;
  end;
Writeln('Number of jobs: ');
Readln(num);
case num of
1:
  begin
  while u <> nil do
   begin
   if u^. Str[1] = u^.Str[Length(u^.Str)] then Writeln(u^.Str);
   u := u^.Next;
   end;
  end;
2:
  begin
  while u <> nil do
        begin
        u1 := u;
        u := u^. Next;
        if u^. Str[1] = u1^.Str[1] then Writeln(u1^.Str);
        end;
  end;
3:
  begin
  u2 := u;
  u := u^.Next;
  while u <> u1 do
   begin
     if (u^.Str = u1^.str) or (u^.Str = u2^.Str) then writeln(u^.Str);
     u := u^.Next;
   end;
  end;
else Writeln('Error');
end;
 
Readln;
END.
1
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 64
02.07.2012, 01:37  [ТС] 5
всё отлично
БОЛЬШОЕ СПАСИБО
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.07.2012, 01:37

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

В строке указать те слова, которые начинаются и оканчиваются одной и той же буквой
Дана строка. Указать те слова, которые начинаются и оканчиваются одной и той же буквой. Вот...

Указать те слова,которые начинаются и оканчиваются одной и той же буковой
Дана строка.Указать те слова,которые начинаются и оканчиваются одной и той же буковой. Помогите...

Найти в строке те слова, которые начинаются и оканчиваются одной и той же буквой.
Задача 1 Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же...

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код...


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

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

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