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

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

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

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

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

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

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

Выпуск № 771
от 31.12.2008, 17:35

Вопрос № 155768: Завис ещё на одном задании с процедурами и функциями.. помогите чем можите)) требуется написать, отладить и протестировать программу, обеспечивающую выполнение следующих действий: 1. Ввод с клавиатуры одномерного массива. 2. Вывод исходного...

Вопрос № 155.768

Завис ещё на одном задании с процедурами и функциями.. помогите чем можите)) требуется написать, отладить и протестировать программу, обеспечивающую выполнение следующих действий: 1. Ввод с клавиатуры одномерного массива. 2. Вывод исходного массива. 3. Обработка массива в соответствии с заданием. 4. Вывод параметров массива, которые требуется найти по заданию. 5. Вывод массива после внесенных изменений. В программе обязательно использовать процедуры и функции с параметров. Использование глобальных переменных запрещено. По возможности в программе использовать все типы параметров – параметры-значения, параметры-переменные и параметры-константы. Обязательно создать как минимум одну процедуру и как минимум одну функцию. При обработке вспомогательными массивами по возможности не пользоваться. Задание: В массиве все четные элементы, стоящие между нечетными, уменьшить в 2 раза. Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 3 2 5 6.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Данилов Максим! Программа в приложении. © Цитата: из хелпа ТР7.0 Список параметров: Заголовок процедуры или функции может содержать список формальных параметров, например так: (параметры; параметры; ... параметры) Каждая группа параметров может быть записана в одной из следующих форм: идентификатор, идентификатор : тип { Список параметров - значений } Var идентификатор, идентификатор : тип { Список переменных параметров } Var идентификатор, идентификатор { Список нетипизированных параметров } Несмотря на то, что в описании есть третий вариант определения параметров ТР7.0 допускает использование только первых двух. Т.е. наличие двоеточия и указанияния типа обя зательно. Удачи! Приложение: const n=10; type TMas=array[1..n]of integer; var a:TMas;i:integer; {массив как параметр-переменная, размер как параметр-значение} procedure ChangeData(var z:TMas;y:integer); var x:integer; begin for x:=2 to y-1 do if odd(z[x-1])and odd(z[x+1])and not odd(z[x])then begin write(z[x-1]:5,z[x]:5,z[x+1]:5); z[x]:=z[x] div 2; writeln('->':4,z[x-1]:5,z[x]:5,z[x+1]:5); end; end; {параметр-значение} function LoadData(z:integer):integer; begin write('Enter a[',z,']:='); readln(z); LoadData:=z; end; {оба как параметр-значение} procedure WriteData(x:TMas;y:integer); var z:integer; begin for z:=1 to y do writeln('a[',z,']:=',a[z]); end; begin {вводим массив} for i:=1 to n do a[i]:=LoadData(i); {выводим массив} writeln('Before:'); WriteData(a,n); {изменяем массив} writeln('Change:'); ChangeData(a,n); {выводим результат} writeln('After:'); WriteData(a,n); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Данилов Максим! Приложу и свой вариант ответа, может он Вам покажется попроще, хотя первый вариант ответа по высшему классу. Приложение: uses crt; type Tmas=array[1..100] of integer; {тип иассива} procedure Vvod(k:integer; var m:Tmas);{ввод с клавиатуры} var i:integer; begin writeln('Vvedite ',k,' elementov massiva:'); for i:=1 to k do read(m[i]); readln; end; procedure Vyvod(k:integer; var m:Tmas);{вывод на экран} var i:integer; begin for i:=1 to k do write(m[i],' '); writeln; end; function Del2(kl,k,kp:integer):integer;{функция в соответствии с заданием} begin if odd(kl)and odd(kp)and not odd(k){если крацние нечетные, а средний четный} then k:=k div 2; {его уменьшаем вдвое} Del2:=k; end; var a:Tmas; n,i:integer; begin clrscr; write('n=');readln(n); Vvod(n,a); clrscr; writeln('Ishodnyj massiv:'); Vyvod(n,a); writeln('Rezultat:'); for i:=1 to n do a[i]:=Del2(a[i-1],a[i],a[i+1]);{вызываем функцию по всему массиву} Vyvod(n,a); readln end.

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

Вопрос № 155.773

Здравствуйте, уважаемые эксперты!!! Помогите с задачей для курсовой пожалуйста!!! В каждом столбце массива X(K,L), K <= 50, L <= 35 поменять местами наибольший и наименьший по модулю элементы. Только решите пожалуйста без процедур и функций. Заранее благодарен)))

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Eugenmail2008! Решение задачи в приложении. Если не понравится, не ругайтесь, пишите, исправим. Процедур и функций (кроме стандартных) точно нет. Приложение: uses crt; const kmax=50; {максимальный размер матрицы} lmax=35; var x:array[1..kmax,1..lmax] of integer; {тип матрицы} k,l,i,j,max,imax,jmax,min,imin,jmin,z:integer;{разные переменные} begin clrscr; randomize;{генерация случайных чисел} repeat write('k=');readln(k); {вводим с проверкой размеры матрицы} write('l=');readln(l); until (k>0)and(k<=kmax)and(l>0)and(l<=lmax); writeln('Matrica X:'); for i:=1 to k do begin for j:=1 to l do begin x[i,j]:=random(10)-6;{заполняем матрицу случайными положителтными и отрицателтными числами} write(x[i,j]:4); end; writeln; end; max:=abs(x[1,1]);imax:=1;jmax:=1;min:=abs(x[1,1]);imin:=1;jmin:=1;{начальные значения} for i:=1 to k do for j:=1 to l do begin if abs(x[i,j])<min then begin min:=x[i,j];{находим минимальный по модулю и его координаты} imin:=i; jmin:=j; end; if abs(x[i,j])>max then begin max:=x[i,j];{находим максимальный по модулю и его координаты} imax:=i; jmax:=j; end; end; writeln('max=',max,' imax=',imax,' jmax=',jmax);{выводим для проверки и обзора} writeln('min=',min,' imin=',imin,' jmin=',jmin); z:=x[imin,jmin];x[imin,jmin]:=x[imax,jmax];x[imax,jmax]:=z;{меняем местами} writeln('Rezultat:'); for i:=1 to k do begin for j:=1 to l do if ((i=imin)and(j=jmin))or((i=imax)and(j=jmax)) then {мин и макс подсвечиваем желтым} begin Textcolor(14); {желтый цвет текста} write(x[i,j]:4); end else begin Textcolor(0); {остальные по умолчанию} write(x[i,j]:4); end; writeln; end; readln end.

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

Вопрос № 155.782

Помогите написать следующие программы: 1. Определить, есть ли среди первых N цифр заданного целого числа цифра K. 2. Для заданного K, вычислить K-тую цифру последовательности 1 2 3 4 5 6 7 8 9 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 ...

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Stayer! Решение второй задачи в приложении. Добавил первую задачу. Можно было бы легко решить с помощью строк, но обычно требуют с числами и циклом. Если нужно через строку, напишите. Приложение: №1. uses crt; var ch:longint; n,k,i,m,l,t:byte; b:array[1..10]of byte;{массив цифр} begin clrscr; write('Vvedite chislo ch='); readln(ch); write('n=');readln(n); write('k=');readln(k); l:=0; while ch>0 do begin m:=ch mod 10;{отделяем по одной цифре с конца} l:=l+1; b[l]:=m; {записываем в массив снвчала} ch:=ch div 10; end; t:=0; for i:=l downto l-n+1 do {смотрим массив с конца последние n позиций} if b[i]=k then {если цифра есть} begin writeln('Chifra K est!');{сообщаем} t:=1; {фиксируем} break; {прекращаем поиск} end; if t=0 then writeln('Chifry K net!');{если нет совпадений} readln end. №2. {дано нат. K. напечатать К-ю цифру последовательности 12345678910111213..., в которой записаны подряд все натуральныe числa} uses crt; var i,j,k,n,o:integer; a,t:longint; begin clrscr; write('Введите k=');readln(k); t:=0;i:=0; repeat t:=t+1; j:=t; while j>0 do{считаем количество цифр в числе и добавляем к общему количеству} begin j:=j div 10; i:=i+1; end; until i>=k;{дошли до номера к} while i>=k do{возвращаемся по цифрам последнего числа до нужной} begin o:=t mod 10; t:=t div 10; i:=i-1; end; writeln('k-я цифра:',o); readln end.

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

Вопрос № 155.800

Здравствуйте! Помогите, пожалуйста решить задачу, по паскалю, циклы. Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа x (так, если x=32.597, то d=5). Заранее, большое спасибо!

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

Отвечает: Шевченко Дмитрий Здравствуйте, Kirrr! А обязательно данную задачу решать через циклы? Если нет, то предлагаю следующий вариант решения: d:=trunc(x*10) mod 10; Тогда если x = 32.597, то trunc(x*10) = 325. Т.е. умножит число на 10 (325.97) и отбросит дробную часть. А trunc(x*10) mod 10 = 5. (Mod - остаток от деления, а остаток от деления на 10 - это и есть последняя цифра целой части числа(но так как число было домножено на 10 - то это первая цифра дробной части)) С уважением, Дмитрий.

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

Отвечает: Andersen Здравствуйте, Kirrr! Решение задачи: ввод числа получение модуля отсекаем целую часть выделяем число d Приложение: program num; var d:integer; x:real; begin write('Vvedite N :'); readln(x); x:=abs(x); x:=x-trunc(x); d:=trunc(x*10); writeln('d=',d); readln; end.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Kirrr! Вариант с исползованием других функций. Удачи! Приложение: var a:real; d:integer; begin a:=32.597; d:=round(int(10*frac(a))); write('Result:',d:5); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 155.805

З Д Р А В С Т В У Й Т Е ! ! ! Задача на паскале... Ввести 3 числа, если они могут быть сторонами остроугольного треугольника - вывести их в порядке убывания. Вычислить площадь полученного треугольника. у меня никак не получается....

Отправлен: 25.12.2008, 22:28 Вопрос задал: Бородин Павел Николаевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: μalife Здравствуйте, Бородин Павел Николаевич! Вероятно, Вы не знаете про теоремы синусов и косинусов. Из теоремы синусов можно сделать вывод, что против наибольшей стороны лежит наибольший угол. Пусть наибольшая сторона - сторона c За теоремой косинусов имеем: c2=a2+b2-2ab*cos C. Отсюда имеем: cos C = ((a2+b2)-c2)/(2ab). Нам нужно, чтобы угол C выполнял условие: 0º<C<90º. А значит cos C может принимать значения от 0 до 1 (не включительно). © Цитата: μalife var a:array [1..3] of real; j,i:integer; t,cos3,p,s:real; begin {Вводим данные} write('1: '); readln(a[1]); write( 9;2: '); readln(a[2]); write('3: '); readln(a[3]); {Сортируем массив} for i:=1 to 2 do for j:=2 to 3 do if a[j]<a[i] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; {Проверяем, существует ли треугольник с заданными сторонами} if ((a[1]+a[2])>a[3]) then begin    {Начинаем вычислять косинус угла C}    t:=sqr(a[1])+sqr(a[2]);    cos3:=(sqr(a[3])-t)/(-2*a[1]*a[2]);    {Вычисляем площадь треугольника по формуле Герона}    p:=(a[1]+a[2]+a[3])/2;    s:=sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));    {Если треугольник остроугольный, то}    if (cos3<1) and (cos3>0) then begin       writeln('Стороны треугольника: ',a[3]:4:2,'; ',a[2]:4:2,'; ',a[1]:4:2);       writeln('Площадь треугольника: ', s:4:2);    end else writeln('Треугольник не остроугольный'); end else writeln('Треугольник не существует'); end. Удачи! --------- Я ничего не знаю. Я знаю только где можно найти ответы на мои вопросы.

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

Отвечает: Andersen Здравствуйте, Бородин Павел Николаевич! Вот решение вашей задачи 1.Пересортируем стороны теугольника в порядке убывания 2.Проверим условие остроугольности 3.строим перпендикуляр из угла bc к а. его высота d а расстояние от угла ab к ad есть переменная е. решаем систему b*b=d*d+e*e c*c=d*d+(a-e)*(a-e) d=b*b-e-e e=(a*a+b*b-c*c)/(2*a) S=d*a/2 (площадь) Приложение: program Treugolnik; var a,b,c,s,e,d:real; p:boolean; begin write('Vvedite dlinu storonu A :'); readln(a); write('Vvedite dlinu storonu B :'); readln(b); write('Vvedite dlinu storonu C :'); readln(c); if a<c then begin s:=a; a:=c; c:=s; end; if a<b then begin s:=a; a:=b; b:=s; end; if b<c then begin s:=b; b:=c; c:=s; end; p:=true; if (a*a)>=(b*b+c*c) then p:=false; if (b*b)>=(a*a+c*c) then p:=false; if (c*c)>=(b*b+a*a) then p:=false; if p then begin writeln('Trugolnik ostrougolnyj'); writeln('Dliny storon v porjadke ubyvania :'); writeln(a:10:5); writeln(b:10:5); writeln(c:10:5); e:=(b*b+a*a-c*c)/(2*a); d:=sqrt(b*b-e*e); s:=d*a/2; writeln('Ploshad treugolnika ',s:10:5); end else writeln('Trugolnik ne ostrougolnyj'); readln; end.

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

Вопрос № 155.860

здравствуйте,очень нужна помощь. 1,Программа в цикле спрашивает у пользователя полное имя файла, затем печатает на экране размер файла. Программа завершается, когда пользователь вводит пустое имя файла. Подсчет размера файла реализовать с помощью чтения файла построчно и суммирования длин строк. При реализации программы использовать процедуры и/или функции. 2)Дана строка символов, содержащая восклицательный знак. Есть ли среди символов, предшествующих первому восклицатель¬ному знаку, пара соседствующих одинаковых символов. заранее спасибо за вашу работу)

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Rnboy! Решение второй задачи в приложении. Приложение: uses crt; var s:string; i,k:integer; begin clrscr; repeat writeln('Vvedite stroku:'); readln(s); {проверим есть ли !} if pos('!',s)=0 then writeln('Povtorite vvod. Net simvola !'); until pos('!',s)>0; k:=0; for i:=2 to pos('!',s) do {до первого ! смотрим} if s[i]=s[i-1] then {если рядом одинаковые} begin writeln('Takaja para est! Eto ',s[i],s[i-1]); {выводим} readln; k:=1; {фиксируем} halt; {заканчиваем программу} end; if k=0 then writeln('Takoj pary net!'); {если нет, то нет} readln end.

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Rnboy! Первая задача в приложении. Удачи!!! Приложение: var {FileName - имя файла} FileName: string; {Функция возвращает размер файла} function GetSize(const FileName: string): integer; var {файловая переменаая} f: Text; {Строка} str: string; {размер} size: integer; begin {открываем файл} Assign(f, FileName); {обнуляем переменную} size := 0; {открываем для чтения} Reset(f); {Пока не конец файла} while not EOF(f) do begin {Читаем строку} ReadLn(f, str); {Прибавляем её длину и 2, т.к. строка оканцивается на символы переноса и обрыва строки, которые функция ReadLn не читает} size := size + Length(str) + 2; end; Close(f); {Так как в последняя строка не оканчивается обрывом и переносом, убираем 2} size := size - 2; GetSize := size; end; begin {Получаем в первый раз имя файла} Write('Имя файла: '); ReadLn(FileName); {Пока имя файле не пустое повторяем} while FileName <> '' do begin {Ответ} Writeln('Размер файла: ', GetSize(FileName), ' байт'); {Получаем имя файла} Write('Имя файла: '); ReadLn(FileName); end; end. --------- Нам не дано предугадать, как слово наше отзовется (C) Тютчев

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

Вопрос № 155.878

Дан массив A[1..N,1..N]. Составить программу, которая прибавила бы каждому элементу данной строки элемент, принадлежащий этой строке и главной диагонали.

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

Отвечает: Andersen Здравствуйте, Иванов Виктор Олегович! Решение. Приложение: program matr; var A:array [1..26,1..26] of real; n,i,j:integer; begin randomize; n:=random(20)+5; for i:=1 to N do for j:=1 to N do A[j,i]:=random(100); writeln('Ishodnaya matrica razmera ',N); for i:=1 to N do begin for j:=1 to N do write(A[j,i]:3:0); writeln; end; for i:=1 to N do for j:=1 to N do if i<>j then A[j,i]:=A[i,i]; writeln('Rezultat'); for i:=1 to N do begin for j:=1 to N do write(A[j,i]:3:0); writeln; end; readln; end.

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

Вопрос № 155.881

В двумерном массиве выбрать элементы, которые больше суммы элементов главной диагонали массива.

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Иванов Виктор Олегович! Код с комментариями в приложении. Удачи!!! Приложение: const {Кол-во строк и столбцов} N = 3; var {Наш массив} a: array [1..N, 1..N] of Integer; {i, j - счетчики для цикла For, sum - сумма элементов главной диагонали} i, j, sum: integer; begin {Заполняем массив случайными числами} randomize; WriteLn('Исходный масссив:'); for i := 1 to N do begin for j := 1 to N do begin a[i, j] := random(30) - 15; Write(a[i, j]:4); end; WriteLn; end; sum := 0; {Получаем сумму элементов главной дигонали} for i := 1 to N do sum := sum + a[i, i]; WriteLn('Сумма элементов главной диагонали: ', sum); Write('Элементы больше суммы элементов главной диагонали: '); {Перебираем массив, если элемент больше суммы, то выводим его} for i := 1 to N do for j := 1 to N do if a[i, j] > sum then Write(a[i, j], ' '); ReadLn; end. --------- Нам не дано предугадать, как слово наше отзовется (C) Тютчев

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

Вопрос № 155.884

Равносильны ли утверждения x mod 2=0 и int(x/2)=x/2?

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

Отвечает: Andersen Здравствуйте, Иванов Виктор Олегович! Эти утверждения равносильны если х целочисленный тип. если нет, то (х mod 2=0) выдаст ошибку, т.к. mod аботает только с целочисленными переменными.

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

Вопрос № 155.887

Вычислите значения выражений: 1) false<true; 2) ord(false)=1; 3) pred(true); 4) ord(succ(false))>0; 5) not(pred(c) or (ord(c)=1)) при c=true; 6) (p<true)=(q=false) при p=q=true; 7) a and b>a or b при a=false, b=true; 8) x<2 при x=1;

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

Отвечает: Andersen Здравствуйте, Иванов Виктор Олегович! ответы : true false false true false true false true Приложение: program test; var a,b,c,p,q:boolean;x:real; begin a:=false; b:=true; c:=true; p:=true; q:=true; x:=1; writeln(false<true); writeln(ord(false)=1); writeln(pred(true)); writeln(ord(succ(false))>0); writeln(not(pred(c) or (ord(c)=1))); writeln((p<true)=(q=false)); writeln(a and b>a or b); writeln(x<2); readln; end.

Ответ отправил: Andersen (статус: 6-й класс) Ответ отправлен: 26.12.2008, 16:43 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239739 на номер 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