1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Народ.Помогите прогрмисту 1 курса.Вот проги не получаються а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо. А вот и условие прог: :p2: 1)Задана строка символов.Напечать повторяющийся символ.
2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв.
3)Задан текст.Удалить одинаковые слова. :p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы. Я надеюсь вы сможете помочь мне написать хотяб пару прог.
Это я делал раньше прогу на сортировку. Раншь вроде сортировала.Но токо все слова, а не с четным колличесвтом букв. Я потом пробывал переделать и запарол ее.Тперь она вроде не сортирует совсем.Посмотрите что там можно сделать.И можно ли переделать структуру
Program Zadanie2; USES CRT; VAR A : ARRAY [1..10] OF string; B : ARRAY [1..10] OF INTEGER; I,N,k,l : INTEGER; s : string; BEGIN CLRSCR; WRITE ('N='); READLN (N); WRITELN ('Введите список слов после кадого Enter:'); FOR I:=1 TO N DO READLN (A[I]); WRITELN; FOR I:=1 TO N DO B[I]:=LENGTH(A[I]); FOR I:=1 TO N DO WRITELN ('В слове',A[ I ],' -',B[ I ],'количесвто символов'); k:=0; for i:=1 to n do begin k:=k+1; end; writeln; writeln; writeln ('ђҐ§г«мв в:'); writeln ('Слова с четным koli4estvom bykv = ',k);
if k mod 2 <> 0 then while (l<=(n-1)) do begin for n:=1 to (n-1) do begin if (a[n] > a[n+1]) then begin s:=a[n]; a[n]:=a[n+1]; a[n+1]:=s end; end; writeln ('Отсортированный список:');
for l:=1 to n do write (a[l],' '); REPEAT UNTIL KEYPRESSED end; END.