Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Создать новый текстовый файл, записав в него перевернутые строки исходного файла https://www.cyberforum.ru/ pascalabc/ thread539033.html
дан текстовый файл.создать новый текстовый файл,записав в него перевернутые строки исходного файла: для каждой строки символы в новом файле располагаются в обратном порядке.
Pascal ABC исполняемый файл в Паскаль АВС.Net
как из кода на pascal abc.net сделать исполняемый файл(расширения .exe)
Pascal ABC Двумерный массив. Найти сумму всех элементов. Дан двумерный массив,найти сумму всех эл-ов. https://www.cyberforum.ru/ pascalabc/ thread539004.html Pascal ABC помогите исправить программу uses crt,GraphABC; var gm,gd:integer; procedure fig(x,y,a:integer); begin if a>3 then begin bar(x-a,y-a,x+a,y+a); fig(x-2*a div 3,y-2*a div 3,a div 3); fig(x-2*a div 3,y+2*a div 3,a div 3); fig(x+2*a div 3,y+2*a div 3,a div 3); https://www.cyberforum.ru/ pascalabc/ thread538998.html
Строки. Удалить слово с заданным номером Pascal ABC
Дан текст. Между соседними словами – не менее одного пробела, за последним словом - точка. Удалить слово с заданным номером. Результат вывести на экран и в текстовый файл. Буду благодарна, если поможете решить..
Pascal ABC Матрица. Найти число, встречающееся во всех строках https://www.cyberforum.ru/ pascalabc/ thread538941.html
Дана матрица P размерности n×m. Каждая строка массива упорядочена по возрастанию. Найти число, встречающееся во всех строках. Помогите решить пожалуйста!
Pascal ABC Графика в языках программирования https://www.cyberforum.ru/ pascalabc/ thread538933.html
1. Изобразить движение маятника. 2. Изобразить пароход и закрасить его отдельные элементы различными цветами А) Составить процедуры рисования фигур. Б) Разделить графический экран с использованием заливки на 8 областей разного цвета. 4. Построить график функции y=5x2+3x-7 на отрезке . Рисунки с заданиями в архиве. Все эти задания необходимо написать на Паскаль АВС. Помогите...
Матрица. Возвести в квадрат элементы и переставить местами первый и последний столбец Pascal ABC
Возвести в квадрат все элементы матрицы А(4,3) и переставить местами первый и последний столбец.
Pascal ABC Написать программу с подпрограммой сортировки перемешиванием массива из записей https://www.cyberforum.ru/ pascalabc/ thread538837.html
Разработать программу с подпрограммой сортировки перемешиванием массива из записей.
Pascal ABC Блок-схема... Может быть здесь есть кто-нибудь кто может помочь с блок-схемой к этому алгоритму? uses crt; const max=100; var a:array of integer; n,i,j,k:byte; p:longint; begin clrscr; https://www.cyberforum.ru/ pascalabc/ thread538730.html
Pascal ABC Поменять местами содержимое двух файлов
поменять местами содержимое двух текстовых файлов. помогите найти ошибку var f,f1,fo:text; s:string;//fo - третий файл прост для перемены значений begin assign(f,'input.txt');reset(f); assign(f1,'input1.txt');reset(f1); assign(fo,'lev.txt');rewrite(fo); while not eof (f) do begin readln(f,s); writeln(fo,s); end; close(f);rewrite(f);//открыли теперь для записи while not eof(f1) do begin...
Pascal ABC Магазин соков Программа Люди, помогите сделать программу "магазин соков", сам код есть, осталось перевести его в форму и там всё настроить. Так же помогите доработать ограничение на внесение денежных средств Буду благодарен если вышлите программу с рабочей формой на e-mail: grishka.lop@gmail.com код: program rspsit; uses crt; const sttovar1=50; const sttovar2=60; const sttovar3=70; https://www.cyberforum.ru/ pascalabc/ thread538710.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
06.04.2012, 00:00 0

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

06.04.2012, 00:00. Показов 3060. Ответов 4
Метки (Все метки)

Ответ

konispat,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var s: string;
    i,j,k: integer;
    p:set of char;
 
begin
write('s=');
readln(s);
p:=[];
for i:=1 to length(s) do
    if s[i] in ['а'..'я'] then
       begin
       k:=0;
       for j:=1 to length(s) do
           if s[i]=s[j] then inc(k);
       if k=1 then p:=p+[s[i]];
       end;
for i:=224 to 255 do
    if chr(i) in p then write(chr(i));
end.


Вернуться к обсуждению:
Строки и множества. Вывести в алфавитном порядке все буквы текста, входящие в него по одному разу Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2012, 00:00
Готовые ответы и решения:

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

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

Массивы. Строки. Напечатать все буквы, входящие в текст по одному разу
1.Создайте массив A c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и...

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

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

Множества: в алфавитном порядке напечатать все малые латинские буквы, входящие в строку ровно 1 раз
Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту...

Вывести в алфавитном порядке буквы, входящие одновременно во все множества
Пусть D1, D3, D5, D7 – множества, составленные из букв, входящих в названия нечетных дней...

Вывести на экран дисплея в алфавитном порядке все буквы, которое входят в массив по одному разу
Дан массив. Элементами массива являюся строчные латинские буквы. Вывести на экран дисплея в...

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

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