Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Переменной L присвоить значение True, если в массиве нечетное число элементов https://www.cyberforum.ru/ pascal/ thread1157015.html
Создать файл, содержащий массив целых чисел. Определить количество элементов массива. Переменной L присвоить значение True, если в массиве нечетное число элементов, и значение False в противном случае.Спасибо заранее 		Вводится предложение. Удалить из него 2, 3 и 5 слова Pascal
Вводится предложение. Удалить из него 2, 3 и 5 слова.
Pascal Ошибка 207 в рекурсивной функции https://www.cyberforum.ru/ pascal/ thread1156885.html
Здравствуйте! Волею судеб пришлось вспоминать Паскаль в свои преклонные годы. Вот такая примитивная задача: Найти сумму членов ряда 1\(i*i), где i от 1 до n. Все это дело вылилось в такой код: program test; uses crt; var n: byte; 		Pascal Шифрование. В выходной файл вывести единственную строку, в котором содержится расшифровано сообщение https://www.cyberforum.ru/ pascal/ thread1156839.html
В первой строке входных данных записано закодированное сообщение . Вторая строка - 26 латинских букв верхнего регистра , задающие код для соответствующего символа алфавита: первый символ дает код для буквы , которая стоит от него справа через один символ в данной строке , и т.д. , предпоследний будет соответствовать первому символу , последний - второму. Используются только буквы верхнего...
Pascal Вывести все возможные способы расстановки n тур (бьют по вертикали или горизонтали) на шахматной доске
Есть задача: нужно вывести все возможные способы расстановки n тур (бьют по вертикали или горизонтали) на шахматной доске (n*n). Задачу нужно решить методом поиска с возвращением. Желательно разбить всё по процедурам и функциям как-можно детальнее. Учитель показывал алгоритмом, но не запомнил его. Там было, на примере n=3: есть 2 указателя (x,y) , сначала они x=1 y=1 , проверяем ячейку ... 		Pascal Подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом (Ссылка на сторонний ресурс удалена) Требуется подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом. Формат входных данных На вход программы поступает целое число N (1N100). Формат выходных данных Выведите количество искомых последовательностей. Пример Входные данные 5 Выходные данные 13 https://www.cyberforum.ru/ pascal/ thread1156702.html
Pascal Для каждого элемента последовательности найти среднее значение его цифр Вводится последовательность из н целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчета среднего значения цифр в числе. https://www.cyberforum.ru/ pascal/ thread1156548.html Pascal Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток
Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток.
Pascal Преобразовать стек в очередь https://www.cyberforum.ru/ pascal/ thread1156351.html
Program rabotniki; uses crt; Type elementtype=record nam:string; dat:string; adr:string; end; 		Pascal Написать процедуру (функцию) определения количества дней, прошедших от даты Т1 до Т2 https://www.cyberforum.ru/ pascal/ thread1156341.html
Написать процедуру (функцию) определения количества дней, прошедших от даты Т1 до Т2 (год не меняется). Record year: 1000..3000; month: 1..12; day: 1..31;end;
Дана строка символов. Определить количество слов, состоящих из четырех букв Pascal
Дана строка символов. Определить количество слов состоящих из четырех букв. Добавлено через 23 секунды гуглил не нашел(( Добавлено через 29 секунд а самому мозгов не хватит а завтра уже сдавать. 		Pascal Подпрограмма для преобразования одномерного массива типа byte в строку Помогите пожалуйста составить процедуру или функцию преобразования массива в строку https://www.cyberforum.ru/ pascal/ thread1156290.html
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,560
Записей в блоге: 1
26.04.2014, 07:07 0

Из последовательности слов напечатать все слова, отличные от последнего слова - Pascal - Ответ 6089888

26.04.2014, 07:07. Показов 2307. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Александр Сычко как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Var s,sl,st:string;
    i:byte;
Begin
    write('Последовательность слов: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    i:=Length(s);
    While (s[i]<>',')and(i<>0) do
    Begin
      st:=s[i]+st;
      Delete(s,i,1);
      dec(i);
    End;
    While Pos(',',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      if (st<>sl)and(sl<>'') then writeln(sl);
    End;
    readln;
End.


Вернуться к обсуждению:
Из последовательности слов напечатать все слова, отличные от последнего слова Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 26.04.2014, 07:07
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 26.04.2014, 07:07
Помогаю со студенческими работами здесь

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

Напечатать все слова, отличные от последнего слова
№ 19 п.2. - Напечатать все слова, отличные от последнего слова. Если слово четной длины, заменить...

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru