сервис вопросов и ответовПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль.
5-9 класс|
|
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом "."(точка). В конце строки точку не ставить.
Xatoshka
05 мая 2015 г., 13:35:17 (9 лет назад)
POKLADROMAN
05 мая 2015 г., 15:05:06 (9 лет назад)
var
s,s1,s2:string;
l,l1:char;
i,x,x1:integer;
begin
readln(s);
for I:= 2 to length(s)-1 do begin
l:=s[i];l1:=s[i+1];x:=ord(x);x1:=ord(l1);
if (l=' ') and (x1<>32) then s1:=s1+'.' else if x<>32 then s1:=s1+l;
end;
s1:=copy(s,1,1)+s1+copy(s,length(s),1);
while ((s1[1]=' ') or (s1[1]='.')) do
s1:=copy(s1,2,length(s)-1);
writeln(s1);
end.
Lizaaple
05 мая 2015 г., 16:32:04 (9 лет назад)
ты на делфи пишешь, может?:3
Machkill
05 мая 2015 г., 19:29:18 (9 лет назад)
я пишу на fpc, только оказалось, что после копирования решения, html съел один пробел в кавычках, поэтому там нужно два пробела
мимика
05 мая 2015 г., 21:59:48 (9 лет назад)
вот и весь прикол, а программа была ощибочна, хотя согласен, программа сама по себе простая.
12юлиана12
06 мая 2015 г., 0:21:33 (9 лет назад)
она была ошибочной, но стоит добавить один пробел в коде - она работает )
Ответить
Другие вопросы из категории
Читайте также
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Помогите написать программу на Паскале.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Ребятки помогите плз 75 баллов дам!!!!
помогите написать программу в паскале.
а-3х значное число с клавиатуры. если оно перевёртыш печатать "да" если иначе "нет"
спасибо,
Вы находитесь на странице вопроса "ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.