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

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

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

Botsman Статус: Студент Рейтинг: 120 ∙ повысить рейтинг >>

Micren Статус: Студент Рейтинг: 74 ∙ повысить рейтинг >>

Faustofel Статус: 6-й класс Рейтинг: 52 ∙ повысить рейтинг >>

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

Выпуск № 827
от 13.03.2009, 12:02

Вопрос № 161833: Помогите пожалуйста составить программу!!!! построить квадратную матрицу следующего вида: 1 2 3 ... 10 11 12 13 ... 20 21 22 23 ... 30 .... 91 92 93 ... 100...

Вопрос № 161.833

Помогите пожалуйста составить программу!!!! построить квадратную матрицу следующего вида: 1 2 3 ... 10 11 12 13 ... 20 21 22 23 ... 30 .... 91 92 93 ... 100

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

Отвечает: Botsman Здравствуйте, Синельникова Ирина Александровна! В приложении код программы, которая формирует квадратную матрицу размера n*n и выводит ее на экран. Рад был помочь! Приложение: uses crt; const n=10; var a:array [1..n,1..n] of integer; i,j:integer; Begin clrscr; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=(i-1)*n+j; write(a[i,j]:4); end; writeln; end; readln END. --------- Хочешь победить Excel? Спроси меня как! ;)

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

Вопрос № 161.852

дан массив из N вещественных чисел. найти сумму тех элементов массива, номера которых являются числами Фибоначчи.

Отправлен: 02.03.2009, 20:47 Вопрос задала: Красноштанова Катерина Сергеевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Костя Симанович Здравствуйте, Красноштанова Катерина Сергеевна! Для начала нам понадобится фомула вычисления числа фиибоначи по его номеру. а = (a1^n-a2^n)/корень из 5, где a1=(1+корень из 5)/2, a2=(1-корень из 5)/2. Далее вычисляем числа Фиббоначи со второго (так как первое и второе число Фиббоначи 1, чтобы не просуммиповть первый эл-т массива 2 раза) и до тех пор пока очередное число не превысит значение N, и суммируем эл-ты массива с этими номерами. Вариант решения в приложении. Приложение: program www; const n = 13; //размер массива можно изменить function stepen(a:real; k:integer):real; {функция для вычисления числа фиббоначи} var i:integer; res:real; begin res:=1; for i:=1 to k do res:=res*a; stepen:=res; end; var mass : array[1..n] of real; j : integer; a : real; // очередное число фиббоначи a1, a2 : real; summ : real; // сумма begin randomize; for j := 1 to n do begin mass[j] := random(20); // заполняем массив от 0 до 20 writeln(j, ' ',mass[j]:6:1) end; a1 := (1 + sqrt(5))/2; a2 := (1 - sqrt(5))/2; j := 2; // начинаем сразу со второго числа фибоначи это тоже 1 summ := 0; a := 1; while a <= n do begin a := (stepen(a1, j) - stepen(a2, j))/sqrt(5); // получаем очередное число Фиббоначи if a <= n then summ := summ + mass[trunc(a)]; j := j + 1; end; writeln('сумма эл-ов массива = ', summ:6:1); readln; end.

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

Отвечает: Denisss Здравствуйте, Красноштанова Катерина Сергеевна! В приложении привожу пример с комментариями, на мой взгляд, более простой, чем в первом ответе. Успехов! Приложение: program Q161852; uses CRT; { Максимальный размер массива } const MAX_ARR = 50; var a, b, c: Integer; arr: array[1..MAX_ARR] of Real; summ: Real; i, n: Byte; begin { Вводим N > 0 } repeat write('N = '); readln(n); until ((n > 0) and (n < MAX_ARR)); { Заполняем массив случайными значениями } Randomize; for i:= 1 to n do begin arr[i]:= Random(100)/30; writeln('a[', i, '] = ', arr[i]); end; a:= 1; b:= 1; { Первое число Фиббоначи } c:= 1; { Сумма } summ:= 0.0; { Пока очередное число Фиббоначи } { меньше размера массива } while (c < n) do begin summ:= summ + arr[c]; { Вычисляем следующее число Фиббоначи } c:= a + b; a:= b; b:= c; end; { Выводим сумму } writeln('summ = ', summ); writeln; { Ожидаем, пока пользователь не нажмет } { любую кнопку } writeln('Press any key to continue...'); ReadKey; end. --------- Все должно быть сделано настолько просто, насколько это возможно. Но не проще. (с) А.Эйнштейн

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

Вопрос № 161.882

Здравствуйте уважаемые эксперты!!! помогите пожалуйтса найти ошибку в след.задаче.!!!! Введите некоторое малое число eps>0, имеющее смыл погрешности вычисления (например, 0.001;0.005 и т.п.) и число х в пределах 0,5<x<10.5, и вычислите следeдующее выражение: Y=1+(x2/2!)+(x4/4!)+…..+(x2n/(2n)!)+.. Вычисления прекратите, когда очередное слагаемое станет по модулю меньше, чем eps. Выведите на экран x,y,eps и количество использованных слагаемых. в приложении я написала код программы, но она считает неправильно. не пойму где ошибка!!! помогите!!!только на вас надежда! Приложение: Program zadacha; Uses crt; Var eps,x,pred,sled,y:real; I,n,k:integer; Begin Clrscr; Writeln(‘Введите некоторое мало число eps’); Readln(eps); Writeln(‘введите х в пределах 0.5<x<10.5’); Readln(x); N:=0; Y:=1; K:=1; Pred:=1; While(abs(sled))<eps do Begin Sled:=pred*(x*x)/((n+1)*(n+2))); Y:=y+sled; Pred:=sled; N:=n+2; K:=k+1; End; Writeln(‘y=’, y:10:7, ‘последнее слагаемое’, sled:10:7, ‘количество слагаемых =’, k); Readln; End.

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

Отвечает: Botsman Здравствуйте, Кузик Марина! В приложении исправленный код. Ошибки следующие. 1) При расчете Sled была лишняя закрывающаяся скобка (мелочь, но тем не менее) 2) Неверно было проставлено условие выхода из цикла. Вычисления нужно продолжать, пока очередное слагаемое БОЛЬШЕ чем eps. 3) Для того чтобы сработал п2, необходимо первый Sled вычислить ДО входа в цикл. Соответственно в самом цикле расчет очередного Sled происходит ПОСЛЕ наращивания суммы и счетчика. Все. Рад был помочь :) Приложение: Program zadacha; Uses crt; Var eps,x,pred,sled,y:real; I,n,k:integer; Begin Clrscr; Writeln('Vvedite eps'); Readln(eps); Writeln('Vvedite x: 0.5<x<10.5'); Readln(x); N:=0; Y:=1; K:=1; Pred:=1; Sled:=pred*(x*x)/((n+1)*(n+2)); While(abs(sled))>eps do Begin Y:=y+sled; Pred:=sled; N:=n+2; K:=k+1; Sled:=pred*(x*x)/((n+1)*(n+2)); End; Writeln('y=', y:10:7, 'poslednee slagaemoe', sled:10:7, 'kolichestvo slagaemyh', k); Readln; End. --------- Хочешь победить Excel? Спроси меня как! ;)

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

Вопрос № 161.916

Доброго времени суток) Тут вот возникла такая проблема: Пусть n-натуральное число,а n!! (!-факториал) означает 1*3*5*...*n для нечетного n и 284*6*...*n для четного n.Для заданного n вычислить ((-1)в степени n+1) * n!!

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

Отвечает: Botsman Здравствуйте, Павленко Антон Михайлович! Как вам предлагаемый в приложении вариант? Сразу скажу, что факториал растет очень быстро, поэтому var res:longint, но даже в этом случае при N>19 программа не работает. И еще совет по поводу множителя ((-1)в степени n+1)- он будет равен -1 для всех четных n и 1 для всех нечетных. Поэтому он учитывается в самом конце расчетов:mod 2 = 0 then res:=-res; Все. Рад был помочь Приложение: uses crt; var res:longint; asd,n:integer; BEGIN clrscr; write ('Vvedite N='); readln(n); asd:=n mod 2+2; res:=1; while asd<=n do begin res:=res*asd; inc(asd,2); end; if n mod 2 = 0 then res:=-res; writeln ('otvet: ',res); readln; END. --------- Хочешь победить Excel? Спроси меня как! ;)

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

Вопрос № 161.931

дано N вещественных чисел. найти три таких числа, с помощью которых можно построить треугольник наименьшей площади

Отправлен: 03.03.2009, 18:51 Вопрос задал: Ирина ирина ирина 12 Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Boriss Здравствуйте, Ирина ирина ирина 12! Решение в приложении. Я не тестировал, поскольку нет времени свободного. Проверьте и если что не так, напишите, но думаю, что работает правильно Приложение: const N = 5; N2 = N - 2; N1 = N - 1; VAR sides : Array[1..N] of Real; i, j, k, i_min, j_min, k_min: Integer; S, S_min: Real; function Square(a, b, c: Real): Real; var p: Real; begin p := (a + b + c)/2; if (p < a) or (p < b) or (p < c) then begin Square := 0; Exit end; Square := sqrt(p*(p-a)*(p-b)*(p-c)) end; BEGIN S_min := 0; for i:=1 to N do begin Write('Введите число номер ',i,' из ',N,': '); ReadLn(sides[i]); end; for i:=1 to N2 do for j:=i+1 to N1 do for k:=j+1 to N do begin S := Square(sides[i], sides[j], sides[k]); if S > 0 then if S_min = 0 then S_min := S else if S < S_min then begin i_min := i; j_min := j; k_min := k end end; if S_min = 0 then WriteLn('В заданном наборе нет сторон, из которых можно', 'составить хотя бы один треугольник') else begin WriteLn('Наименьшую площадь ',S_min:12:4,' имеет треугольник, составленный из сторон:'); WriteLn(sides[i_min]:10:4,' ',sides[j_min]:10:4,' ',sides[k_min]:10:4); end END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 03.03.2009, 21:11 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 244978 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 161.994

Ув. эксперты помогите начинающему! Почему написаная в Turbo Pascal программа сохранённая с расширением exe самостоятельно не работает? Как сделать что бы Паскаль отображал кирилицу? Turbo Pascal 7.1 Система Win XP SP-2

Отправлен: 04.03.2009, 11:35 Вопрос задал: Хиврич Сергей Алексеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 26)

Отвечает: Савицкий Владимир Вячеславович Здравствуйте, Хиврич Сергей Алексеевич! 1. TP сохраняет программы с расширением pas а чтобы было расширение ехе нужно файл откомпелировать. 2. Лично я решаю этот вопрос так: пишу программу и проверяю ее на работоспособность, дальше открываю файл любым редактором под Винду и вношу сообщения которые должна выдавать программа.

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

Вопрос № 162.009

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

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

Отвечает: Botsman Здравствуйте, степина ольга викторовна! Текст вашей программы в приложении. Маленькое замечание программа считает строчную и прописную буквы разными буквами. Если это принципиально, пишите, поправлю. Если нет - все равно старайтесь вводить текст не меняя регистр в процессе ввода :)) Рад был помочь! Приложение: uses crt; var txt,first,last:string; qty,i:integer; BEGIN clrscr; writeln('Vvedite text'); readln(txt); txt:=txt + '.'; qty:=0; i:=1; while txt[i]<>'.' do begin first:=''; last:=''; while txt[i]=' ' do inc(i,1);{nahodim neprobel} first:= txt[i]; while (txt[i] <> ' ') and (txt[i]<>'.') do inc(i,1){nahodim probel ili konec}; last := txt[i-1]; if (last = first) and (last<>'') then inc(qty,1) end; writeln ('Kol-vo iskomyh slov ravno:',qty); readln; END. --------- Хочешь победить Excel? Спроси меня как! ;)

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, степина ольга викторовна! Программа в приложении. Я думаю тема у Вас - строки, поэтому всё сделано с помощью подпрограмм работы со строками. Использовано минимальное количество переменных. Удачи! Приложение: var a:string; b:integer; begin {вводим строку пока не будет точки в строке} repeat write('Enter sring:'); readln(a); until pos('.',a)>0; {удаляем начальные пробелы} while a[1]=' ' do delete(a,1,1); {удаляем точку и всё что после точки, заменяем точку пробелом} delete(a,pos('.',a),length(a)-pos('.',a)+1); a:=a+' '; {удаляем двой ные пробелы} while pos(' ',a)>0 do delete(a,pos(' ',a),1); {выводим полученную строку} writeln('Check:',a,'Check!'); {сбрасываем счетчик и начинаем работать} b:=0; while length(a)>0 do begin {если символ перед пробелом совпадает с первым увеличиваем счетчик} if a[1]=a[pos(' ',a)-1]then inc(b); {удаляем проверенное слово} delete(a,1,pos(' ',a)); end; {выводим результат} write('result:',b); readln; end.

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

Вопрос № 162.018

составить программу вычисления значения y= 1/(x^2+2/x^2+4/x^2+8/...+256/x^2)

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, степина ольга викторовна! Уточненная формула 1/(x^2+2/(x^2+4/(x^2+8/(…/(x^2+256/x^2 ))))) реализована в приложении. Если будут вопросы, обращайтесь в мини-форум. Удачи! Приложение: var x:real; {рекурсивная функция} function FN(z:real;y:integer):real; begin if y<9 then FN:=exp(ln(2)*y)/(z+FN(z,y+1)) else FN:=0; end; begin {вводим число Х} repeat write('Enter X:'); readln(x); until x<>0; {выводим результат} write('result:=',FN(x*x,0)); readln; end.

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

Вопрос № 162.048

дана неубывающая последовательность из N вещественных чисел. вставить число k, так чтобы последовательность оставалась неубывающей.

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

Отвечает: Mixala Здравствуйте, Потапов Александр Александрович! процедура в приложении a-глобальная переменная - массив веществ. чисел. Приложение: const N=1000; var a:array[1..N] of real; procedure add(k:real); var i,j:integer; begin i:=1; While k>a[i] do //поиск места вставки i:=i+1; For j:=n downto i do //сдвигаем последовательность a[j+1]:=a[j]; a[i]:=k; //вставляем к end;

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

Вопрос № 162.049

дано натуральное число n. верно ли, что все цифры числа различны?

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

Отвечает: Mixala Здравствуйте, Потапов Александр Александрович! В приложении код функции, возвращающей boolean. Приложение: function ab(n:integer):boolean; var q:set of byte; t:byte; begin While n>9 do begin t:=n mod 10; //берется последняя цифра if t in q then begin //если последн. цифра уже была (есть в множестве) то выходим ab:=true; exit; end; include(q,t); //если не вышли, то добавляем в множество n:=n div 10; //удаляем из множ-ва end; ab:=false; end;

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Потапов Александр Александрович! Смотрите приложение. Реализованно с помощью рекурсии: проверка цифры в числе b<>(c mod 10); вызов Fn(b,c div 10) - производит проверку цифры в числе; вызов Fn(c mod 10,c div 10) - производит переход к очередной проверяемой цифре. Удачи! Приложение: var a:integer; {функция проверки всех цифр} function Fn(b,c:integer):boolean; begin if c>0 then Fn:=(b<>(c mod 10))and Fn(b,c div 10)and Fn(c mod 10,c div 10) else Fn:=true; end; begin {ввод натурального числа} repeat write('Enter A:'); readln(a); until a>0; {выводим результат} write('Result:',Fn(a mod 10,a div 10)); readln; end.

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

Вопрос № 162.190

Решите пожалуйста задачу: Разработать программу для выполнения указанных операций с матрицами. Составить блок-схему задачи. 1)умножение матрицы на число, сложение матриц.

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

Отвечает: Botsman Здравствуйте, Петров Иван Анатолич! Код вашей программы - в приложении. Блок-схему могу выслать по e-mail. Теория (вдруг пригодится): при умножении матрицы А на число k, получается матрица той же размерности, что и матрица А, каждый элемент новой матрицы равен произведению соответствующего элемента матрицы А на число k. Складывать можно матрицы одинаковой размерности. Результат сложения - матрица той же размерности, что и матрицы-слагаемые, каждый элемент в ней равен сумме соответствующих элементов складываемых матриц. Все, рад был помочь! Приложение: uses crt; const N=3; M=4; type matrix = array[1..N,1..M] of real; var a,b,res:matrix; i,j:integer; k:real; BEGIN clrscr; randomize; {sozdaem matritsu A} for i:=1 to n do for j:=1 to m do a[i,j]:=10*random; writeln('Matritsa A:'); for i:=1 to N do begin for j:=1 to M do write(a[i,j]:7:2); writeln; end; writeln; write ('Vvedite chislo k='); readln (k); {Umnozhaem na chislo i vyvodim rezultat} writeln('Itogovaya matritsa res=k*A:'); for i:=1 to N do begin for j:=1 to M do begin res[i,j]:=k*a[i,j]; write(res[i,j]:7:2); end; writeln; end; {sozdaem matritsu B} for i:=1 to n do for j:=1 to m do b[i,j]:=10*random; writeln; writeln('Matritsa B:'); for i:=1 to N do begin for j:=1 to M do write(b[i,j]:7:2); writeln; end; {skladyvaem matritsy A i B i vyvodim rezultat} writeln; writeln('Itogovaya matritsa res=A+B:'); for i:=1 to N do begin for j:=1 to M do begin res[i,j]:=a[i,j]+b[i,j]; write(res[i,j]:7:2); end; writeln; end; readln; END. --------- Хочешь победить Excel? Спроси меня как! ;)

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

Вопрос № 162.191

Решите пожалуйста задачу: Разработать программу для вычисления следующих матриц; Составить блок-схему задачи. 1) 25B+8C+9A Матрицы: (2,1 -4,5 - 2 ) (0,5 -1,5 2 ) (2,6 1 3) A =(3 2,5 4,3) B=(0,23 1,5 2,3) C=(0,45 -1,12 2) (-6 3,5 2,5) (0,6 3,1 2,5) (1 3 4)

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

Отвечает: Botsman Здравствуйте, Петров Иван Анатолич! Все ваши исходные матрицы - размера 3*3, итоговая матрица будет того же размера. Код программы - в приложении, блок-схему вышлю по e-mail. Рад был помочь. Приложение: uses crt; type matrix = array[1..3,1..3] of real; const a:matrix=((2.1,-4.5,-2),(3,2.5,4.3),(-6,3.5,2.5)); b:matrix=((0.5,-1.5,2),(0.23,1.5,2.3),(0.6,3.1,2.5)); c:matrix=((2.6,1,3),(0.45,-1.12,2),(1,3,4)); var i,j:integer; BEGIN clrscr; randomize; writeln('matritsa A:'); for i:=1 to 3 do begin for j:=1 to 3 do write(a[i,j]:7:2); writeln; end; writeln; writeln('matritsa B:'); for i:=1 to 3 do begin for j:=1 to 3 do write(b[i,j]:7:2); writeln; end; writeln; writeln('matritsa C:'); for i:=1 to 3 do begin for j:=1 to 3 do write(c[i,j]:7:2); writeln; end; {vychislyaem i vyvodim rezultat} writeln; writeln('Itogovaya matritsa 25B+8C+9A:'); for i:=1 to 3 do begin for j:=1 to 3 do write(25*b[i,j]+8*c[i,j]+9*a[i,j]:7:2); writeln; end; readln; --------- Хочешь победить Excel? Спроси меня как! ;)

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

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