Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

БЛОК-СХЕМА К КОДУ

64K
23 октября 2010 года
ice_lady
2 / / 23.10.2010
Привет.господа))) Продолжаю штудировать паскаль))) даже немного получается....только вот блок-схему составить не могу(((( Помогите, плиз...:и описание кода заумными словечками((( Вот код и само задание

P.S А МОЖЕТ ПРОГА СУЩЕСТВУЕТ, Чтобы все по волшебному нажатию кнопочки делалось???


Var
I: Integer;
S: String;
Begin
ReadLn(S);
I := 1;
while I <= Length(S) do
begin
if S = '*' then
Delete(S, I, 1)
Else
Begin
Insert(S, S, I + 1);
I := I + 2;
end;
end;
WriteLn(S);
ReadLn;
end.

Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать строку, удалив каждый символ ‘*’ и повторив каждый символ, отличный от символа ‘*’.
2
23 октября 2010 года
squirL
5.6K / / 13.08.2003
Цитата: ice_lady

P.S А МОЖЕТ ПРОГА СУЩЕСТВУЕТ, Чтобы все по волшебному нажатию кнопочки делалось???


разумеется, существует. попробуйте чуть-чуть напрячь мозг и придумать волшебное словосочетание для поиска в гугле.

а вообще - нарисовать блок-схему для такого кода - вопрос пяти минут. неужели настолько тяжело осилить?

244
23 октября 2010 года
UAS
2.0K / / 19.07.2006
Учитывая капс в тексте, то я думаю, что осилить будет тяжело.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог