Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Полтев Станислав Михайлович Статус: Практикант Рейтинг: 271 ∙ повысить рейтинг >>

Шичко Игорь Статус: Студент Рейтинг: 265 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 191 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 725
от 13.11.2008, 06:35

Вопрос № 149804: Здравствуйте эксперты! Помогите пожалуйста найти ответ на такой вопрос - в чем особенность цикла for в данном месте текста программы? ...max:=x[1]*y[1]; for i:=2 to n do... И почему была бы ошибочной запись (в этом же месте): ...max:=x[i]...

Вопрос № 149.804

Здравствуйте эксперты! Помогите пожалуйста найти ответ на такой вопрос - в чем особенность цикла for в данном месте текста программы? ...max:=x[1]*y[1]; for i:=2 to n do... И почему была бы ошибочной запись (в этом же месте): ...max:=x[i]*y[i]; for i:=1 to n do... Укажите пожалуйста какая именно особенность цикла for из существующих здесь не учтена!

Отправлен: 07.11.2008, 17:05 Вопрос задал: Петров Иван Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Петров Иван Сергеевич! Переменная I может принимать любое значение от -32768 до 32767, а массив у Вас определен как 1..n, т.е. Вы можете присвоить переменной max неизвестно откуда взятое число, умножить его на ещё одно аналогичное значение и получить не предсказуемый результат, который может привышать любое произведение чисел из массива. В приложении код, который показывает почему так нельзя делать, т.е. Вы выходите за пределы адресного пространства определенного для хранения элементов массива. А это уже неправильная работа прогрмаммы и результат может быть совершенно не предсказуемым. Удачи! Приложение: const n=10; var j:integer; a:array[1..n]of integer; i:integer; begin writeln('I:=',i); writeln('a[i]:=',a[i]); j:=20;{почему выводится именно это значение} writeln('a[i]:=',a[i]); for i:=1 to n do a[i]:=random(20); writeln('I:=',i); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 07.11.2008, 18:01 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234711 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.819

Вывести на экран таблицу ASCII символов, так что бы было хорошо все видно, у меня получается, но она вся не помещается, выходит только малая ее часть... Дорогие эксперты прошу помощи! Заранее спасибо...

Отправлен: 07.11.2008, 18:13 Вопрос задал: Иванов Виктор Олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! А так выводить пробывали? Код в приложении. Удачи! Приложение: var i,j:integer; begin for i:=2 to 15 do begin for j:=0 to 15 do write(chr(i*16+j):3); writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 07.11.2008, 18:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234714 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!

Вопрос № 149.822

Помогите плиз решить задачу Составить программу занесения в динамическую память целого массива из 10 чисел и переноса в конец его первый элемент

Отправлен: 07.11.2008, 18:51 Вопрос задал: Демидов Алексей Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 14)

Отвечает: Verena Здравствуйте, Демидов Алексей Иванович! По исправленному заданию из мини-форума предлагаю решение для списка. Чтобы передвинуть так элементы, достаточно перекинуть ссылку последнего на первый, а предпоследнего на nil. Ну, и конечно, исправить ссылку на первый. Решение в приложении. Удачи! Приложение: Uses crt; Type sp = ^s; {Список} s = record i: integer; next: sp; End; Const n = 10; {Число элементов} Var first, q: sp; h, i: integer; Procedure Add (var first: sp; k: integer); {Добаление элемента в начало} Var x: sp; Begin New (x); x^.i:= k; x^.next:= first; first:= x; End; procedure ClearList (var first: sp); {Очистка списка} Var q: sp; begin while first<>nil do begin q:= first; first:= first^.next; dispose (q); end; end; Procedure PrintList (first: sp); {Вывод списка} Var q: sp; Begin Writeln; q:= first; While q<>nil do Begin Write (q^.i:5); q:= q^.next; End; Readkey; End; Begin ClrScr; New (q); {Ввод данных} writeln ('Vvedite 10 elementov: '); Readln (q^.i); q^.next:= nil; first:= q; for i:=1 to n-1 do begin readln (h); Add (first, h); end; ClrScr; writeln ('Vid spiska: '); PrintList (first); q:= first; {Без дополнительных проверок такое решение возможно потому, что нам известно, что в списке > 1 элемента} while q^.next^.next<>nil do q:= q^.next; {Идём до предпоследнего} q^.next^.next:= first; {Перекидываем ссылку на первый} first:= q^.next; {Переписываем первый} q^.next:= nil; {Удаляем ссылку на последний} writeln ('Resultat: '); {Вывод} PrintList (first); ClearList (first); {Очистка} readkey; End. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 07.11.2008, 22:08 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234749 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.826

Уважаемые эксперты, помогите пожалуйста решить задачу: Составить на паскале программу, по которой в данном тексте буквосочетание "sin" будет заменятся на слово "синус" а буквосочетание "cos" на слово "косинус".

Отправлен: 07.11.2008, 19:24 Вопрос задал: Боев Константин Геннадиевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Шичко Игорь Здравствуйте, Боев Константин Геннадиевич! Предлагаю свой вариант решения. Код в приложении Приложение: var s:string; i, temp:integer; begin readln(s); {меняем до тех пор пока находим sin в строке} temp:= Pos('sin', s); while temp > 0 do begin Delete(s, temp,3); Insert('синус', s, temp); temp:= Pos('sin', s); end; {меняем до тех пор пока находим cos в строке} temp:= Pos('cos', s); while temp > 0 do begin Delete(s, temp,3); Insert('косинус', s, temp); temp:= Pos('cos', s); end; writeln(s); {вывод s} readln; end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 07.11.2008, 20:11 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234733 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Боев Константин Геннадиевич! В приложении программа без лишних переменных. Удачи! Приложение: var a:string; begin {вводим строку} write('Enter string:'); readln(a); {цикл замены в строке} while pos('sin',a)>0 do begin insert('SINUS',a,pos('sin',a)); delete(a,pos('sin',a),3); end; {цикл замены в строке} while pos('cos',a)>0 do begin insert('COSINUS',a,pos('cos',a)); delete(a,pos('cos',a),3); end; {выводим результат} writeln('Result:',a); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 07.11.2008, 21:01 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234744 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.836

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

Отправлен: 07.11.2008, 20:06 Вопрос задала: Клементенко Анастасия Александровна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: SHERRY Здравствуйте, Клементенко Анастасия Александровна! Возможно не самый рациональный способ решения, но прошу принять, как вариант. В одной папке с программой создайте файл input.txt. Результат работы программы будет находиться в файле output.txt в этой же папке. Программа перебирает все слова входящего файла, проверяя длины строк и, если условие удовлетворено, то записывает найденное слово в новую строук результирующего файла. Код: const mn: set of char = [' ', ',', ':', ';', '-', '_']; {список знаков препинания - можете отредактировать как душе угодно} var f,f2: text; {файловые переменные} leng, i: integer; {вспомогательные переменные} s, tmp: string; begi n Assign(f, 'input.txt'); Assign(f2, 'output.txt'); {сопоставим переменным файл на диске} Reset(f); {откроем файл для чтения} Rewrite(f2); {а этот для записи} Readln(f, leng); {считываем первое значение - длину искомого слова} While not EOF(f) do {пока не достигнут признак конца первого файла} begin readln(f, s); {считываем строку} While s <> '' do {пока она не пуста выполняем: } begin tmp := ''; {очищаем вспомогательную строку} for i:=1 to length(s) do {пока не достигнем конца строки} if s[i] in mn then break {или знака препинания} else tmp := tmp + s[i]; {переписываем строку посимвольно в новую переменную} delete(s, 1, i); {удаляем обработанный участок строки} if length(tmp) = leng then writeln(f2, tmp); {если длина полученного слова соответствует условию - запишем это слово в результирующий файл} end;< br> end; Close(f); Close(f2); {по окончании работы - файлы закроем} end. Если возникнут вопросы - обращайтесь в мини-форум или пишите ЛС. Best regard's! --------- Самурай без меча подобен самураю с мечом, только без меча..

Ответ отправил: SHERRY (статус: Студент) Ответ отправлен: 07.11.2008, 20:47 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234741 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 3

Вопрос № 149.837

помогите пожалуйста решить задачку дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по правому краю, добавив в начало каждой непустой строки нужное количество пробелов(ширину текста считать равной 50).

Отправлен: 07.11.2008, 20:09 Вопрос задала: Клементенко Анастасия Александровна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шичко Игорь Здравствуйте, Клементенко Анастасия Александровна! Предлагаю вариант решения данной задачи. Код в приложении. Приложение: var f, f1: TextFile; s: string; i: integer; begin Assign(f, 'c:1.txt'); {исходный файл} Reset(f); Assign(f1, 'c:11.txt'); {новый файл} Rewrite(f1); while not EOF(f) do begin readln(f, s); for i:= 1 to 50 - Length(s) do Insert(' ', s, 1); {вставляем пробелы} writeln(f1, s); end; close(f); close(f1); end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 07.11.2008, 20:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234737 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Отвечает: Зенченко Константин Николаевич Здравствуйте, Клементенко Анастасия Александровна! Программа в приложении. Без использования лишних переменных. Удачи! Приложение: var a:string; b,c:text; begin {открываем файлы} assign(b,'one.txt'); reset(b); assign(c,'two.txt'); rewrite(c); {читаем файл пока не закончится} while not eof(b)do begin {чисаем строку и проверяем её длину} readln(b,a); if a<>'' then {выравниаваем} while length(a)<50 do a:=' ' + a; {записываем строку} writeln(c,a); end; {закрываем файлы} close(b); close(c); {сообщение об окончании работы} write('Stop'); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 07.11.2008, 20:50 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234743 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.11 от 9.11.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru