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

Выпуск № 382
от 28.05.2007, 01:35

Вопрос № 88.054

Уважаемые эксперты!! Помогите с программой..вот текст Ввести двумерный массив D 3*5.Вычислить максимальный по модулю элемент(D MAX) и с помощью п/п 2 построить массив D=D MAX*D. Упорядочить его строкипо возрастанию с помощью п/п 1 п/п 1- Тип F. Упорядочить по возрастанию элементы строки К матрицы. п/п 2-Умножение матрицы на скаляр. Программа моя чего-то не пашет...Буду очень благодарен если пришлете блок схему к этой программе...Вопрос жизни и смерти...Заранее спасибо!!

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

Отвечает: Timets Denis Здравствуйте, Трусов Александр Евгеньевич! вы хотели схему вот. сортировка пузырьковая - больше никаких методов не помню :) насчет передачи массива в процедуру - думаю вы в курсе (если нет = используйте обьявления типов) если есть вопросы - стучите в аську Приложение: 0. N=3,M=5 1. ввод массива D[1..N,1..M] 2. Dmax=D[1,1] 3. for i:=1 to N 4. for j:=1 to M 5. if Dmax<abs(D[i,j]) then Dmax=D[i,j] 6. конец цикла по i 7. конец цикла по j 8. вызов MULT(D) 9. вызов SORT(D) 10 end MULT(Dmax,var D) 1. for i:=1 to N 2. for j:=1 to M 3. D[i,j]:=Dmax*D[i,j] 4. конец цикла по i 5. конец цикла по j SORT(var D) 1. for row:= 1 to N 2. for i:=1 to M 3. for j:=1 to (M-i) 4. if D[row,j]>D[row,(j+1)] then begin tmp:=D[row,j+1] D[row,j+1]:=D[row,$j] D[row,$j]:=tmp; end; 4. конец цикла по i 5. конец цикла по j 6. конец цикла по row --------- все там будем

Ответ отправил: Timets Denis (статус: 1-ый класс) Ответ отправлен: 22.05.2007, 15:38 Оценка за ответ: 4

Вопрос № 88.100

Ребята помогите пжлс задачку решить(( о4 нужно Заданы матрицы A=[ai,j] (i=1, 2, 3; j=1, 2, 3), B=[bi,j] (i=1, 2, 3; j=1, 2, 3). Расставить в порядке возрастания элементы в главных диагоналях каждой матрицы. Затем A и B сложить. Расстановку в порядке возрастания элементов оформить в виде подпрограммы. Исходные данные: A=((3.4,2.1,4.4), (2.8,3.9,4.1), (0.8,2.2,0.9)); B=((2.2,4.1,0.5), (1.3,0.2,4.2), (9.3,-0.25,0.48)); P.S. если можно то уже ввиде проги. Я в этом совсем ничего не понимаю=(((

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

Отвечает: Verena Здравствуйте, Степанова Марина Викторовна! Вот решение: const n = 3; type matr = array [1..n, 1..n] of real; {оем тип: квадратная матрица 3х3} var a, b, c: matr; i, j: integer; procedure Sort (var a: matr); {процедура сортировки диагонали} var i, j: integer; tmp: real; begin for i:=1 to n-1 do {сортировка мдотом пузырька} for j:=i+1 to n do if a[i, i] > a[j, j] then {элементы главной диагонали имеют равные индексы} begin tmp:= a[i, i]; {если элемент i,i больше j,j, меняем их местами} a[i, i]:= a[j, j]; a[j, j]:= tmp; end; end; begin for i:=1 to n do {ввод матрицы а} for j:=1 to n do readln (a[i, j]); for i:=1 to n do {ввод матрицы b} for j:=1 to n do readln (b[i, j]); Sort (a); {сортируем а} writeln; for i:=1 to n do {выведем результат сортировки} begin for j:=1 to n do write (a[i,j], ' '); writeln; end; Sort (b); {сортируем b} for i:=1 to n do {вывод для проверки} begin for j:=1 to n do write (b[i,j], ' '); writeln; end; for i:=1 to n do {складываем поэлементно матрицы а и b} for j:=1 to n do c[i,j]:= a[i,j]+b[i,j]; for i:=1 to n do begin for j:=1 to n do {выводим матрицу с - результат сложения} write (c[i,j]); writeln; end; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 22.05.2007, 17:57

Вопрос № 88.127

Всем привет! Уважаемые пользователи помогите пожалуйста.....я в этом ПАСКАЛЕ ни чего не понимаю...я с ним ни когда не сталкивался я вобще ПО НУЛЯМ.... вот что надо зделать... Методом Ньютона и методом половиннго деления найти корень уравнения Х в кубе + Х в квадрате - 3 = 0. С точностью Е= 10 в степени -u , предварительно определив интервал изоляции корня. СРавнитиь эффективность указанных методов путём определения количества итераций, необходимых для достижения заданной точности вычеслений. Произвести проверку корня: Построить таблицу и график функции y=f(x) на выбранном интервале. только можно попдробней пожалуйста расписать...мне придётся это еще защищать.... С уважением Николай.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Krasfilms! Смотрите приложение. Посмотрите сами алгоритмы этих методов. Удачи! Приложение: program q88127; var a,b,e,x0,fa,fb,fx:real; i0:integer; f:text; begin {начало программы} write('a:'); readln(a);{вводим начало отрезка} write('b:'); readln(b);{вводим конец отрезка} write('e:'); readln(e);{вводим точность 0.000001} assign(f,'q88127.txt');{отркрываем файл для записи результатов} rewrite(f); {метод нютона то начала отрезка} writeln('newton from A'); i0:=0;{сбрасываем счетчик} x0:=a;{начальные значения Х} fx:=0;{коррекция Х} repeat x0:=x0-fx;{корректируем Х} fx:=(x0*sqr(x0)+sqr(x0)-3)/(3*sqr(x0)+2*x0);{считаем коррекцию Х} i0:=i0+1;{добавляем счетчик} writeln(f,i0,'|',x0,'|',fx);{пишем в файл промежуточные результаты} until not(abs(fx)>e)or(i0>200);{ищем пока не достигнем нужной точности} if i0=200 then writeln('no root');{если нет корня} if i0<200 then writeln('root(newton):',x0,' step:',i0);{выводим корень и счетчик} {тоже только от конца отрезка} writeln('newton from B'); i0:=0; x0:=b; fx:=0; repeat x0:=x0-fx; fx:=(x0*sqr(x0)+sqr(x0)-3)/(3*sqr(x0)+2*x0); i0:=i0+1; writeln(f,i0,'|',x0,'|',fx); until not(abs(fx)>e)or(i0>200); if i0=200 then writeln('no root'); if i0<200 then writeln('root(newton):',x0,' step:',i0); {метод половинного деления} fa:=a*sqr(a)+sqr(a)-3;{считаем значение для начала отрезка} fb:=b*sqr(b)+sqr(b)-3;{считаем значение для конца отрезка} i0:=0;{сбрасываем счетчик} if (fa*fb)>0 then{проверяем на наличие корня} begin writeln('no root');{если корня нет} end else begin repeat{корень есть считаем} x0:=(a+b)/2;{берем среднее значение отрезка} fx:=x0*sqr(x0)+sqr(x0)-3;{считаем значение для половины} i0:=i0+1;{увеличиваем счетчик} if (fa*fx)>0 then{проверяем отрезок на наличие корня} begin a:=x0;{отбрасываем ненужную половину отрезка} fa:=fx; end else begin b:=x0;{отбрасываем не нужную половину отрезка} fb:=fx; end; writeln(f,i0,'|',a,'|',fa,'|',b,'|',fb);{выводим в файл промежуточные результаты} until not(abs(a-b)>e);{ищем пока не достигнем нужной точности} x0:=(a+b)/2;{корень должен быть где-то посредине} writeln('root(halfdiv):',x0,' step:',i0);{выводим корень и счетчик} end; close(f);{закрвываем файл} end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 25.05.2007, 16:00 Оценка за ответ: 5 Комментарий оценки: Спасибо, что откликнулся на помошь)))

Вопрос № 88.160

здравствуйте, что-то у меня запарка с прогой, не могли бы вы помочь, задача: задать с клавиатуры 3 стороны треугольника; определить: вид треугольника: разносторонний, равносторонний, равнобедренный, не треугольник; Вычислить: площадь треугольника по формуле Герона S=sqrt(p*(p-a)*(p-b)*(p-c)) p=(a+b+c)/2 Заранее благодарю! :)

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

Отвечает: Устинов С.Е. Здравствуйте, Ya3va! const d:array[0..3] of string=('ne sushestvuet', 'raznostoronniy', 'ravnobedrenniy', 'ravnostoronniy'); var a,b,c:integer; t:integer; s,p:real; begin writeln('Vvedite a,b,c'); readln(a,b,c); t:=0; if ((a+b) > c) and ((a+c) > b) and ((c+b) > a) then t:=1; if (t=1) and ((a=b) or (b=c) or (a=c)) then t:=2; if (t=2) and (a=b) and (b=c) then t:=3; writeln('Treugolnik ',d[t],'.'); if t > 0 then begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Ploshad=',s:5:2); end; readln; end. Удачи! --------- Ждешь квалифицированного ответа? Задай правильно вопрос!

Ответ отправил: Устинов С.Е. (статус: Специалист) Ответ отправлен: 23.05.2007, 00:11

Вопрос № 88.171

помогите пожалста!!!! а то прям какая-то запарка!! задача: задать с клавиатуры 3 стороны треугольника; определить: вид треугольника: разносторонний, равносторонний, равнобедренный, не треугольник; Вычислить: площадь треугольника по формуле Герона спасибо заранее!!!

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

Отвечает: Nazar__D Здравствуйте, Вдовина Екатерина Владимировна! Помогу, чем могу. Там еще можно при желании поигратся с тем, чтобы не выводилось одновременно "разносторонний" и "равнобедренный". Также приношу извинения за употребление двух языков - русским пользовался по незнанию некоторых терминов на английском :) Приложение: program Triangle; var side_one, side_two, side_three: real; sq, p: real; begin write ('Enter first side length: '); readln (side_one); write ('Enter second side length: '); readln (side_two); write ('Enter third side length: '); readln (side_three); if (side_one > side_two+side_three) or (side_two > side_one+side_three) or (side_three > side_two+side_one) then writeln ('It''s not a triangle!') else begin if (side_one = side_two) and (side_one = side_three) then writeln ('Ravnostoronnuj treugol''nik') else begin writeln ('Raznostoronnuj treugol''nik'); if (side_one = side_two) or (side_two = side_three) or (side_one = side_three) then writeln ('Ravnobedrennyj treugol''nik'); end; end; p:= (side_one+side_two+side_three)/2; sq:= sqrt(p*(p-side_one)*(p-side_two)*(p-side_three)); writeln ('The square of triangle is ',sq:3:6); readln; end. --------- Я - українець!

Ответ отправил: Nazar__D (статус: 1-ый класс) Ответ отправлен: 23.05.2007, 01:56 Оценка за ответ: 4

Отвечает: Артём1983 Здравствуйте, Вдовина Екатерина Владимировна! Получиные числа вначале я проверял на предт того могут ли они вообще состовлять треугольник а уж потом делал проверку на всё остальное. В приложении код программы. Приложение: uses crt; var a,b,c:real; function check(x,y,z:real):boolean; begin check:=false; if x+y>=z then check:=true; end; function check_ort(x1,y1,z1:real):boolean; begin check_ort:=false; if sqr(x1)+sqr(y1)=sqr(z1) then check_ort:=true; end; begin clrscr; textmode(co80+font8x8); write('ўўҐ¤ЁвҐ ¤«Ё­г бв®а®­л   :'); readln(a); write('ўўҐ¤ЁвҐ ¤«Ё­г бв®а®­л b :'); readln(b); write('ўўҐ¤ЁвҐ ¤«Ё­г бв®а®­л c :'); readln(c); if check(a,b,c)and check(b,c,a)and check(c,a,b) then begin writeln('нв® ваҐгЈ®«м­ЁЄ'); if check_ort(a,b,c)or check_ort(b,c,a)or check_ort(c,a,b) then begin writeln('¤  Є ⮬㦥 Ё Їаאַ㣮«м­л© !'); end; if (a=b)and (b=c)and (c=a) then begin writeln('¤  Є ⮬㦥 Ё а ў­®бв®а®­­Ё© !'); end; if (a=b)or (b=c)or (c=a) then begin writeln('¤  Є ⮬㦥 Ё а ў­®ЎҐ¤аҐ­­Ёл© !'); end; end else begin write('нв® ­Ґ ваҐгЈ®«м­ЁЄ'); end; readln; end.

Ответ отправил: Артём1983 (статус: 2-ой класс) Ответ отправлен: 23.05.2007, 21:06

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