Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Игра - анаграммы https://www.cyberforum.ru/ pascalabc/ thread901771.html Анаграмма – это слово, в котором перевернуты буквы, например, «ШАДОЛЬ» - «ЛОШАДЬ», а «ТИВОНКР» - это «ВТОРНИК». Программа рассчитана на двух игроков, соревнующихся друг с другом. В качестве слов используются только имена существительные, нарицательные, в единственном числе, в именительном падеже. Первый игрок вводит с клавиатуры слово длиной не менее пяти, но не более восьми букв (постарайтесь...	Pascal ABC Напечатать все слова из списка, отличные от слова "SUN" С клавиатуры вводятся 10 слов. Напишите программу, которая: a) напечатает все слова из списка, отличные от слова "SUN"; b) напечатает слово, ближайшее к началу алфавита в списке (считаем, что все слова различны; выполнять аналогично поиску минимального из ряда чисел); c) слово, составленное из последних символов всех слов списка; d) все слова из списка, содержащие три буквы.
Pascal ABC Создать 100 кнопок с заданными параметрами и отобразить их на форме https://www.cyberforum.ru/ pascalabc/ thread901755.html народ такая проблема мне для курсовой нужен работающий код на ПАСКАЛЬ с массивом и циклом. проблема в том что я понимаю как это сделать в среде делфи, а вот паскаль в глаза не видела. код накропала но не уверенна что это работает в паскаль. плиз помогите. смысл кода таков создай 100 кнопок с заданными параметрами отобрози их на форме. если надо переделать скажите где ошибки! var	Pascal ABC Система счисления Сделать процедуру, которая будет переводить вещественное число (с дробной частью) в 10 системе счисления в 7-ую систему счисления. https://www.cyberforum.ru/ pascalabc/ thread901714.html
Pascal ABC Вызов процедуры с клавиатуры-модуль VCL К примеру, есть программка uses vcl; var f:form; b:button; x:integer; procedure up; begin	Pascal ABC Графика Pascal ABC: Процедура рисования треугольника Сама процедура: procedure triangle(x1,y1,x2,y2:integer); begin line(x1,y2,x2,y2); line(x1,y2,round((x1+x2)/2),y1); line(x2,y2,round((x1+x2)/2),y1); end; Все правильно, но иногда получается вот что: https://www.cyberforum.ru/ pascalabc/ thread901684.html
Pascal ABC Оживить программу за счёт движения шара до стенки и обратно https://www.cyberforum.ru/ pascalabc/ thread901639.html Доброго времени суток, помогите пожайлуста оживить программу за счёт движения шара до стенки и обратно. uses crt, graphabc; var x: integer; begin SetWindowSize(768,512); for x := 10 to 768 do setPenWidth(2); moveTo(380,100);	Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО" Pascal ABC Напишите программу, которая выдаст на экран пять слов максимальной длины из слова "ЭЛЕКТРИЧЕСТВО".
Pascal ABC Напишите программу, выводящую на экран символы, скрывающиеся за кодами 129—255 Написать программу, выводящую на экран символы, скрывающиеся за кодами 129—255. Распечатайте или выпишите коды строчных и прописных букв кириллицы. https://www.cyberforum.ru/ pascalabc/ thread901576.html	Pascal ABC Дан массив 130 целых чисел. Вывести только нечётные элементы по 7 в строке https://www.cyberforum.ru/ pascalabc/ thread901457.html Помогите написать программу, ну никак не удается. Дан массив 130 целых чисел. Вывести только нечётные элементы по 7 в строке.
Найти номер последней пары соседних элементов массива с разными знаками Pascal ABC 1 Исходный массив должен быть выведен на экран. 2 Все отдельные операции оформлять через подпрограммы. 3 Все преобразования производить с исходным массивом. 3 После каждого преобразования на экране должно быть представлено название преобразования и преобразованный массив или значения указанных величин, или соответствующее сообщение Дан массив целых чисел, состоящий из 10 элементов....	Pascal ABC Кубик рубик с разными цветами+подпись https://www.cyberforum.ru/ pascalabc/ thread901423.html в Pascal Срочно нужно, заранее спасибо!!

Vlad220994

1 / 1 / 1

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

Сообщений: 73

Строки. Разбор - Pascal ABC - Ответ 4720568

14.06.2013, 16:17. Показов 2296. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Помогите разобраться в каждой строке

Удвоить каждую букву в слове, иные символы оставить без изменения.

Pascal

program z1;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
var s:string;
    i:byte;
begin
write('Введите слово: ');
read(s);
for i:=length(s) downto 1 do
if s[i] in bk then insert(s[i],s,i);
write(s)
end.

Определить количество слов в строке, оканчивающихся на заданный символ

Pascal

program z2;
var
  s: string;
  i, j: integer;
  smb:char;
 
begin
writeln('Введите строку:');
readln(s);
writeln('Введите символ:');
readln(smb);
for i:=1 to length(s) do
if (s[i]=' ') and (s[i-1] = smb) then inc(j);
writeln('Количество найденных слов: ',j);
end.

заранее спасибо

Вернуться к обсуждению:
Строки. Разбор Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.06.2013, 16:17

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

Книга "Конечный автомат 2: Возвращение". Часть 1. Разбор. Глава 8. Имя, проверка строки и разбор до. На том ли я пути?
Наверное, иногда прилюдно выругаться полезно... Стоило мне в предыдущей теме написать...

Разбор строки
Здравствуйте. В stdin программы приходит строка вида domain=d.ru&type=delete&file=std&... При...

Разбор строки
Помогите разобрать вот такие строки: 2011/07/01 22:08:29 1...

разбор строки
есть строка в файле 43;AS;"5002279";"5-022";"Комплект тормозных колодок; дисковый тормоз";245987...

	14.06.2013, 16:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.06.2013, 16:17

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

Разбор строки
Дана строка,в которой через кому записани всякие речи.Нада вивести,що ето(то що через коми),и ево...

Разбор строки
Подскажите, пожалуйста, как реализовать разбор строки, к примеру, мне приходит строка "ABC 123",...

Разбор строки
Допустим есть исходная строка "15,0 минут" необходимо убрать слово "минут" и в зависимости от...

разбор строки
Доброго времени суток. Посоветуйте пожалуйста статьи и примеры реализации по теме разбора строк,...

Наверх