Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Отсортировать по убыванию и вывести полученный миссив на экран 1. Создайте массив A вещественных чисел с помощью генератора случайных чисел и выведите его на экран. Отсортировать по убыванию и вывести полученный миссив на экран 2.Составте программу, упорядочивающую по убыванию элементы каждого столбца матрицы размером m*n(размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными целыми числами от 0 до 20. 3. Написать... https://www.cyberforum.ru/ pascalabc/ thread424710.html Использование graphABC для рисования сетки Pascal ABC
Доброго времени суток. Помогите пожалуйста решить задачку: Нарисуйте сетку на экране линиями разного цвета и стиля.
Pascal ABC Использование модуля для выяснения возможностей https://www.cyberforum.ru/ pascalabc/ thread424677.html
Доброго времени суток. Помогите пожалуйста решить задачку: Напишите программу, использующую модуль, в котором описаны 2 функции: первая выясняет, делится ли введенное число на 7 без остатка, вторая находит произведение цифр числа.
Pascal ABC Использование модуля для писка min and max Доброго времени суток. Помогите пожалуйста решить задачку: Напишите программу, использующую модуль, в котором описаны 2 функции: первое нахождение максимального из 3-х чисел, вторая - минимальное из 3-х чисел. https://www.cyberforum.ru/ pascalabc/ thread424676.html
Сколько литров каждого сока надо взять, чтобы приготовить S литров коктейлей? Pascal ABC
В кафе готовят коктейль из малинового и ананасового соков. Известно, что X литров малинового сока стоят М рублей, а Y литров ананасового – К рублей. Сколько литров каждого сока надо взять, чтобы приготовить S литров коктейлей общей стоимостью Р рублей?
Pascal ABC Написать процедуру, которая данные из двух файлов записывает в один https://www.cyberforum.ru/ pascalabc/ thread424637.html
Добрый вечер, помогите решить такую задачу: Нужно написать процедуру, которая из двух файлов записывает в один. Например Пример1.txt и Пример2.txt запишутся в файл Пример3.txt при помощи функции append. Процедура должна содержать один параметр стрингового типа (имя текстового файла,т.е. procedure (name:string);)
Pascal ABC Как переделать код программы? https://www.cyberforum.ru/ pascalabc/ thread424617.html
Доброго времени суток! Подскажите пожалуйста, как переделать код данной программы, что бы она вместо проверки на нечетность делала проверку на четность? program sullen; uses crt; var f,g:file of integer; i,x,n:integer; s:string; begin; randomize;
Pascal ABC Сортировка трёхмерного массива
Собственно моя программа: Program asd; uses crt; const maxn=100; var i,j,k,m,n,o:integer; a:array of integer; procedure VvodMatr(namefile:string);
Pascal ABC Составить блок-схему и программу для замены в массиве всех троек https://www.cyberforum.ru/ pascalabc/ thread424551.html
Составить блок-схему и программу для замены в массиве Y(50) всех 3.
Pascal ABC Два солдата подошли к реке Два солдата подошли к реке, по которой на лодке катаются двое мальчиков. Как солдатам переправится на другой берег, если лодка вмещает только одного солдата либо двух мальчиков, а солдата и мальчика уже не вмещает?! https://www.cyberforum.ru/ pascalabc/ thread424486.html
Удалить из файла все лишние пробелы, оставив между словами не более одного пробела Pascal ABC
Доброго времени суток. Помогите пожалуйста решить задачу: Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл.
Pascal ABC Возведение функции в степень и нелинейное уравнение. https://www.cyberforum.ru/ pascalabc/ thread424481.html
1)Напишите функцию возведения в степень по формуле A^b=e^lnA*B и используйте её в программе для возведения в 4-ю степень вещественного числа 2,87. 2) Решить нелинейное уравнение методом Ньютона ln(1+x)/x=2/pi на отрезке от 0 до 10 с точностью 10^-6Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.01.2012, 15:46 0

Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу - Pascal ABC - Ответ 2369340

09.01.2012, 15:46. Показов 1729. Ответов 3
Метки (Все метки)

Ответ

Цитата Сообщение от Jt_xD Посмотреть сообщение
3.Дан текст из строчных латинских букв,за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s: string;
    i,j,k: integer;
begin
write('s=');
readln(s);
for i:=1 to length(s) do
    if s[i] in ['a','b'..'y','z'] then
       begin
       k:=0;
       for j:=1 to length(s) do
           if s[i]=s[j] then inc(k);
       if k=1 then write(s[i]);
       end;
end.


Вернуться к обсуждению:
Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2012, 15:46
Готовые ответы и решения:

Напечатать по одному разу все гласные буквы, входящие в текст
Дан текст, в который входят буквы латинского алфавита. За текстом следует точка. Напечатать по...

Напечатать по одному разу все буквы, входящие в строку
С клавиатуры вводится строка. Напечатать по одному разу все буквы, входящие в строку. При решении...

Вывести все буквы, входящие в текст по одному разу
6. Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст по одному разу.

Множества. Вывести по одному разу все строчные русские гласные буквы, входящие в текст
Составить программу печати по одному разу в алфавитном порядке всех строчных русских гласных букв,...

3
09.01.2012, 15:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2012, 15:46
Помогаю со студенческими работами здесь

Дан текст из малых латинских букв. Напечатать по разу все буквы, входящие в этот текст
Имя входного файла zmn8.in Имя выходного файла zmn8.out Дан текст из малых латинских букв....

Строки и множества. Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу
1.Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу...

Напечатать все буквы, входящие в текст по одному разу
Задание на множества. Дан текст из строчных латинских букв, за которым следует точка. Напечатать -...

Напечатать все буквы входящие в текст по одному разу
Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru