0 / 0 / 0
Регистрация: 08.09.2013
Сообщений: 4
1

Дана последовательность,содержащая от 2 до 30 слов,в каждом из которых от 2 до 10 латинских букв

17.12.2013, 14:50. Показов 8109. Ответов 1
Метки нет (Все метки)

Дана последовательность,содержащая от 2 до 30 слов,в каждом из которых от 2 до 10 латинских букв;между соседними словами-не менее одного пробела,за последним словом - точка.
Напечатать все слова,отличные от последнего слова,предварительно преобразовав каждое из них по следующему правилу: перенести последнюю букву в начало слова.
Помогите доделать программу: перенести последнюю букву в начало слова

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
uses crt;
const   m=30;
const   n=10;
var      i,j:integer;
          c:char;
          a:array[1..m,1..n] of char;
          fl,error_n:boolean;
begin
for i:=1 to m do
 for j:=1 to n do
 a[i,j]:=' ';
 j:=1; i:=0; c := '1';  error_n := false;
 writeln('Введите от 2-х до',m,'слово длинной не болеее 10 символов. В конце поставьте точку.');
 while c <> '.' do
  begin
   inc(i);
   read(c);
   while c = ' ' do read(c);
   while (c <> ' ') and (c <> '.') do
    begin
     a[i,j] := c;
     read(c);
     inc(j);
    end;
   if j = 2 then error_n := true;
   j := 1;
  end;
 if error_n then writeln(', Ошибка!!! Присутствуют слова, длина которых меньше 2');
 if i = 1 then writeln ('Ошибка!!! Кол-во слов меньше 2');
readln;
if error_n or (i = 1) then writeln('Имеются ошибки. Перезапустите программу и введите корректные данные')
else
for i:=2 to m do
 begin
  fl:=true;
  j := 1;
  while ((a[i,j] <> ' ')and (a[i,1]<>' ')) and fl do
   begin
    if a[i,j] <> a[1,j] then fl := false;
    inc(j);
   end;
    if (a[i,j] <> ' ')or (a[1,j]<>' ') then fl := false;
  j := 1;
  if not fl then
   begin
    while a[i,j+1] <> ' ' do inc(j);
    for j:=j to n-1 do a[i,j]:=a[i,j];
    for j:=1 to n do write(a[i,j]);
   end;
 end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 14:50
Ответы с готовыми решениями:

Дана последовательность,содержащая от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских букв
Дана последовательность,содержащая от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских...

Задана фраза – последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв
Задана фраза – последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5...

Дана непустая последовательность слов,в каждом из которых от 1 до 6 латинских букв;между соседними запятая
Дана непустая последовательность слов,в каждом из которых от 1 до 6 латинских букв;между соседними...

дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных латинских букв, между соседними словами - запятая, за пос
дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных...

1
0 / 0 / 0
Регистрация: 12.11.2016
Сообщений: 33
19.12.2016, 19:22 2
можете такой код на Pаthon написать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2016, 19:22
Помогаю со студенческими работами здесь

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного
Напишите пожалуйста код :-* Дана последовательность, содержащая от 2 до 50 слов, в каждом из...

Дана непустая последовательность слов из строчных латинских букв
Напечатать в алфавитном порядке: 1) Все гласные буквы которые входят в каждое слово. 2) Все...

Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru