сервис вопросов и ответовНаписать программу на паскале:
5-9 класс|
|
Ввести две строки
Найти в них общие слова и удалить их(общие слова)
Вывести эти строки без общих слов
P.S:Знаки препинания внутри предложений не учитывать
К приложению я скинул пробный вариант программы, найдите в ней ошибки и перепишите.
Dashalebed
19 июля 2013 г., 22:01:25 (10 лет назад)
Krashhenko00
19 июля 2013 г., 23:50:21 (10 лет назад)
Пробный вариант сильно перегружен ненужными операциями.
Если знаки препинания не учитывать, то получился вот такой вариант.
Program stroka;
var
A,b,c:string;
n,i,k,p:integer;
begin
write('Введите первую строку: ');
readln(A);
write('Введите вторую строку: ');
readln(B);
i:=1;
while (i<length(a))do
begin
k:=i;
while (k<length(a)) and (a[k]<>' ') do inc(k);
c:=copy(a,i,k-i);
writeln(c);
if pos(c,b)<>0 then
begin
while pos(c,b)<>0 do delete(b,pos(c,b),k-1);
delete(a,i,k);
end
else i:=k;
inc(i);
end;
writeln;
writeln(A);
writeln(b);
end.
MerySea
20 июля 2013 г., 1:07:47 (10 лет назад)
Решение во вложении, я не стал рассматривать твой алгоритм, написал свой
Ответить
Другие вопросы из категории
Решите пж!!!! скорость передачи данных через ADSL-соединение равна 1024000 бит/с. Через данное соеденение передают файл размером 2000КВ. Определите время
передачи файла в секундах
Документ содержит точечную черно-белую фотографию 10*15 см. Каждый квадратный см содержит 600 точек,каждая точка описывает 4 битами. Каков общий
информационный объем документа в килобайтах.
Вы приобрели котёнка. Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив, в котором будут храниться значения веса
котён-ка в течение одного месяца (например, мая)?
Читайте также
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Помогите написать программу на Паскале.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Ребят) Помогите с программой на Паскале, пожалуйстаа)
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
Пожалуйста помогите создать какую нибудь полезную программу на паскаль , срочно нужно до понедельника, чтобы в этой программе были все темы за 8 класс,
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Вы находитесь на странице вопроса "Написать программу на паскале:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.