Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ProgerLevel1_80
0 / 0 / 0
Регистрация: 22.03.2015
Сообщений: 37
1

Напечатать все слова, отличные от последнего слова, предварительно преобразовав их по заданному правилу

31.01.2016, 12:26. Просмотров 881. Ответов 2
Метки нет (Все метки)

Добрый день помогите пожалуйста ! Само условие я сделал . Не могу понять как задать от 2 до 30 слов и латинские буквы в каждом слове от 2 до 10. Срочно помогите ! Сегодня сдавать нужно !
Вот сама задача :Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2016, 12:26
Ответы с готовыми решениями:

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

Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них
не понимаю код программы const word_count = 100; type type_string_array...

Напечатать все слова, отличные от последнего слова предварительно преобразовав каждое из них
Дан текст. Напечатать все слова, отличные от последнего слова, предварительно...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка....

Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре
дана строка, между словами не менее одного пробела, в конце точка. Вывести все...

2
YakobsEA
268 / 96 / 75
Регистрация: 04.12.2015
Сообщений: 369
Записей в блоге: 1
31.01.2016, 15:27 2
А вручную нельзя задать?
Pascal
1
2
3
4
var strStr: string;
 
writeln('Введите строку');
readln(strStr);
или вообще так:

Pascal
1
2
3
var strStr: string;
 
strStr := 'Word1 word2 ....';
0
Торович
207 / 207 / 213
Регистрация: 03.07.2012
Сообщений: 448
31.01.2016, 16:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses
  crt;
var
  t : text;
  s, f_name : string;
  w : array[2..30] of string[10];
  last_w : string[10];
  i, j : integer;
begin
  clrscr;
  write('File Name:'); readln(f_name);
  assign(t,f_name);
  {$I-}
  reset(t);
  {$I+}
  If IOResult<>0 then begin
    writeln('File not found.');
    readln;
    exit;
  end;
  i := 0;
  writeln('Original File:');
  while not eof(t) do begin
    readln(t,s);
    writeln(s);
    s := s + ' ';
    while s<>'' do begin
      inc(i);
      if (i>30) or (length(copy(s,1,pos(' ',s)-1))>10) then begin
        writeln('Error.');
        readln;
        exit;
      end;
      w[i] := copy(s,1,pos(' ',s)-1);
      delete(s,1,pos(' ',s));
      while s[1]=' ' do delete(s,1,1);
    end;
  end;
  writeln;
 
  last_w := w[i];
  for j := 1 to i do if w[j]<>last_w then
    write(copy(w[j],2,length(w[j])-1)+w[j][1],' ');
  writeln;
  for j := 1 to i do if w[j]<>last_w then
    write(w[j][length(w[j])]+copy(w[j],1,length(w[j])-1),' ');
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2016, 16:20

Из последовательности слов напечатать все слова, отличные от последнего слова
Надо написать программу, а я в программирование не силен. Дана непустая...

Строка: Напечатать все слова, отличные от последнего слова
Строковый тип! Дана последовательность, содержащая от 2 до 30 слов, в каждом...

Дана последовательность слов, напечатать все слова, предварительно преобразовав каждое из них
Дана последовательность слов. напечатать все слова, предварительно преобразовав...


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

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

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