Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Синтаксис Подскажите пожалуйста почему в первом случае ставиться апостроф, а во втором нет? 1) var S : string; begin repeat ...... until S = 'крокодил'; end. 2) var S : integer; https://www.cyberforum.ru/ free-pascal/ thread1007000.html	Free Pascal Ввод переменных перечисляемого и интервального типов Доброго вечера!Помогите,пожалуйста. Разработать и отладить программу, в которой описана дата Вашего рождения (без года), вводится некоторая дата и проверяется правильность ввода. Считается, что все месяцы имеют 31 день. Значение месяца должно представляться переменной перечислимого типа. Названия месяцев должны обозначаться латиницей. День месяца должен представляться переменной интервального...
Free Pascal Пошаговая детализация https://www.cyberforum.ru/ free-pascal/ thread1006853.html Дана матрица размера 5 x 10. В каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строки.	Free Pascal Вычислите сумму https://www.cyberforum.ru/ free-pascal/ thread1006819.html Помогите!Вычислить сумму s=∑(от 0 до бесконечности) (2n)!x^2n+1/ 4^k(n!)*(2n+1) 0<=x<=0.9 K=30 Выводит ошибку! program lr6; uses crt; var S,u,x,esp,k,s:real; i:word; begin
Free Pascal матрица Помогите пожалуйста! Что я делаю не так. Даны две матрицы А=5 2 0 10 4 1 7 3 2 и матрица B=3 7 -2 1 1 -2 0 1 3 C=(A-B)*2A+2B program m; uses crt; type	Free Pascal Одномерный массив( Помогите пожалуйста!!!!! Cформировать одномерный массив из 17 элементов с помощью ввода с клавиатуры. Заменить максимальный элемент в массиве на сумму четных элементов Результат вывести на экран в виде столбцов. https://www.cyberforum.ru/ free-pascal/ thread1006788.html
Free Pascal Не могу спраится задачу поворот на МЕГУ Светофор, установленный на повороте в торговый центр «МЕГА» с Новомосковского тракта, работает в таком режиме, что за одну минуту повернуть успевают k машин. По выходным, когда жители города едут закупаться продуктами и одеждой, перед этим поворотом вырастает огромная пробка. Администрация торгового центра дала указание повесить под строящимся неподалёку мостом камеру, подсчитывающую количество... https://www.cyberforum.ru/ free-pascal/ thread1006746.html	Пошаговая Детализация Free Pascal Дана матрица размера 5 x 10. Вывести количество столбцов, элементы которых возрастают.
Free Pascal Строки Дана строка, состоящая из латинских слов, разделенных пробелами. Определить количество слов, которые начинаются и заканчиваются одной и той же буквой (содержат хотя бы одну букву "w"). https://www.cyberforum.ru/ free-pascal/ thread1006664.html	Free Pascal Дан массив, в котором все элементы различны. Удалить из него: https://www.cyberforum.ru/ free-pascal/ thread1006633.html Дан массив, в котором все элементы различны. Удалить из него: а) отрицательные элементы; б) элементы с цифрой 5.
При вводе ключей (для всех команд /?, для sort /r, для dir /o:s /a:-d /o:n) программа вылетает Free Pascal Всем доброго времени суток, исправьте пжл ошибку в коде. program os_cmd; uses windows,crt,dos; var sdir,sdirc : string; coms : string; cmd : string; // cmds : array of command; n,i : word;	Free Pascal Алгоритмы сортировки Дорогие программисты помогите пожалуйста с процедурами и функциями, совсем запутался задание 1 )Написать процедуру (с параметрами) упорядочения целочисленного массива с помощью простейшего алгоритма. https://www.cyberforum.ru/ free-pascal/ thread1006280.html

volvo

Супер-модератор

32830 / 21168 / 8147

Регистрация: 22.10.2011

Сообщений: 36,429

Записей в блоге: 8

14.11.2013, 12:45

В заданном тексте определить количество слов, которые заканчиваются на букву А - Free Pascal - Ответ 5334261

14.11.2013, 12:45. Показов 4576. Ответов 4

Метки (Все метки)

Ответ

ildwine, не начинаются, а заканчиваются...

Pascal

uses strutils;
 
var
  s, w : string;
  i, k : integer;
begin
  k := 0;
  write('строка: '); readln(s);
  i := 0;
  repeat
    inc(i);
    w := ExtractDelimited(i, s, [' ']);
    if w[length(w)] = 'A' then
    begin
      writeln(w); inc(k);
    end;
  until w = '';
  write('количество слов, заканчивающихся на букву A: ', k);
  readln
end.

Вернуться к обсуждению:
В заданном тексте определить количество слов, которые заканчиваются на букву А Free Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.11.2013, 12:45

Готовые ответы и решения:

В заданном тексте определить количество слов, которые заканчиваются на букву А
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: var s : string;...

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

Подсчитать количество слов в тексте, которые заканчиваются на гласную букву
С клавиатуры вводится текстовый рядок. Написать программу, которая подсчитывает ко-во слов в...

Подсчитать количество слов в тексте, которые заканчиваются на гласную букву
С клавиатуры вводится строка. Разработать программу, которая реализует указанные действия. а)...

	14.11.2013, 12:45

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.11.2013, 12:45

Помогаю со студенческими работами здесь

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

Текстовые файлы: Определить количество слов, которые заканчиваются на определенную букву.
Здравствуйте. Вот такое задание: Определить коичество слов в файле, который заканчиваются буквой...

Определить количество слов, которые начинаются и заканчиваются на одну и туже букву
Дано рядок, що складається з російських слів, розділених пробілами (одним або кількома). Визначити...

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

Наверх