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

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

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

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

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

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

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

Выпуск № 726
от 14.11.2008, 07:05

Вопрос № 149887: здравствуйте! помогите вот с такой задачкой: вычислить значение искомой переменной r=max(min(f(x),y),z). в качестве f(x) взять функцию f(x)=xsinx....

Вопрос № 149.887

здравствуйте! помогите вот с такой задачкой: вычислить значение искомой переменной r=max(min(f(x),y),z). в качестве f(x) взять функцию f(x)=xsinx.

Отправлен: 08.11.2008, 13:45 Вопрос задала: юлия (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, юлия николаевна! Решение в приложении. Приложение: uses crt; var min,max,x,y,z:real; begin clrscr; write('x=');readln(x); write('y=');readln(y); write('z=');readln(z); if sin(x)*x<y then min:=sin(x)*x else min:=y; if z>min then max:=z else max:=min; writeln('min=',min:0:5);{для проверки, можно убрать} write('r=',max:0:5); readln end.

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

Вопрос № 149.893

Здравствуйте! Помогите пожалуйста с написанием функции подсчета факториала!

Отправлен: 08.11.2008, 14:29 Вопрос задал: TruLove (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: eXperience Здравствуйте, TruLove! Реализация функции подсчёта значения факториала в приложении. Приложение: program func_factorial; uses crt; var n : integer; function factorial(var n : integer) : longint; var fact : longint; i : integer; begin fact := 1; i := 0; while i < n do begin inc(i); fact := fact * i; end; factorial := fact; end; Begin clrscr; write(' Введите значение n: '); readln(n); writeln; write(' Факториал',n,' = ',factorial(n)); readkey; End.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, TruLove! Вариант с рекурсией. Удачи! Приложение: var n:integer; {рекурсивная функция, которая вызывает сама себя с новыми значениями} function F(x:integer):real; begin if x<=1 then F:=1 else F:=x*F(x-1); end; begin {вводим значение} repeat write('Enter N:'); readln(n); until n>=0; {выводим результат} writeln(n,'!:=',F(n):20:0); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 149.894

Добрый день! Напишите пожалуйста функцию для нахождения n-го числа Фибоначчи. Можно без комментариев в коде.

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

Отвечает: eXperience Здравствуйте, TruLove! Реализация функции на языке Pascal для нахождения n-го числа Фибоначчи в приложении. Приложение: program func_fibonacci; uses crt; var n : integer; function fibonacci(n : integer) : integer; var f1, f2, ff, i : integer; begin if (n <= 2) then begin fibonacci := 1 end else begin f1 := 1; f2 := 1; i := 2; while (i < n) do begin ff := (f1 + f2); inc(i); f1 := f2; f2 := ff; end; fibonacci := f2; end; end; Begin clrscr; write(' Введите значение N: '); read(n); write(' Fibonacci ',n,': ',fibonacci(n)); readkey; End.

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

Вопрос № 149.917

Доброго времени суток. Была такая задача: Даны натуральные числа x1,y1,...,xn,yn. Числа xi,yi рассматриваются как координаты i-ой точки. Rij есть расстояние от i до j точки. Получить на экране заданные точки и соединить их отрезком в случае, если Rij имеет наибольшее значение по строке (т.е. Rij должно быть макс. по каждой строке отдельно => кол-во отрезков должно быть равно кол-ву строк). Вопросы: 1) Почему все линии выходят из одной точки? 2) Как заставить r[i,j]:=sqrt( sqr(x[i]-x[j]) + sqr(y[i]-y[j]) ); выполняться? Приложение: program _32167; Uses graph, crt; const n=10; var driver, mode, error: integer; X: array [1..n] of real; {если задать integer, то не считается r[i,j] - пишет invalid floating point operation} Y: array [1..n] of real; {аналогично} R: array [1..n,1..n] of real; i,j, maxj:integer; maxr: real; begin driver:= detect; initgraph(driver,mode,'c:TPBGI'); error:= graphresult; if error <> grok then writeln (grapherrormsg(error)); randomize; clrscr; for i:=1 to n do begin {получаем координаты} x[i]:= random(640); y[i]:= random(480); end; for i:=1 to n do {считаем расстояния между точками} for j:=i to n do r[i,j]:=sqrt( sqr(x[i]-x[j]) + sqr(y[i]-y[j]) ); {при задании x[i] и y[i] целыми пишет "invalid floating point operation"} for i:=1 to n do begin maxr:=0; for j:=i to n do {находим макс. расстояние по каждой строке} begin if maxr < r[i,j] then maxr:= r[i,j]; maxj:=j; end; line(trunc(x[i]),trunc(y[i]),trunc(x[maxj]),trunc(y[maxj])); {отбрасываем дробную часть для получения координат - а надо бы сделать координаты через целый тип} end; readkey; closegraph; end.

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

Отвечает: Шичко Игорь Здравствуйте, Vitaliy! У Васне идет повычисление индекса масимальной точки. Подправьте код для вычисления максимального расстояния. ... for j:=i to n do begin if maxr < r[i,j] then begin maxr:= r[i,j]; maxj:=j; end; end; ... Должно нормально считать и с массивами integer.

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

Вопрос № 149.918

Здравствуйте уважаемые эксперты! Помогите пожалуйста составить программу на данную задачу: из заданной квадрвтной матрицы V сформировать атрицу W, удалив из матрицы V k-ю строку и k-ый столбец. Значение k задано.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Сидорова! Решение задачи в приложении. Приложение: uses crt; const n=6; {размерность матрицы} var i,j,k:integer; v,w:array[1..n,1..n]of integer; begin clrscr; repeat {в цикле проверяем правильность ввода К} write('k=');readln(k); writeln('Ishodnaja matrica V:'); until (k>0)and(k<=n); randomize; for i:=1 to n do {создаем матрицу из случайных чисел} begin for j:=1 to n do begin v[i,j]:=random(20); write(v[i,j]:4); end; writeln; end; readln; w:=v; {присваиваем матице w значение матрицы v} for i:=1 to n do for j:=k to n-1 do w[i,j]:=w[i,j+1]; {удаляем столбец, сдвигая элементы всех строк от n до k} for j:=1 to n do for i:=k to n-1 do w[i,j]:=w[i+1,j]; {удаляем строку, сдвигая элементы всех столбцов от n до k} writeln('Rezultat - matrica W:'); for i:=1 to n-1 do begin for j:=1 to n-1 do write(w[i,j]:4); writeln; end; readln; end. end.

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

Вопрос № 149.927

Cоздать файл, содержащий произвольные строки (.txt). Запросите произвольное слово. посчитайте количество таких слов в файле и замените их на другое введенное пользователем слово. Вывести на экран содержимое первонвчального и замененного файлов. Зарание большое спс)

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Шпак Олександр Олександрович! Решение задачи в приложении. Когда будете составлять исходный текстовый файл, не вводите в него русские буквы, вернее вводить можно, но не надо задавать слова для поиска и замены русскими буквами, работать не будет. Если это необходимо, то файл набранный русскими символами нужно перекодировать в редакторе типа TextEncoder, тогда он будет читаться программой. Приложение: uses crt; const m=[' ','.',',',';',':','!','?'];{множество знаков препинания (основных, можете добавить)} var f,g:text;{переменные для работы с текстовыми файлами} s,s1,s2:string; {вспомогптельные строки} i,k:integer; begin clrscr; assign(f,'text1.txt'); {связываемся с файлом и открываем его для чтения} reset(f); assign(g,'text2.txt'); {создаем файл для записи} rewrite(g); write('Vvedite slovo, kotoroe udalit : '); readln(s1); write('Vvedite slovo, kotoroe vstavit : '); readln(s2); writeln; writeln('Ishodnyi fail:'); k:=0; while not eof(f) do begin readln(f,s); {читаем строку} writeln(s); {выводим на экран} s:=' '+s+' '; {добавляем пробел в начало и конец, для обозначения начала и конца слова} for i:=length(s) downto 1 do {проходим по строке с конца, чтобы не изменялись индексы еще не удаленных слов} if (copy(s,i,length(s1))=s1)and(s[i-1] in m)and(s[i+length(s1)] in m) {если участок строки совпадает с нужным словом и этот участок отделен от других с обеих сторон} then begin k:=k+1; {считаем} delete(s,i,length(s1));{удаляем} insert(s2,s,i); {вставляем новое} end; writeln(g,s); {записываем измененную строку в файл} end; writeln; writeln('Kolichestvo slov=',k); writeln; reset(g); writeln('Ispravlennyi fail:'); while not eof(g) do begin readln(g,s); {выводим новый файл на экран} writeln(s); end; close(f); {закрываем файлы} close(g); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 08.11.2008, 22:23 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 234848 на номер 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