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

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

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

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

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

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

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

Выпуск № 763
от 23.12.2008, 09:05

Вопрос № 154689: Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? Если можно, то указать пару x, y таких натуральных чисел, что n = x² + y²...

Вопрос № 154.689

Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? Если можно, то указать пару x, y таких натуральных чисел, что n = x2 + y2

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! В программе учитывается, что натуральные числа начинаются с 1. Кроме как простого перебора лучше ничего не смог придумать. Если натуральные числа начинать с 0, то всегда можно представить число как n=x2+02, для этого Вам нужно в опрераторах while добавить ещё и условие равно. Удачи! Приложение: var n:integer; x,y:integer; b:boolean; begin write('Enter N'); readln(n); x:=round(sqrt(n))+1;{получаем корень} b:=true;{флаг получения результата} while (x>0)and b do begin y:=x; while (y>0)and b do begin b:=(sqr(x)+sqr(y))<>n; if b then dec(y); end; if b then dec(x); end; {выводим результат} if b then write('it is inpossible') else write(n,' = ',x,'^2 + ',y,'^2'); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 154.690

Даны натуральное число n, действительные числа a1, ... , an. Выяснить, какое число встречается в последовательности a1, ... , an раньше - положительное или отрицательное. Если все члены последовательности равны нулю, то сообщить об этом.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! Смотрите приложение. Удачи! Приложение: const n=10; var a:array[1..n]of real; i:integer; begin {создаем последовательность} randomize; for i:=1 to n do begin a[i]:=6*random-3; write(a[i]:8:4); end; writeln; {проверяем её} i:=1; while (a[i]=0)and(i<=n)do inc(i); {выводим результат} if i>n then write('only zero') else if a[i]>0 then write('positive') else write('negative'); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 154.695

Рассматривается последовательность a1, ... , a1000. Требуется определить, сколько членов последовательности с номерами 1, 2, 4, 8, 16, ... имеют значение, меньшее, чем 0,25. При этом считать, что a1, ... , a1000 - заданные действительные числа.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! Программа в приложении. Проверяются только элементы последовательности с номерами равными степени двойки. Удачи! Приложение: var a:array[1..1000]of real; i,j:integer; begin {создаем последовательность} for i:=1 to 1000 do a[i]:=10*random; i:=1; j:=0; {считаем только степени двойки} while i<1000 do begin if a[i]<0.25 then inc(j); writeln('a[',i:3,']:=',a[i]:10:5); i:=i*2; end; writeln('Result:=',j); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 154.710

Даны натуральное число n, действительные числа a1, ... , an. Найти номер первого члена последовательности a1, ... , an; если четных членов нет, то ответом должно быть число 0

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! Думаю вопрос неполный, правильно должно быть так: © Цитата: из вопроса Найти номер первого четного члена последовательности a1, ... , an; если четных членов нет. Программа в приложении. Удачи! Приложение: const n=20; var a:array[1..n]of integer; i:integer; begin {создаем массив} randomize; for i:=1 to n do begin a[i]:=random(30); write(a[i]:3); end; {ищем четный элемент} writeln; i:=1; while odd(a[i])and(i<=n) do inc(i); {выводим результат} if i>n then write('No numbers') else write('a[',i,']:=',a[i]); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 154.712

Даны натуральные числа n, x0, y0, r, x1, y1, ... , xn, yn. Построить на экране точки с координатами xi, yi принадлежащие кругу с центом в точке (x0, y0) и радиусом r

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Иванов Виктор Олегович! Задача похожа на №154549, поэтому пояснений немного, решение в приложении. Приложение: uses crt; const n=1000; type TPoint=record x,y:integer; end; var a:array[1..n] of TPoint; i,x0,y0,r:integer; begin clrscr; randomize; x0:=40;y0:=12;r:=10; for i:=1 to n do begin a[i].x:=random(80); a[i].y:=random(25); end; for i:=1 to n do if sqrt(0.4*sqr(x0-a[i].x)+sqr(y0-a[i].y))<=r then {формула длины отрезка} {поскольку пиксель по Х и У здесь разные, чтобы на круг походило ввел к=0,4 по оси х, иначе будет эллипс} begin gotoXY(a[i].x,a[i].y); TextColor(random(14)+1); write('.'); end; readln; end.

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

Вопрос № 154.728

Привет!!! Кто нибудь делает курсовые работы? Приложение: Привет!!! Кто нибудь делает курсовые работы?

Отправлен: 17.12.2008, 15:45 Вопрос задал: Васильев Евгений (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Ksyasha Здравствуйте, Васильев Евгений ! смотря какой сожности и в какие сроки

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

Отвечает: Николай // Programmator Здравствуйте, Васильев Евгений ! Это зависит от того, на какую тему эта курсовая и сколько времени есть на её написание! Скажу чесно: вряд ли кто-нибудь захочет делать Вам курсовую бесплатно - сами знаете где бесплатный сыр. Рекомендую воспользоваться следующими ссылками: http://diploms.ru/articles/pages/id_131 http://code2u.ru/ http://kursachok.com/ http://www.dipmasters.ru/ http://www.zdal.ru/ http://www.5ballov.na.by/ Удачи!

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

Вопрос № 154.738

Даны натуральные числа n, a1, ... , an определить количество членов ak последовательности a1, ... , an являющихся квадратами четных чисел.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Иванов Виктор Олегович! Можно решить например таким способом. Приложение: uses crt; const n=10; var a:array[1..n] of word; i,k:integer; begin clrscr; for i:=1 to n do read(a[i]); {вводим 10 чисел, в том числе типа 4, 16, 36} readln; k:=0; for i:=1 to n do {выбираем числа, которые после деления их на 4, извлечения из них корня и возведения в квадрат целой части снова дают исходное число} if (sqr(trunc(sqrt(a[i]div 4)))=a[i] div 4) and (a[i]>=4) then begin write(a[i],' '); inc(k); end; writeln; write('k=',k); readln end.

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

Вопрос № 154.743

Здравствуйте! Помогите пожалуйста с программой. Дан файл, в нем записано число. Нужно после каждых 2 цифр числа записать модуль их разности.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Левашов Павел Сергеевич! Решение задачи в приложении. Приложение: Создаем текстовый файл в папке с программой, записываем в него одно число в строке не более 255 цифр. Сохраняем как chislo uses crt; var f:text; s:string; i:integer; begin clrscr; assign(f,'chislo.txt'); reset(f); readln(f,s);{читаем число} writeln('Ishodnoe chislo:');{выводим на экран} write(s); writeln; for i:=length(s) downto 2 do {с конца строки смотрим} if i mod 2=0 then {если номер цифры четный, вставляем после него символ абсолютной разности кодов этой цифры и предыдущей, добавив к ней 48} insert(chr(abs(ord(s[i])-ord(s[i-1]))+48),s,i+1); append(f);{открываем файл для дозаписи} writeln('Rezultat:'); {выводим результат на экран} write(s); writeln(f,''); {добавляем результат в конец файла} writeln(f,'Rezultat:'); write(f,s); close(f);{закрываем файл} readln end.

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

Вопрос № 154.747

Здравствуйте! Помогите пожалуйста с решение задачи на тему "списки": Требуется построить список элементы которого содержат квадраты чисел от 1 до n. Распечатать список.

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

Отвечает: Семёнов Илья Здравствуйте, Аркадий Петрович! Если что не понятно спрашивайте подскажем... или просите отредактировать с пояснениями... Приложение: Program xa; Type spisok=^vs; vs=record info:integer; {HaLLIe 4uCLo} next:spisok; {Yka3ATeLb Ha HoBogo CtyDeHta} end; var a,adr:spisok; n,i:integer; begin Writeln('BBedute n'); Write('n='); readln(n); new(a); adr:=a; a^.info:=1; a^.next:=nil; n:=sqr(n); for i:=2 to n do begin new(a^.next); a:=a^.next; a^.next:=nil; a^.info:=i; end; a:=adr; while a<>nil do begin Write(a^.info, ' '); a:=a^.next; end; a:=adr; while a<>nil do begin adr:=a^.next; dispose(a); a:=adr; end; readln end.

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

Вопрос № 154.760

Уважаемые Эксперты! Задача: найти все простые числа до n. Помогите составить программу

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Alex17000! Решение с пояснениями в приложении. Приложение: uses crt; function Prost(x:longint):boolean; {функция определяет простое число или нет} var i:longint; begin for i:=2 to round(sqrt(x)) do {начиная с 2 до корня из числа, дальше просто нет делителей} if x mod i=0 then {если находим хоть один делитель] begin Prost:=false; {число составное} end; end; var n,i,k:integer; begin clrscr; write('n=');readln(n); k:=0; for i:=2 to n do {проверяем все чичла от 2 до n } if Prost(i) then {если простое} begin writeln(i); {выводим} k:=k+1; {считаем} if k mod 25= 0 then readln;{поскольку все сразу могут не войти на экран, через 25 строк задержка} end; readln end.

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

Вопрос № 154.766

Здравствуйте. Я вот не могу решить простую задачу: Вычислить функцию f(x,a)=(x/2a)^2 - sinx при х=2.1, 2.2, 2.3, ...., 3 и а=1, 2, 3 с точностью 7 знаков после десятичной точки. не помню как сделать цикл из 2.1, 2.2, 2.3. А именно не помню как сделать цикл "2.1, 2.2, 2.3, ...., 3". Пробовал сделать как на рисунке показано, но не работает. Помогите пожалуйста Приложение: for i:=1 to 10 do begin a[i]:=2+i*0.1; end; for j:=1 to 7 do begin f[i,j]:=a[i]/2*j-sin(a[i]); writeln(f[i,j]);end;

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

Отвечает: Шичко Игорь Здравствуйте, DaImeR! Предлагаю Вам следующий алгоритм решения. Код в приложении. Приложение: var i, k: integer; a: array[1..3] of integer; f: array[1..3, 1..20] of real; j: real; begin for i:= 1 to 3 do a[i]:= i; for i:=1 to 3 do begin j:= 2; k:= 1; while j < 3.1 do begin f[i,k]:=sqr(j/2*a[i]) - sin(j); {расчет функции} writeln('a =', a[i]:3, ' x = ', j:3:1, ' f(a,x) = ', f[i,k]:10:7); j:= j + 0.1; k:= k+1; end; writeln; end; readln; end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, DaImeR! Решение задачи в приложении. Приложение: uses crt; var a,x,f:real; k:integer; begin clrscr; a:=1;k:=0; while a<=3 do {цикл по a} begin x:=2.1; while x<=3.0 do {цикл по х} begin f:=sqr(x/(2*a))-sin(x); {формула} writeln('a=',a:0:0,' x=',x:0:1,' f(x,a)=',f:10:7); k:=k+1; {считаем итерации, все значения на экран не войдут} if k mod 20=0 then readln;{поэтому через 20 строк делаем задержку} x:=x+0.1; end; a:=a+1; end; readln end.

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

Вопрос № 154.793

Здравствуйте. Помогите пожалуста решить. Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют свойству: слово симметрично(количество символов – четное число). Спасибо.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Ajvazovi Nina! Пешение с комментариями в приложении. Приложение: Поскольку не указана структура последовательности, примем, что слова разделены одним пробелом, в конце последовательности символа конца нет. uses crt; var s,s1,s2:string; i,k:integer; begin clrscr; write('s: ');readln(s); for i:=length(s) downto 1 do {идем с конца, ищем первый пробел} if s[i]=' ' then {нашли} begin k:=i; {запомнили его позицию} break;{больше не ищем} end; s1:=copy(s,k+1,length(s)-k); {от этой позиции+1 до конца=последнее слово} while pos(' ',s)>0 do {пока есть пробелы} begin s2:=copy(s,1,pos(' ',s)-1);{копируем очередное слово} if (s2<>s1)and(length(s2)mod 2=0) {если оно отличается от последнего и четное} then writeln(s2); {выводим его} delete(s,1,pos(' ',s));{удаляем, проверяем следующее} end; readln end.

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

Вопрос № 154.804

Программирование задач с использованием двумерных массивов X(N,M) Определить среднее арифметическое каждой строки матрицы. Приложение: плс помогите

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

Отвечает: Шичко Игорь Здравствуйте, Speluk! Предлагаю вариант решения. Код в приложении. В последнем столбце результатов - средние значения по строке Приложение: const n = 8; m = 10; var x: array[1..n, 1..m] of integer; av: array[1..n] of real; i, j, summ: integer; begin randomize; writeln('Massiv 1'); for i:= 1 to n do for j:= 1 to m do x[i, j]:= Random(20) - 5; for i:= 1 to n do begin summ:= 0; for j:= 1 to m do summ:= summ + x[i,j]; {вычисление суммы по строке} av[i]:= summ / m; {вычисление среднего} end; {вывод результатов} for i:= 1 to n do begin for j:= 1 to m do write(x[i,j]:5); write(av[i]:10:2); writeln; end; readln; end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Speluk! Решение задачи в приложении. Приложение: uses crt; const n=6; {размеры матрицы} m=5; var x:array[1..n,1..m] of real;{матрица} i,j:integer; sr:real; {среднее} begin clrscr; randomize; writeln('Matrica:'); {создаем и выводим на экран матрицу} for i:=1 to n do begin for j:=1 to m do begin x[i,j]:=10*random; write(x[i,j]:5:2); end; writeln; end; for i:=1 to n do begin sr:=0; for j:=1 to m do sr:=sr+x[i,j]/m; {считаем срнднее в каждой строке, суммируя элементы строки, деленные на их количество} writeln('Srednee x stroke ',i,' =',sr:0:2);{выводим результат по каждой строке} end; readln end.

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