Re: Задача на строки по Pascal

Brat22
Сообщения: 5
Зарегистрирован: 27 дек 2008, 00:09

Тоже задачи по поскаль или делфи в консоли! Тоже додуматся немагу
Множества:
!
var A,B:set of char;
x:char;
Переменной B присвоить множество полученное из A
а) добавление элемента x;
б) удаление элемента x;
!
Вычислить значение выражение
а) [1,3,5]+[2,4];
б) [1,3,5]*[2,4];
в) [1,3,5]-[2,4];
г) [1..6]+[3..8];
д) [1..6]*[3..8];
и) [2,4]-[1..5];
к) []+[4];
л) []*[4];
м) []-[4];

Процедуры
!
Описать процедуру Sort Inc 3 (A,B,C) меняющую содержимое переиенных A,B,C таким оброзом, чтобы их значения оказались упорядоченными по возростанию (A,B,C - веществн. параметры, являющиеся одновременно входными и выходными) С помощью этой процедуры упорядочить по возростанию 2 данных набора из 3-х чисел (A1,B1,C1) и (A2,B2,C2)
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

ошибка у меня(
не учел что длина строки меняется

Код: Выделить всё

program stroki;
var
i : integer;
y : string;

begin
Write('Vvedite stroku: ');
Readln(y);
for i:=length(y) downto 1 do
if i mod 2 = 1 then
delete(y,i,1);
writeln (y);
Readln;
end.
ака хинт: коментируйте код, самим же легче будет разобраться ;)
Brat22
Сообщения: 5
Зарегистрирован: 27 дек 2008, 00:09

спс большое , кто поможет выше 3 решить ?
Intagar
Сообщения: 2
Зарегистрирован: 28 дек 2008, 17:32

Подскажите, пожалуйста, как определить количество гласных с согласных букв в строке. Заранее спасибо.
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

составить таблицу согласных и гласных и подсчитать
ака хинт: коментируйте код, самим же легче будет разобраться ;)
Brat22
Сообщения: 5
Зарегистрирован: 27 дек 2008, 00:09

Тоже задачи по поскаль или делфи в консоли! Тоже додуматся немагу
Множества:
!
var A,B:set of char;
x:char;
Переменной B присвоить множество полученное из A
а) добавление элемента x;
б) удаление элемента x;
!
Вычислить значение выражение
а) [1,3,5]+[2,4];
б) [1,3,5]*[2,4];
в) [1,3,5]-[2,4];
г) [1..6]+[3..8];
д) [1..6]*[3..8];
и) [2,4]-[1..5];
к) []+[4];
л) []*[4];
м) []-[4];

Процедуры
!
Описать процедуру Sort Inc 3 (A,B,C) меняющую содержимое переиенных A,B,C таким оброзом, чтобы их значения оказались упорядоченными по возростанию (A,B,C - веществн. параметры, являющиеся одновременно входными и выходными) С помощью этой процедуры упорядочить по возростанию 2 данных набора из 3-х чисел (A1,B1,C1) и (A2,B2,C2)

НАрод помагите плиз очень надо =( я почемута тему начать немогу приходится тут писать!
fareng8
Сообщения: 12
Зарегистрирован: 14 янв 2009, 21:33

Pascal, строковый тип.
Дано двоичное число, нужно его перевести в шестнадцатеричное.
Аватара пользователя
demon416
Сообщения: 178
Зарегистрирован: 30 янв 2006, 14:03
Откуда: kirovskoe

Дублировать сообщение в нескольких темах запрещено правилами форума
а по теме
Групируй по 4 справа на лево и дальше с помощью case или подсчета суммы разрядов переводи
ака хинт: коментируйте код, самим же легче будет разобраться ;)
fareng8
Сообщения: 12
Зарегистрирован: 14 янв 2009, 21:33

demon416 писал(а):Дублировать сообщение в нескольких темах запрещено правилами форума
а по теме
Групируй по 4 справа на лево и дальше с помощью case или подсчета суммы разрядов переводи

а в виде кода? :rolleyes:

кстати из 16го в 2е -тоже нужно и даже больше
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Соответственно каждую 16ричную цифру заменяем группой из четырех двоичных.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить