Free Pascal

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

Войти

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

Другие темы раздела
Free Pascal Для каждой буквы первого слова определить, входит ли она во второе слово https://www.cyberforum.ru/ free-pascal/ thread805979.html Даны два слова. Для каждой буквы первого слова (в том числе для повторяющихся в этом слове букв) определить, входит ли она во второе слово. Например, если заданные слова "информация" и "процессор", то для букв первого из них ответом должно быть:"нет нет нет да да нет нет да нет нет"	Даны два массива целых чисел.Определить наименьшее общее кратное для всех элементов каждого из массивов.Вывести наименьшие общие кратные на экран в по Free Pascal помогите пожулуиста,срочно надо. Даны два массива целых чисел.Определить наименьшее общее кратное для всех элементов каждого из массивов.Вывести наименьшие общие кратные на экран в порядке убывания.
Free Pascal Задача по ООП https://www.cyberforum.ru/ free-pascal/ thread805755.html Дано объект :окружность поле:радиус ,центр окружности методы:конструктор инициализации площадь круга длина окружности.	Free Pascal Free Pascal помогите пожалуйста. Написать программу,содержащую процедуру,которая вставляет в матрицу строку или столбец с заданным номером. https://www.cyberforum.ru/ free-pascal/ thread805742.html
Free Pascal Прокрутка текста при нажатии клавиш "вверх" и "вниз" Написать программу, считывающую текстовый файл и осуществляющую скроллинг его одержимого по экрану вперед и назад при нажатии клавиш "вверх" и "вниз".	Free Pascal Расчет по двум формулам Доброго времени суток. помогите пожалуйста с решением задачи: написать программу для расчета по двум формулам. результаты вычисления по обоим формулам должны совпадать. https://www.cyberforum.ru/ free-pascal/ thread804894.html
Free Pascal Графика:передвигающаяся машинка Нужно чтобы машинка двигалась с лева на право,а 2 программа чтобы по параболе https://www.cyberforum.ru/ free-pascal/ thread804454.html	Составить программу для вычисления в точках Free Pascal Выбрать алгоритм программу для вычисления в точках х, = а + i-h, i = 0, 1, 2..., n, h - (b - а)/п промежутка наибольшего и среднего значений функции Для выполнения задания воспользоваться оператором цикла FOR
Free Pascal Использовать в данной программе процедуру с параметром https://www.cyberforum.ru/ free-pascal/ thread804103.html Использовать в данной программе процедуру с параметром program matrix; uses crt; var a: array of real; i,y,n,m: integer; begin clrscr; writeln ('Введите количество строк и столбцов матрицы А:'); readln (n,m); clrscr;	Free Pascal Массив с инкрементом =1 заполнить по спирали Заполнить массив 100х100 натуральными числами с инкрементом равному единице. Заполнение массива происходит по спирали. Я разобрался с алгоритмом изменения "координат" и индексов, но с паскалем не дружу, нужна помощь. Алгоритм таков: сначала индексы имеют значения (1,1), потом индекс строк остается неизменным (приращениеY = 0), а индекс столбцов увеличивается (приращениеX = 1). После того как... https://www.cyberforum.ru/ free-pascal/ thread804042.html
Free Pascal Дан массив из 20 чисел. Для каждого числа необходимо определить количество чисел в массиве кратных ему Помогите пожалуйста, подскажите идею или программу! Дан массив из 20 чисел. Для каждого числа необходимо определить количество чисел в массиве кратных ему. Заранее спасибо:)	Free Pascal Перевести все числа в тексте в двоичное представление На планете Роботов очень не любят десятичную систему счисления, поэтому они попросили Вас написать программу, которая заменяет все встречающиеся в тексте числа на эти же числа, но в двоичной системе счисления. Входные данные Единственная строка, состоящая из любых символов. Длина строки не превышает 255 символов. Гарантируется, что во всех числах нет ведущих нулей. Выходные данные... https://www.cyberforum.ru/ free-pascal/ thread803986.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,572

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

16.03.2013, 11:00

Для каждой буквы первого слова определить, входит ли она во второе слово - Free Pascal - Ответ 4262772

16.03.2013, 11:00. Показов 1286. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Var s1,s2:string;
    mn:set of char;
    i:byte;
Begin
    write('Введите первое слово: ');readln(s1);
    write('Введите второе слово: ');readln(s2);
    mn:=[];
    For i:=1 to Length(s1) do
    Begin
     if not(s1[i] in mn) then
      if Pos(s1[i],s2)>0 then write('да ')
        else write('нет ');
      mn:=mn+[s1[i]];
    End;
    readln;
End.

Вернуться к обсуждению:
Для каждой буквы первого слова определить, входит ли она во второе слово Free Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

16.03.2013, 11:00

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

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

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

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

	16.03.2013, 11:00

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

16.03.2013, 11:00

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

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны 2 слова. Для каждой буквы первого слова (в том числе и для повторяющихся в этом слове букв) ...

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны 2 слова. Для каждой буквы первого слово определить входит ли она во второе слово....

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово....

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

Наверх