Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
voroba1
0 / 0 / 0
Регистрация: 26.06.2010
Сообщений: 6
#1

Выручайте нужно экзамен сдать !!! - Pascal

27.06.2010, 15:58. Просмотров 464. Ответов 1
Метки нет (Все метки)

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от 'G' до 'N' и цифры от '0' до '9'.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2010, 15:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выручайте нужно экзамен сдать !!! (Pascal):

Паскаль!циклы и одномерный массив. На экзамен нужно срочно.!!не могу сдать экзамен
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ЦИКЛЫ И ОДНОМЕРНЫЙ...

Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен
Выведите на экран таблицу значений функции y=ax для х, изменяющегося от a до b...

Выручайте нужно написать программу для табулирования функции перевода километров в американские мили
Нужно написать программу для табулирования функции перевода километров в...

Выручайте! В массиве A=(a1,a2,a3.an) все элементы, равные нулю, нужно поставить сразу после максимального элемента данного массива
Вот я набросал прогу, она переписывает элементы в порядке возрастания, мне...

Экзамен побыстрее пожалуйста нужно все 5 билетов один сделал
Экзамен побыстрее пожалуйста нужно все 5 билетов один сделал

срочно надо сдать контрольную Pascal !!
Помогите пожалуйста осталась неделя до сдачи контрольной ! 2е задачи сам смог...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
27.06.2010, 16:09 #2
Лучший ответ Сообщение было отмечено voroba1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var c:char;
     m:set of char;
begin
m:=[];
writeln('Введите символы, окончание пробел:');
repeat
readln(c);
if(c in ['0'..'9'])or(c in ['G'..'N']) then m:=m+[c];
until c=' ';
writeln('Множество:');
for c:='0' to 'N' do
if c in m then write(c,' ');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2010, 16:09
Привет! Вот еще темы с решениями:

исправите ошибку, пожалуйста до четверга надо сдать
{$A+,N+,B+,D+,E+,F+,G+,I+,L+,O+,P+,Q+,R+,S+,T+,V+,X+,Y+} {$M 16384,0,655360}...

Программа на сортировку. Кто-нибудь сделайте в ближайшее время, надо сдать
Написать программу сортировки линейного массива целых чисел методом обмена....

Ребят, выручайте
нужно 2 задачи BLACKBOX 1)Задано количество чисел и сами числа. Построить...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru