mikhailkirakosyan
?>

"дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. вывести те слова последовательности, у которых буквы по алфавиту." есть код, но он не работает объяснить что я делаю не так.язык-паскаль. uses crt; var c, i, j: integer; text, st: string; begin c: =0; clrscr; writeln('vvedite text: '); readln(text); for i: =0 to length(text) do if (text[i]=' ') or (text[i]='.') then begin st: =copy(text, 0, i); delete(text, 0, i+1); writeln('text=', text); end; for j: =0 to length(st) do begin if pos(st[j], st) c: =c+1; if c=length(st) then writeln(st); st: =''; end; readln; end. readln; end.

Информатика

Ответы

dnikolay365
Так как написана программа, в лучшем случае будет найдено только одно слово, должны быть вложенные циклы.
Решение (немного исправленное) в прикрепленном файле.

Ввод - вывод программы:
 vvedite text:  
it's a text for check programm abcdefgh hgfe pqrstu srqp.
word = for
word = abcdefgh
word = hgfe
word = pqrstu
word = srqp
sport2293032

Привет

Объяснение:

Качество нашей водопроводной воды, мягко говоря, далеко от международных стандартов. Согласитесь, пить неочищенную воду из-под крана — это экстремальное занятие, которое может обернуться серьезными проблемами со здоровьем. Поэтому покупка хорошего фильтра является первостепенной задачей.

Если вы не любите рисковать своим здоровьем, то наверняка задумываетесь над тем, как выбрать фильтры для воды. Разнообразие предложений на рынке заставит растеряться даже самого смелого.

Мы вам расставить все на свои места и определиться с выбором — в этой статье рассмотрены существующие разновидности фильтрующих при и их характеристики.

А также приведены основные критерии, влияющие на выбор наиболее подходящего фильтра, и рейтинг лучших производителей как отечественных, так и зарубежных. Для лучшего восприятия информации подобраны наглядные схемы и фотоматериалы, экспертные видеорекомендации по выбору.

Страницы фильтров: о чем вообще речь?

Фильтры — параметры, которые сузить список товаров, чтобы было проще выбрать нужный. Этот список в большинстве случаев можно встретить в левой колонке на страницах категорий.

AleksandrovnaIgor

Привет

Объяснение:

Присвоєння (англ. assignment) — механізм в програмуванні, що дозволяє динамічно змінювати зв'язки об'єктів даних (зазвичай, змінних) з їхніми значеннями. Строго кажучи, зміна значень є побічним ефектом операції присвоєння, і в багатьох сучасних мовах програмування сама операція також повертає певний результат (як правило, копію присвоєного значення). На фізичному рівні результат операції присвоєння полягає в проведенні запису і перезапису фрагментів пам'яті або регістрів процесора.

Присвоєння — одна з центральних конструкцій в імперативних мовах програмування, ефективно реалізується на фон-Нейманівській архітектурі, яка лежить в основі сучасних комп'ютерів.

В логічному програмуванні прийнято інший, алгебраїчний підхід. Звичайного («деструктивного») присвоєння тут немає. Існують тільки невідомі, які ще не обчислені, і відповідні ідентифікатори для позначення цих невідомих. Програма тільки визначає їхні значення, самі вони сталі. Звичайно, в реалізації програма робить запис в пам'ять, але мови програмування цього не відображають, даючи програмісту можливість працювати з ідентифікаторами постійних значень, а не зі змінними.

В чистому функційному програмуванні не використовують змінні, тому явний оператор присвоєння не потрібен.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

"дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. вывести те слова последовательности, у которых буквы по алфавиту." есть код, но он не работает объяснить что я делаю не так.язык-паскаль. uses crt; var c, i, j: integer; text, st: string; begin c: =0; clrscr; writeln('vvedite text: '); readln(text); for i: =0 to length(text) do if (text[i]=' ') or (text[i]='.') then begin st: =copy(text, 0, i); delete(text, 0, i+1); writeln('text=', text); end; for j: =0 to length(st) do begin if pos(st[j], st) c: =c+1; if c=length(st) then writeln(st); st: =''; end; readln; end. readln; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

koam20167459
Pavel1545
mahalama7359
adman7
Orestov563
alanatan5757
Бондарев-Исаханян
Yeroshkina411
ivanovanata36937365
misspodvigina
Краева
reception
rubanvladimir374
gorbelena1971
dubaiexport