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

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

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

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 249 ∙ повысить рейтинг >>

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

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

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

Выпуск № 764
от 24.12.2008, 09:35

Вопрос № 154856: 1. Вычислить 1/(sin1)+1/(sin1+sin2)+1/(sin1+sin2+...+sinN)...

Вопрос № 154.856

1. Вычислить 1/(sin1)+1/(sin1+sin2)+1/(sin1+sin2+...+sinN)

Отправлен: 18.12.2008, 17:18 Вопрос задал: alter-sl (статус: 1-й класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, alter-sl! Решение в приложении. Оно настолько простое, что не комментирую. Результаты сверил с Эксел, все сходится. Приложение: uses crt; var n,i:integer; s,t:real; begin clrscr; write('n=');readln(n); s:=0;t:=0; for i:=1 to n do begin t:=t+sin(i); s:=s+1/t; end; write('S=',s:0:5); readln end.

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

Отвечает: Ksyasha Здравствуйте, alter-sl! как-то так uses crt; var n,i,s: real; begin clrscr; writeln('введите n'); read(n); i:=0; s:=0; repeat s:=s+1/(sin(i)+sin(i+1)); inc(i); until i+1>=n; writeln(s:0:2); readkey; end. Ответ неверный, правильный вариант выше. -------- ∙ Отредактировал: Зенченко Константин Николаевич, Профессор ∙ Дата редактирования: 23.12.2008, 18:59 (время московское)

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

Вопрос № 154.864

Уважаемые эксперты))) Пожалуйста, помогите с решением задачи....и если можно, распишите поподробнее))) Вот условия: Дана действительная матрица размера m*n. Определить числа b1,..,bm (1 и m-это нижние индексы) равные разностям наибольших и наименьших значений элементов ее строк.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Annaolofson! Решение задачи в приложении. Приложение: uses crt; const m=6; {количество строк} n=5;{количество столбцов} var a:array[1..m,1..n]of real; {матрица} b:array[1..m] of real; {массив разностей} i,j:integer; min,max:real; begin clrscr; {очищаем экран} randomize; {генерируем случайные числа, чтоб не вводить вручную, для этой задачи это не принципиально} writeln('Matrica A:'); {создаем и выводим на экран матрицу} for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*random-2;{присваиваем значения от -2 до 10} write(a[i,j]:6:2); {выводим по строкам с выделением 6 позиций под число и 2 знака после запятой} end; writeln;{переход на новую строку} end; for i:=1 to m do {основная задача} begin min:=a[i,1];max:=a[i,1];{сначала за макс и мин принимаем первые элементы строк} for j:=1 to n do begin if a[i,j]<min then min:=a[i,j];{если находим меньше, то он мин} if a[i,j]>max then max:=a[i,j];{если находим больше, то он макс} end; b[i]:=max-min;{заносим разность в массив} end; writeln('Znachenia raznosti naibolshih i naimenshih znachenij strok:'); for i:=1 to m do {выводим массив на экран} write(b[i]:6:2); readln end.

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

Вопрос № 154.882

Многоуважаемые эксперты у меня к вам большая просьба в изучении паскаля!!! Не пройдите мимо моей просьбы.... В приложении всё объяснено!!! Огромное спасибо!!!!!!! Просто у меня тест состоящий из 300 вопросов по Паскалю, и сам решить я их не могу и нуждаюсь в вашей помощи!!! В долгу не останусь!!!! E-mail >>напишите мне эмайл!!!

Отправлен: 18.12.2008, 18:59 Вопрос задал: Беспамятнов Василий Дмитриевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Кулик Александр Сергеевич Здравствуйте, Беспамятнов Василий Дмитриевич! Ответ на вопрос № 250: 1525 Ответ на вопрос № 251: 45 А вообще, можно набрать эти програмки самостоятельно..... --------- нет ничего невозможного!

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

Вопрос № 154.888

Составьте программу для нахождения количества строк, где знаки элементов чередуются.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Иванов Виктор Олегович! Решение в приложении. Приложение: uses crt; const n=5;{размеры матрицы} m=6; var a:array[1..n,1..m]of integer; i,j,k,z:integer; begin clrscr; writeln('Vvedite ',n*m,' elementov matricy:'); for i:=1 to n do for j:=1 to m do read(a[i,j]); {вводим элементы так, чтоб были строки с чередованием и нет} readln; clrscr; [очищаем экран] writeln('Ishodnaya matrica:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); {выводим матрицу} writeln; end; k:=0; for i:=1 to n do begin z:=0; for j:=2 to m do {проверяем в строке чередование знаков, если произведение соселних элементов меньше 0, то знаки разные] if a[i,j]*a[i,j-1]<0 then z:=z+1; if z=m-1 then k:=k+1; {если чередований на 1 меньше длины строки, подходит} end; writeln('Kolichestvo strok s cheredovaniem znakov=',k); readln end.

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

Вопрос № 154.889

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

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

Отвечает: Шичко Игорь Здравствуйте, Иванов Виктор Олегович! Предлагаю код в приложении. Приложение: const n = 7; m = 4; var a: array[1..n, 1..m] of integer; {массив мин элементов} b, ind: array[1..m] of integer; {массив индексов строк мин элементов} i, j: integer; priznak: boolean; begin randomize; writeln('Massiv 1'); for i:= 1 to n do begin for j:= 1 to m do begin a[i, j]:= Random(50) - 30; write(a[i,j]:5); end; writeln; end; for j:=1 to m do begin b[j]:= a[1, j]; ind[j]:= 1; for i:= 1 to n do if a[i,j] < b[j] then {ищем и записываем минимумы} begin b[j]:= a[i,j]; ind[j]:= i; end; end; priznak:= True; for i:=1 to m-1 do for j:= i+1 to m do if ind[j] = ind[i] then priznak:= False; {анализ совпадения номеров строк} writeln('Massiv min'); for i:= 1 to m do write(b[i]:5); writeln; writeln('Massiv nomerov strok'); for i:= 1 to m do write(ind[i]:5); writeln; if priznak then writeln('Stroki ne sovpadaut') {результат} else writeln('Stroki sovpadaut'); readln; end.

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

Вопрос № 154.890

Здравствуйте все!!! У меня задачка: Дана матрица 7х7 элементов, заполнена случайным образом.Найти минимальное знаечние из элементов тех столбцов среднее арифметическое которых больше 5 и меньше 15. Очень надО! Все заранее спасибо!!!!

Отправлен: 18.12.2008, 19:29 Вопрос задал: Куценко Артём Андреевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Куценко Артём Андреевич! Решение с пояснениями в приложении. Приложение: uses crt; const n=7; {размер матрицы] var a:array[1..n,1..n] of integer;{тип матрицы} i,j,min,k:integer; sr:real; begin clrscr; randomize; writeln('Matrica A:'); {создаем матрицу] for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(30)+5; write(a[i,j]:5); end; writeln; end; min:=maxint; {за мин принимаем самое большое число из integer} for j:=1 to n do {идем по столбцам} begin sr:=0; {среднее=0} for i:=1 to n do {идем вниз по столбцу} sr:=sr+a[i,j]/n; {суммируем элементы столбца, деленные на их количество=среднее} write(sr:5:1); {выводим под матрицей для наглядности} if(sr>5)and(sr<15) then {если среднее удовлетворяет условию} for k:=1 to n do if a[k,j]<min then min:=a[k,j]; {то ищем минимальное} end; writeln; if min=maxint then writeln('Takih stolbcov net!'){если столбцов по условию нет, сообщаем} else writeln('Min=',min); {иначе выводим минимальное} readln end.

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

Вопрос № 154.891

Дана действительная квадратная матрица порядка 9. Вычислить сумму тех из ее элементов, расположенных на главной диагонали и выше нее, которые превосходят по величине все элементы, расположенные ниже главной диагонали. Если на главной диагонали и выше нее нет элементов с указанным свойством, то ответом должно служить сообщение об этом.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Иванов Виктор Олегович! Решение с пояснениями в приложении. Приложение: uses crt; const n=9; {размер матрицы} var a:array[1..n,1..n] of real;{тип матрицы} max,sm:real; {максимум, сумма} i,j:integer; begin clrscr; randomize; writeln('Matrica A:');{создаем матрицу} max:=a[2,1]; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10*random; {заполняем случайными вещественными числами} if (j<i)and(a[i,j]>max) then max:=a[i,j];{ищем максимальный ниже главной диагонали} write(a[i,j]:6:2);{}выводим построчно матрицу end; writeln; end; writeln('max=',max:0:2); {выводим максимадьное ниже главной диагонали} sm:=0; for i:=1 to n do begin for j:=1 to n do if (j>=i) and (a[i,j]>max) then sm:=sm+a[i,j]; {считаем сумму элементов на главной диагонали и выше нее, если они больше максимального снизу} end; if sm=0 then writeln('Takih elementov net!') {если нет таких сообщаем} else writeln('Summa=',sm:0:2); {если есть показываем сумму} readln end.

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

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