Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Сколько раз минимально выполнится цикл For? https://www.cyberforum.ru/ pascalabc/ thread694448.html
если n принадлежит , и i:=2 to n. сколько раз минимально выполнится цикл For?
Pascal ABC В другой файл записать элементы исходного массива, сумма которых = N
Здравствуйте!!! Есть задачка: В файле есть одномерный массив. Вводится число N. В другой файл нужно записать элементы этого массива, сумма которых = N. Помогите пожалуйста!!! Спасибо!!!!
Pascal ABC Добавить индикацию самого короткого слова в выводе программы
program Predlojenie; uses crt; var a,s:array of char; n,i,j,k,m,z,min:byte; c:char; begin clrscr; writeln('Введите предложение'); n:=0; repeat
Pascal ABC Найти два числа, таких, у которых цифры первого являются перестановкой цифр второго Найти два числа, таких, у которых цифры первого являются перестановкой цифр второго, и, если из первого вычесть второе, то получится сумма цифр одного из них. https://www.cyberforum.ru/ pascalabc/ thread694370.html
Pascal ABC Составить пpогpамму "сжатия" исходной стpоки символов https://www.cyberforum.ru/ pascalabc/ thread694342.html
Задана строка символов, содержащая только буквы. Составить пpогpамму "сжатия" исходной стpоки символов: каждая подстpока, состоящая из нескольких вхождений одного и того же символа, заменяется на...
Pascal ABC Дано двузначное число. Определить является ли сумма его цифр двузначным числом
6. Дано двузначное число. Определить является ли сумма его цифр двузначным числом.
Pascal ABC Напишите программу-модель анализа пожарного датчика в помещении
5. Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (ее значение вводится с клавиатуры) в комнате превысила 60°С. 1....
Pascal ABC В данной последовательности целых чисел найти количество различных нечетных положительных чисел В данной последовательности целых чисел найти количество различных нечетных положительных чисел. https://www.cyberforum.ru/ pascalabc/ thread694321.html
Pascal ABC В массиве a[1.10] записаны целые числа от 1 до 25. Расположить элементы массива в порядке убывания частоты встречаемости элементов https://www.cyberforum.ru/ pascalabc/ thread694311.html
const z =10; var a:array of integer=(4,4,2,8,8,16,2,16,2,20); b:array of integer; c:array of integer; n,i,j,k,l,t,x,y,o:integer; begin i:=0; n:=z; while i<=n do
Pascal ABC Олимпиадная задача. Карта местности. Дана карта местности, на которой изображены задания. Карта разбита на клетки. Массив клеток состоит из N строк и M столбцов. если клетка принадлежит зданию, то в исходном массиве ей соответствует 1,... https://www.cyberforum.ru/ pascalabc/ thread694295.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,997
Записей в блоге: 1
18.11.2012, 11:58 0

Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту

18.11.2012, 11:58. Просмотров 1785. Ответов 6
Метки (Все метки)

Ответ


Цитата Сообщение от artemka163rus Посмотреть сообщение
А как будет если убрать свойство "симметричности"?))
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
Var s,s1,sl:string;
    i,j:byte;
Begin
    write('Введите строку: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    sl:='';
    For i:=Length(s) downto 1 do
     if s[i]<>' ' then sl:=sl+s[i]
      else break;
    Delete(s,i,Length(s));
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1<>'')and(s1<>sl) then
      Begin
        j:=1;
        For i:=1 to Length(s1)-1 do
         if s1[i]>s1[i+1] then j:=0;
        if (j=1) then writeln(s1);
      End;
    End;
    readln;
End.


Вернуться к обсуждению:
Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 11:58

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

Напечатать те слова последовательности, которые отличны от последнего слова
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова последовательности, которые отличны от последнего слова
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова, которые отличны от последнего и совпадают с начальным отрезком алфавита
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

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

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