Исходник программы, который выводит буквы, встречающихся в двух заданных строках

Исходник программы, который выводит буквы, встречающихся в двух заданных строках

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

Итак задача написать программу на паскаль. Текст задачи:
Даны две строки. Выведите буквы, встречающиеся и в той, и в другой строках.


Для того, чтобы решить эту задачу, нужно лишь знать процедуры и функции, применимые для строк, а также про цикл с параметром.

Исходный код программы Pascal:

var a,b:string;  //Описание переменных
i,j:integer;
begin //Начало
readln(a); //Считывание первой строки
readln(b); //Считывание второй строки
for i:=1 to length(a) do //Цикл с параметром для первой строки
for j:=1 to length(b) do //Цикл с параметром для второй строки
if a[i]=b[j] then write(a[i]); //Вывод букв
end. //Конец программы


Скачать исходник: pas6zed.pas

Заходите на наш сайт, подписывайтесь на группу Вконтакте и читайте нас в твиттер. Главное, помните, что решение задач по программированию не так уж сложно, как кажется!

Кстати, рекомендую сайт http://www.remotec.ru/?opt=cat&id_parent=2457&level=1!
Автор: Zed от 2013-05-16 20:49:54   Просмотров: 2764

Теги: Паскаль Pascal исходник исходники скачать string FOR