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

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

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

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

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

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

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

Выпуск № 711
от 28.10.2008, 20:35

Новая тема от портала RusFAQ.ru: Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА на короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа. Полный список номеров >> * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов) ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются. *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

Вопрос № 148186: помогите пожалуйста срочно надо <img src="http://rusfaq.ru/images/Forum/72.gif" border="0"> адо создать файл целых чисел. удалить из него все отрицательные числа. мне уже помогали, но ни одна из программ не работает....

Вопрос № 148.186

помогите пожалуйста срочно надо адо создать файл целых чисел. удалить из него все отрицательные числа. мне уже помогали, но ни одна из программ не работает. Приложение: var f1,f2: file of integer; x,i,n:integer; begin assign(f1,'filein.int'); rewrite(f1); readln(n); for i:=1 to n do begin x:=random(-10); write(f1,x); end; close(f1) ; assign( f1,'filein.int'); reset(f1); assign(f2,'fileout.int'); rewrite(f2); while not eof (f1) do begin read(f1,x); write(f2,x); if x<0 then write(f2,x,x); end; Close(f1); Close(f2); end.

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

Отвечает: Шичко Игорь Здравствуйте, Клементенко Анастасия Александровна! В приложении немного исправленный код. На экран выводится сначала исходный файл (построчно), потом - результат. (для контроля) Приложение: var f1,f2: file of integer; x,i,n:integer; begin assign(f1,'C:filein.int'); rewrite(f1); readln(n); writeln; writeln('Enter'); for i:=1 to n do begin x:=random(-10); write(f1, x); writeln(x:15); end; close(f1) ; assign( f1,'C:filein.int'); reset(f1); assign(f2,'C:fileout.int'); rewrite(f2); writeln; writeln('Rezult'); while not eof (f1) do begin read(f1,x); if x>0 then begin writeln(x:15); write(f2, x); end; end; Close(f1); Close(f2); end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 23.10.2008, 10:28 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148186 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 148.190

Здравствуйте, уважаемые эксперты. Не понимаю я, как это сделать. Подскажите пожалуйста. Нужно написать программу формирования матрицы: 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 1 1 2 3 3 3 3 2 1 1 2 3 4 4 3 2 1 1 2 3 4 4 3 2 1 1 2 3 3 3 3 2 1 1 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1

Отправлен: 23.10.2008, 09:45 Вопрос задал: 6o6puk (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, 6o6puk! Решение задачи как для четных, так и нечетных матриц в приложении. Приложение: uses crt; var a:array [1..50,1..50] of byte; n,i,j,k:byte; begin clrscr; repeat writeln('Vvedite razmernost matricy:'); readln(n); until(n>2)and(n<=50); for k:=1 to n div 2 do {от 1 до середины} for i:=k to n-k+1 do {сжимаем матрицу по вертикали по 1 строке снизу и сверху} for j:=k to n-k+1 do {сжимаем матрицу по горизонтали по 1 столбцу слева и справа} a[i,j]:=k; if odd(n) then a[n div 2+1,n div 2+1]:=n div 2+1;{если матрица нечетная, вставляем центральный элемент} for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 23.10.2008, 10:59 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148190 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Зенченко Константин Николаевич Здравствуйте, 6o6puk! Программа в приложении. Вопросы задавайте в мини-форум. Удачи! Приложение: const n=8; var a:array[1..n,1..n]of integer; i,j:integer; {минимальный элемент} function min(i,j:integer):integer; begin min:=i*ord(j>i)+j*ord(j<=i); end; begin {все делаем в цикле} for i:=1 to n do begin for j:=1 to n do begin {считаем значение} a[i,j]:=min(min(i,j),min(abs(n-i+1),abs(n-j+1))); {выводим элемент} write(a[i,j]:2); end; {новая строка} writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 23.10.2008, 11:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148190 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Шичко Игорь Здравствуйте, 6o6puk! Примерный код программы в приложении. В программе вводится до кокой цифры нужно распределять матрицу. В вашем примере нужно ввести цифру 4. Вывод матрицы производится построчно. Приложение: var i, j, k, max: integer; mas: array[1..10, 1..10] of integer; begin readln(max); {ввод максимального числа (например 4) } for k:= 1 to max do begin for i:= k to max * 2 - k + 1 do begin for j:=k to max * 2 - k + 1 do begin if ((i= k) or (i = max * 2 - k + 1)) or ((j= k) or (j = max * 2 - k + 1)) then mas[i,j]:= k; end; end; end; for i:= 1 to max * 2 do begin for j:= 1 to max * 2 do write(mas[i,j]:4); writeln; end; end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 23.10.2008, 14:41 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148190 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.196

Здравствуйте, уважаемые эксперты. Помогите с задачей. Устал с ней биться, а лабораторные сдавать надо. Вот. Описать переменную служащий, состоящую из имени, фамилии, отчества служащего, даты рождения, образования, домашнего адреса, профессии. Определить имена людей с высшим образованием. Выдать данные о служащем, который имеет ту или иную профессию.

Отправлен: 23.10.2008, 10:16 Вопрос задал: Морозов Артём Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Морозов Артём Сергеевич! Решение Вашей задачи с пояснениями в приложении. Приложение: uses crt; type Tsluz=record {создаем тип запись с полями по условию задачи} nam:string[15]; {длину строки лучше ограничивать, если будете записывать в типизированный файл, пригодится} fam:string[15]; oth:string[15]; rzd:string[15]; obr:string[15]; adr:string[15]; prf:string[15]; end; var sp:array[1..100]of Tsluz; {массив записей, или список служащих со всеми данными} i,n,k:integer; prf:string[15]; {переменная для ввода тзапроса по профессии} c:char; {переменная для определения кода клавиши при выходе из цикла заполнения данных} begin clrscr; n:=0; repeat inc(n); writeln('Служащий ',n); {заносим все данные} write('Имя: ');readln(sp[n].nam); write('Фамилия: ');readln(sp[n].fam); write('Отчество: ');readln(sp[n].oth); write('Дата рождения: ');readln(sp[n].rzd); write('Образование: ');readln(sp[n].obr); {обязательно должно быть "высшее", без кавычек конечно и с маленькой буквы, хотя может и не быть, тогда программа выдаст соответствующее сообщение} write('Домашний адрес: ');readln(sp[n].adr); write('Профессия: ');readln(sp[n].prf); c:=readkey; until c=#27; {заканчиваем ввод} writeln; writeln('Имена людей с высшим образованием:'); k:=0; for i:=1 to n do if sp[i].obr='высшее' then begin writeln(sp[i].nam); k:=1; end; if k=0 then writeln('Людей с высшим образованием нет!'); writeln('Сведения о служащем:'); writeln('Ввведите название профессии:'); {вводить так, как записано} readln(prf); k:=0; for i:=1 to n do if sp[i].prf=prf then begin writeln(sp[i].nam,' ',sp[i].oth,' ',sp[i].fam); writeln('Дата рождения: ',sp[i].rzd,' Образование: ',sp[i].obr,' Адрес: ',sp[i].adr); writeln; k:=1; end; if k=0 then writeln('Людей с такой профессией нет!'); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 23.10.2008, 12:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148196 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Круто! Спасибо!!!

Вопрос № 148.228

Здравствуйте эксперты! Подскажите пожалуйста все особенности цикла for.

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

Отвечает: -=Dr. Штопор=- Здравствуйте, Петров Иван Сергеевич! Синтакис: For i:=K to {или downto} L do {оператор} В БНФ: Оператор_цикла_с_параметром = "FOR" идентификатор ":=" выражение ("TO" | "DOWNTO") выражение "DO" оператор. Особенности: 1. Цикл For является циклом с предусловием, то есть определяется условие выполнения тела цикла, а не условие выхода из цикла, как в циклах с постусловием. 2. Выражения K и L вычисляются только один раз перед первой итерацией цикла, то есть, цикл For i:=N-j to N-k do S, где S - оператор, можно заменить эквивалентной конструкцией: I:=N-j; H:=N-k; While I<=H do begin S; I:=Succ(I); {SUCC - функция, возвращающая следующее за значением переменной значение диапазонного типа. Например, Succ('b') соответствует 'c', Succ(4) соответствует 5, Succ(false) соответствует true} end; 3. Существуют, как видно из определения цикла с параметром на языке БНФ, две модификации цикла FOR: с TO и DOWNTO. При использовании TO после тела цикла выполняется I:=Succ(I), а при DOWNTO - I:=Pred(I) - то есть, присваивается не следующее, а предыдущее значение. 4. Переменная, заданная идентификатором, должна быть перечисляемого типа, т.е. Integer всех сортов, Boolean, Char, а также пользовательские диапазонные типы. Начальное и коненое значения должны быть совместимы с типом параметра. 5. Возможен досрочный выход из цикла оператором break и досрочное завершение итерации оператором continue 6. После нормального завершения цикла значение переменной-счётчика (заданной как "идентификатор" в описании на БНФ) её значение не определено. Если выход из цикла произошёл досрочно, значение параметра будет иметь величину на момент выхода из цикла. 7. Строжайше не рекомендуется использовать операторы перехода внутрь тела цикла, допустимо ставить метку только на заголовок (строго говоря, исполь зование меток - плохой тон в программировании и их вообще не стоит использовать, данный пункт только для тех ситуаций, когда очень хочется использовать оператор перехода) 8. Менять параметр в теле цикла нельзя. --------- Tantum possumus, quantum scimus

Ответ отправил: -=Dr. Штопор=- (статус: Студент) Ответ отправлен: 23.10.2008, 15:51 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148228 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.229

Здравствуйте эксперты! Помогите пожалуйста найти ответ на такой вопрос - в чем особенность цикла for в данном месте текста программы? ...max:=x[1]*y[1]; for i:=2 to n do... И почему была бы ошибочной запись (в этом же месте): ...max:=x[i]*y[i]; for i:=1 to n do... Приложение: program w1; const m=10; var x,y:array[1..m] of integer; n,i:integer; max:real; begin readln(n); writeln('vector x: '); for i:=1 to n do readln(x[i]); writeln('vector y: '); for i:=1 to n do readln(y[i]); max:=x[1]*y[1]; for i:=2 to n do if x[i]*y[i]>max then max:=x[i]*y[i]; write('max=',max:3:1); readln end.

Отправлен: 23.10.2008, 14:50 Вопрос задал: Петров Иван Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 16)

Отвечает: Шичко Игорь Здравствуйте, Петров Иван Сергеевич! Здесь особенностей особых нет. В шаге max:=x[1]*y[1]; Вы вычисляете значение произведения первых элементов. В цикле for i:=2 to n do ... последовательно перебираются значения i от 2 до n и соответственно вычисляется новое значение произведения. В конструкции: ...max:=x[1]*y[1]; for i:=2 to n do... ошибочно было бы писать max:=x[i]*y[i]; т.к. на этом этапе i равно нулю. Значение i присваивается только внутри цикла в интервале, указанном в начале цикла. Если ещё вопросы - пишите в форум.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 23.10.2008, 15:12 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148229 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: ualife Здравствуйте, Петров Иван Сергеевич! Предыдущий эксперт дал ответ на Ваш вопрос. Но может возникнуть другая ошибка - в строках for i:=2 to n do if x[i]*y[i]>max then max:=x[i]*y[i]; Массив состоит из 10 елементов, Число n задается пользователем. Если n=11,то будет обращение к x[11] или у[11] как к несуществующему элементу массива. Можно написать так: © Цитата: ualife program w1; const m=10; var x,y:array[1..m] of integer; n,i:integer; max:real; begin repeat readln(n); if (n>m)or(n<2)then writeln('Ошибка. Повторите попытку'); {Если число меньше 2 (тогда может быть ошибка в строке for i:=2 to n do) то выводим сообщение о ошибке. Если n>m - выводим сообщение о ошибке} until (n<=m)and(2<=n); writeln('vector x: '); for i:=1 to n do readln(x[i]); writeln('vector y: '); for i:=1 to n do readln(y[i]); max:=x[1]*y[1]; for i:=2 to n do if x[i]*y[i]>max then max:=x[i]*y[i]; writeln('max=',max:3:1); readln; end. Удачи!!! --------- Я ничего не знаю. Я знаю только где можно найти ответы на мои вопросы.

Ответ отправил: ualife (статус: Практикант) Ответ отправлен: 23.10.2008, 17:40 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148229 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.243

Уважаемые эксперты подскажите пожалуйста. Дано целое число К и текстовый файл(*txt). Вставить пустую строку перед строкой файла с номером К, вводимым с клавиатуры. Если строки с таким номером нет, то оставить файл без изменений.

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

Отвечает: Костя Симанович Здравствуйте, Клементенко Анастасия Александровна! В приложении один из вариантов решения задачи, я расписал его поподробнее и с коментариями в коде. Файл создаётся в корне диска с:, это определяется константами в начале задачи. процедура procedure create_f(n1 : integer); автоматически генерирует файл data.txt, после генерации с помощью процедуры procedure wiwod; выводим начальный файл. Файл можно создать и заполнить в ручную, тогда процедура create_f не нужна. Далее просим ввести номер сроки перед которым надо ввести пробел. с помощью цикла while not eof(f) do просто переписываем построчно файл data.txt в файл temp.txt, и проверяем номер строки которую переписываем с введённым числом, если совпало то записываем пустую строку, а далее переписываем файл data.txt до конца. функция erase(f); удаляет старый файл data.txt функция rename(f1, name_f); переименовывает temp.txt в data.txt уже исправленный. в конце снова выводим полученный результат. Надеюсь помог, удачи. Приложение: program fail; const name_f = 'c:data.txt'; {файлы будут созданы на диске c:} name_f1= 'c: emp.txt'; procedure create_f(n1 : integer); var f : text; i : integer; s, s1 : string; begin assign(f, name_f); {связывем ф. п. с файлом} rewrite(f); {открываем для записи} for i := 1 to n1 do {генерируем файл} begin str(i, s1); s := 'stroka ' + s1; writeln(f, s); end; close(f); {закрываем файл} end; procedure wiwod; {процедура выводит файл} var f : text; i : integer; s : string; begin assign(f, name_f); {связывем ф. п. с файлом} reset(f); {открываем файл для чтения} while not eof(f) do {читаем файл пока не достигнем конца} begin readln(f, s); writeln(s); end; close(f); end; var s, s1 : string; n : integer; i : integer; f, f1 : text; {файловая переменная} begin writeln('Введите общее кол-во строк в файле.'); readln(n); create_f(n); {автоматичеси генерируем файл} {для контроля выводим, что получилось } wiwod; writeln('Введите номер строки.'); readln(n); assign(f1, name_f1); {Используем временный файл temp.txt} assign(f, name_f); {файл data.txt} rewrite(f1); {временный файл открываем на занись} reset(f); {файл data.txt на чтение} i := 1; while not eof(f) do {читаем из data.txt данные построчно} begin if i = n then writeln(f1, ' ') {дошли до номера строки перед которой надо вставить} else {пустую строку. вставляем пустую строку} begin readln(f, s); writeln(f1, s); end; inc(i); {увеличиваем счетчик строк на 1} end; close(f); close(f1); {закрываем оба файла} erase(f); {удаляем старый файл data.txt} rename(f1, name_f); {переименовываем temp.txt в data.txt} wiwod; {выводим, что получилось} readln; end.

Ответ отправил: Костя Симанович (статус: 4-ый класс) Ответ отправлен: 23.10.2008, 22:47 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148243 на номер 1151 (Россия) | Еще номера >> Переслать WebMoney: руб. Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

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