|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.08.2016, 15:11 | #11 |
Регистрация: 27.07.2016
Сообщений: 9
|
|
02.08.2016, 15:23 | #12 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
с замечаниями p51x полностью согласен.
дополню. Цитата:
тут BEGIN - просто начало процедурного блока (в цикле FOR выполняется несколько команд, расположенных между BEGIN (начало блока) и END (конец блока) Антон18, поймите, что программа - это указание компьютеру, что нужно делать. Паскаль очень простой, нужно просто чуть-чуть знать английский. и тогда WRITE() - это вывести READ() прочитать FOR I := 1 ТО N DO цикл ДЛЯ переменной I от 1 до N (с шагом 1) делать .... IF если THEN тогда |
|
02.08.2016, 15:27 | #13 | ||
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
Цитата:
Цитата:
Последний раз редактировалось p51x; 02.08.2016 в 15:29. |
||
02.08.2016, 15:37 | #14 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
точно счётчик пар.
Это переменная, которая нужна для подсчёта. позволю себе процитировать себя же: Цитата:
Цитата:
Никто Вас обижать не собирается. За то, что Вам показывают на ваши ошибки, нужно не обижаться, а благодарить. Последний раз редактировалось Serge_Bliznykov; 02.08.2016 в 15:39. |
||
02.08.2016, 17:07 | #15 |
Регистрация: 27.07.2016
Сообщений: 9
|
Вы не читали ответ этого ответчика, у которого написано на аватарке "Профессионал"? Мне еще за это благодарить надо? И за что же мне его благодарить? Алгоритм программы я так и не понял, а грязью меня полили.
|
02.08.2016, 17:13 | #16 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
отбросьте эмоции. Вы слишком нервничаете.
никто вас грязью не поливал. Цитата:
странно, потому что программа простенькая очень. А Вы собираетесь дальше разбираться или нет? |
|
02.08.2016, 18:19 | #17 |
Регистрация: 27.07.2016
Сообщений: 9
|
Не пойму зачем вообще писать эту строку К := 0;
Вот к примеру еще программка, тут нету никого обнуления счетчика, сразу идет цикл Код:
Код:
логичней было бы написать сразу IF MAS[I] = MAS[I+1] THEN К := K+1;, то есть если при просмотре программа находит равный элемент, то записать в счетчик и вывести на экран writeln (k). вот это было бы проще и понятней. |
02.08.2016, 18:24 | #18 | ||||
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
Цитата:
Цитата:
Цитата:
Цитата:
|
||||
02.08.2016, 18:30 | #19 |
Регистрация: 27.07.2016
Сообщений: 9
|
На мой взгляд эта часть кода лишняя
Код:
|
02.08.2016, 18:43 | #20 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
Вот у меня массив из 10 чисел. Сколько в нем двоек? Можете ответить? Или все-таки попросите сначала сообщить вам эти 10 чисел?
Откуда компьютер узнает элементы массивы, если вы их ему вводить не будете? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Алгоритм решения задачи | Amet13 | Помощь студентам | 1 | 21.04.2012 13:16 |
ребят я не могу понять как решать эти задачи!может кто помочь в решении представленной задачи? | Andrusha07 | Помощь студентам | 0 | 09.03.2012 23:08 |
Алгоритм решения задачи | snpccvs | Помощь студентам | 8 | 13.02.2012 22:50 |
Не могу понять алгоритм. | anabenne | БД в Delphi | 15 | 20.06.2011 05:05 |
как понять алгоритм и среду решения для скачивания файлов | genhoo | Помощь студентам | 4 | 05.05.2011 15:19 |