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

Выпуск № 710
от 27.10.2008, 13:35

Вопрос № 147998: помогите пожалуйста задача1) дан файл целых чисел. удалить из него все элементы с четными номерами. задача2) дан файл целых чисел. удалить из него все отрицательные числа. обе задачи надо сделать с использованием файла. заранее спасибо <img ...

Вопрос № 147.998

помогите пожалуйста задача1) дан файл целых чисел. удалить из него все элементы с четными номерами. задача2) дан файл целых чисел. удалить из него все отрицательные числа. обе задачи надо сделать с использованием файла. заранее спасибо

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Клементенко Анастасия Александровна! Имя файла data.dat Код с комментариями: Код: var {Файловая переменная} F: text; {Счетчик, который указывает номер прочитанного символа в файле} i: integer; {Строка в которой сохраняются нечетные символы файла} str: string; {Временная переменная, в которую читаем символ} tmp: char; begin {Очищаем строку} str:=''; {устанавливаем счетчик в 1} i:=1; {Открываем файл data.dat ...} Assign(f, 'data.dat'); {...для чтения} Reset(f); {Пока не конец файла продолжаем} while not eof(f) do begin {Читаем очередной символ} Read(f, tmp); {его номер в i, если i нечетное, то добавляем этот символ к строке} if Odd(i) then str:=str + tmp; {Увеличиваем счетчик} inc(i); end; {перезаписываем файл} ReWrite(f); {записываем рез-тат работы} Write(f, str); {Сохраняем} Flush(f); {Закрываем файл} Close(f); end. Удачи!!!

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент) Ответ отправлен: 21.10.2008, 16:07 Текст СМС: #thank 232937  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 3

Отвечает: Чабаненко Владислав Дмитриевич Здравствуйте, Клементенко Анастасия Александровна! Отвечаю вам на второй вопрос. Если вы работаете в Delphi , то оставьте программу так как есть, а если в Pascal , то надо заменить строки reset(input,'input.txt'); rewrite(output,'output.txt'); и описать переменную , и закрыть файл после окончания работы (см. у Абельхарисов Руслан/Marked One, Студент - осуществление создания файла). в остальном - обращайтесь. Приложение: var i,n,j:integer; a,b:array[1..1000]of integer; begin reset(input,'input.txt'); rewrite(output,'output.txt'); i:=1; while not eof do {Пока не кончается файл записываем числа в массив} begin read(a[i]); inc(i); end; n:=i-1; j:=1; for i:=1 to n do {Если число меньше нуля то не записываем его в новый массив} begin If a[i]>=0 then begin b[j]:=a[i]; inc(j); end; end; for i:=1 to j-1 do {Вывод} write(b[i],' ');

Ответ отправил: Чабаненко Владислав Дмитриевич (статус: Заблокирован) Ответ отправлен: 21.10.2008, 20:00 Текст СМС: #thank 232959  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 5

Вопрос № 148.008

Здраствуйте уважаемые Эксперты!!! Помагите пожалуйста срставить программы к заданиям.Заранее большое спасибо!!! 1) Данн массив А(20). Действие: Вычислить среднее геометрическое значение элементов массива А, принадлежащих интервалу [1; 8]. Условие: ai >0 2) Данна матрица D(5,5). Действие: Записать на место отрицательных элементов матрицы нули. Вывести на экран исходную и полученную матрицы в общепринятом виде. Условие: 5 ≤ dij ≤ 5. Помагите плиз(((.

Отправлен: 21.10.2008, 15:48 Вопрос задал: Ramis (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ramis! Обе задачи выполняются последовательно. Удачи! Приложение: var a:array[1..20]of integer; d:array[1..5,1..5]of integer; x,y,z:longint; begin {первая задача} writeln('I:'); randomize; {создаем и выводим массив} for x:=1 to 20 do begin a[x]:=random(20)+1;{ai>0} write(a[x]:3); end; writeln; y:=0; z:=1; for x:=1 to 20 do {считаем средне геометрическое} if (a[x]>0)and(a[x]<9)then begin z:=z*a[x]; inc(y); end; {и выводим результат} if y>0 then writeln('midle ',exp(ln(z)/y)) else write('no result'); readln; {вторая задача} writeln('II:'); {создаем и выводим массив} for x:=1 to 5 do begin for y:=1 to 5 do begin d[x,y]:=random(11)-5; write(d[x,y]:3); end; writeln; end; {заменяем отрицательные элементы и выводим после замены} writeln; for x:=1 to 5 do begin for y:=1 to 5 do begin if d[x,y]<0 then d[x,y]:=0; write(d[x,y]:3); end; writeln; end; readln; {все} end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 21.10.2008, 16:55 Текст СМС: #thank 232944  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 5 Комментарий оценки: Большушие спасибо Зенченко Константин Николаевич!)

Вопрос № 148.028

здравствуйте уважаемые Эксперты !! помогите пожалуйста решить задачу на языке паскаль : Определить 40-е число Фибоначчи. Числа Фибоначчи формируются по следующему правилу : f1=f2=1 ; f3=f1+f2 ; ... ; fj=fj-2+fj-1. заранее спасибо

Отправлен: 21.10.2008, 19:24 Вопрос задал: дроздов кирилл олегович (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Чабаненко Владислав Дмитриевич Здравствуйте, дроздов кирилл олегович! Вот 40-е число Фиббоначи: 165580141, а в приложении - программа, которая считает число Фиббоначи по его индексу. Надеюсь, я вам помог. Удачи! Ответ неверный. Правильный ответ: 102334155 Эксперт не учел, что первые два члена последовательности равны 1. -------- ∙ Отредактировал: Николай Владимирович / Н.В., Академик ∙ Дата редактирования: 21.10.2008, 20:14 (время московское) Приложение: {$N+} var t,m,n,i:extended; begin write('‚Vvedite n: '); read(n); t:=1; m:=1; i:=0; while i<n do begin i:=i+1; t:=t+m; m:=t-m; end; write(m:0:0);

Ответ отправил: Чабаненко Владислав Дмитриевич (статус: Заблокирован) Ответ отправлен: 21.10.2008, 19:38 Текст СМС: #thank 232957  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 5 Комментарий оценки: спасибо большое оч помогли

Отвечает: Николай Владимирович / Н.В. Здравствуйте, дроздов кирилл олегович! В приложение правильное решение Ваше задачи. Правильный ответ 102334155 . Решение взято отсюда и немного исправлено. Удачи! Приложение: program fibonachchi; function fib(n:integer): extended; begin if n<=2 then fib:=1 else fib:=fib(n-1)+fib(n-2); end; begin writeln('fib(', 40, ') = ', fib(40) ); end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Академик) Россия, Москва ---- Ответ отправлен: 21.10.2008, 20:18 Текст СМС: #thank 232961  |  номер 1151 (Россия)  |  Еще номера >>

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, дроздов кирилл олегович! Предложу другой способ нахождения 40-го числа Фибоначчи. Любой n-ый член ряда можно найти по формуле: (a1n - a2n)/√5. Где a1 = (1 +√5)/2; a2 = (1 - √5)/2. Код: {Что бы можно было использовать тип extended} {$N+} var {Переменная для хранения числа, тип real так как значение 40 член ряда Фидоначчи больше максимального значения типа real} f: extended; {a1 и a2 необходимы для вычисления} a1, a2: real; {Номер числа в ряду} n: integer; begin {Ищем 40-е xbckj} n:=40; {Вычисляем} a1:=(1 + sqrt(5))/2; a2:=-(1 - sqrt(5))/2; f:=(exp(N*ln(a1)) - exp(N*ln(a2)))/sqrt(5); {Выводим рез-тат} Write(f:0:0); ReadLn; end. Удачи!!!

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Студент) Ответ отправлен: 21.10.2008, 20:39 Текст СМС: #thank 232965  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 5 Комментарий оценки: спасибо это как раз так как нас учат =)

Отвечает: Шичко Игорь Здравствуйте, дроздов кирилл олегович! Предлагаю Вам следующий вариант решения. Формирование путем последовательного формирования элементов массива. Код в приложении. Приложение: var a: array[1..100] of integer; i, number: integer; begin number:= 40; a[1]:= 1; a[2]:= 1; for i:= 3 to number do a[i]:= a[i-2] + a[i-1]; writeln(a[40]); end;

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 22.10.2008, 10:04 Текст СМС: #thank 233028  |  номер 1151 (Россия)  |  Еще номера >>

Вопрос № 148.033

Здравствуйте помогите пожалуйста с решение вот этих задач: 1. Даны целые числа a, n, x0, .. ,xn (n>0). Определить каким по счету идет в последовательность x1,...,xn член равный a. Если такого нет, то ответом должно быть число 0 . 2. Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки 1-й матрицы на наибольшее из значений элементов соответствующей второй матрицы; б) прибавлением к элементам каждого столбца 1-й матрицы произведения элементов соответствующих строк второй матрицы.

Отправлен: 21.10.2008, 20:08 Вопрос задал: Popov_ A_V (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Popov_ A_V! Решение задач с пояснениями в приложении. Приложение: 1. Даны целые числа a, n, x0, .. ,xn (n>0). Определить каким по счету идет в последовательность x1,...,xn член равный a. Если такого нет, то ответом должно быть число 0 . uses crt; const n=10; var x:array[1..n] of integer; a,i,k:integer; begin clrscr; writeln('Vvedite ',n,' raznyh chisel');{последовательность} for i:=1 to n do read(x[i]); readln; writeln; write('a=');readln(a); {вводим число} k:=0; for i:=1 to n do if x[i]=a then begin k:=1; write('Chislo a imeet nomer ',i); {если находим сообщаем номер, выходим из программы} readln; halt; end; if (i=n) and (k=0) then {если дошли до конца и числа нет} write('0'); readln end. 2. Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки 1-й матрицы на наибольшее из значений элементов соответствующей строки второй матрицы; б) прибавлением к элементам каждого столбца 1-й матрицы произведения элементов соответствующих строк второй матрицы. uses crt; const n=5; type Tmatr=array[1..n,1..n] of integer; var a,b,c:Tmatr; procedure Vvod(var x:Tmatr); {прцедура ввода матриц} var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do begin x[i,j]:=random(9)+1; write(x[i,j]:4); end; writeln; end; end; procedure Vyvod(var x:Tmatr); [процедура вывода матриц} var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(x[i,j]:8); writeln; end; end; procedure UmnMax(y:Tmatr;var x:Tmatr); {процедура выполнения условия а)} var i,j,k,max:integer; begin for i:=1 to n do begin max:=y[i,1]; for j:=1 to n do if y[i,j]> max then max:=y[i,j]; {ищем максимальное в строке второй матрицы} for k:=1 to n do x[i,k]:=x[i,k]*max; {умножаем элементы строки первой матрицы} end; end; procedure PlusPrz(y:Tmatr;var x:Tmatr); { процедура выполнения условия б)} var i,j,k,p:integer; begin for i:=1 to n do begin p:=1; for j:=1 to n do p:=p*y[i,j]; {считаем призведение в строке второй матрицы} for k:=1 to n do x[i,k]:=x[i,k]+p; {прибавляем к элементам строки первой матрицы} end; end; begin {основная программа: вводим матрицы, выполняем два действия по условию, выводим} clrscr; randomize; {генерация случайных чисел} writeln('1 matrica:'); Vvod(a); c:=a; {запоминаем первую матрицу до изменения} writeln('2 matrica:'); Vvod(b); UmnMax(b,a); writeln('Umnozenie na max:'); Vyvod(a); PlusPrz(b,c); writeln('Prbavlenie proizvedenij:'); Vyvod(c); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 22.10.2008, 18:01 Текст СМС: #thank 233080  |  номер 1151 (Россия)  |  Еще номера >> Оценка за ответ: 5

Вопрос № 148.044

здравствуйте,уважаемые эксперты!помогите пожалуйста решить задачу в Паскале: в заданный непустой текст входят только цифры и буквы.Определить,удовлетворяет ли он следующему свойству:текст содержит(помимо букв)только одну цифру,причем её числовое значение равно длине текста.

Отправлен: 21.10.2008, 20:59 Вопрос задал: G-buck (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, G-buck! Примерный алгоритм: 1. Вводим текст 2. Поочередно анализируем символы 3. Если цифра то запоминаем значение и считаем количество 4. Обрабатываем результаты Примерный код - в приложении Приложение: var i, kol, temp, code: integer; str_input: string; begin readln(str_input); kol:= 0; for i:=1 to Length(str_input) do if Pos(str_input[i], '0123456789') > 0 then begin kol:= kol + 1; val(str_input[i], temp, code); end; if kol = 1 then begin if temp = length(str_input) then writeln('Число равно длине строки') else writeln('Число не равно длине строки'); end else writeln('Количество цифр не равно 1'); end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 22.10.2008, 07:44 Текст СМС: #thank 233003  |  номер 1151 (Россия)  |  Еще номера >>

Вопрос № 148.045

здраствуйте ещё раз уважаемые эксперты =) помогите пожалуйста решить ещё одну задачу через паскаль только уже про текст спасибо заранее В заданный непустой текст входят только цифры и буквы . Определить , удовлетворяет ли он следующему свойству : текст является десятичной записью числа , кратного 9 .

Отправлен: 21.10.2008, 21:02 Вопрос задал: дроздов кирилл олегович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, дроздов кирилл олегович! Код с пояснениями в приложении. Приложение: uses crt; var s:string; i,c,k:integer; t:longint; begin clrscr; writeln('Vvedite text:'); readln(s); i:=1;k:=0; while i<=length(s) do {смотрим строку сначала до конца} begin if not (s[i] in ['0'..'9']) then{если попадается не цифра} begin writeln('Ne chislo!');{сообщаем} readln; halt; {и завершаем программу} end else k:=k+1;{инче считаем символ} i:=i+1; {переходим к следующему} end; if k=length(s)then val(s,t,c); {если все цифры} if t mod 9=0 then writeln('Chislo kratno 9!'){и кратны 9} else writeln('Chislo ne kratno 9!'); {не кратны 9} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 22.10.2008, 17:02 Текст СМС: #thank 233074  |  номер 1151 (Россия)  |  Еще номера >>

© 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