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

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

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

Полтев Станислав Михайлович Статус: Практикант Рейтинг: 284 ∙ повысить рейтинг >>

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

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

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

Выпуск № 723
от 11.11.2008, 05:35

Вопрос № 149508: Помогите пожалуйста. Как бы элементарная задача, но все же. Дана вот такая задача без разъяснения. Min(a,max(c,d,a),b³) , где a,b – вещественные; c,d - целые Как я поняла вначале вычисляется макисмум от с, d,a и потом м...

Вопрос № 149.508

Помогите пожалуйста. Как бы элементарная задача, но все же. Дана вот такая задача без разъяснения. Min(a,max(c,d,a),b3) , где a,b – вещественные; c,d - целые Как я поняла вначале вычисляется макисмум от с, d,a и потом минимум из а, b3,потом также из выражения вычисленное по максимуму. Можно это показать в виде кода? Помогите.

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

Отвечает: Шичко Игорь Здравствуйте, Kuvan2008! Мне кажется, мысль правильная. Примерный код в приложении. Приложение: var a, b, max, min: real; c, d: integer; begin readln(a); readln(b); readln(c); readln(d); {находим максимум из a, c, d} max:= a; if c > max then max:= c; if d > max then max:= d; {находим b^3} b:= b*b*b; {находим минимум из a, max, b^3} min:= a; if max < min then min:= max; if b < min then min:= b; writeln(min:10:2); readln; end.

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

Вопрос № 149.510

Здравствуйте, еще раз. Вот есть еще одна задачка. Тоже как бы не такая сложная (я так думаю). Помогите составить код. Вычислить значение выражения F=A+B. А = ∑(k-2). Над значком ∑ цифра 15, а под значком ∑ записано k=2 B= ∏ (k2 +2). Над значком ∏ цифра 10, а под значком ∏ k=3

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

Отвечает: Шичко Игорь Здравствуйте, Kuvan2008! A - сумма при изменении k от 2 до 15 В - произведение при изменении k от 3 до 10 Примерный код в приложении. Приложение: var k, a: integer; b, summ: real; begin a:=0; b:=1; {вычисление суммы} for k:= 2 to 15 do a:= a + (k-2); {вычисление произведения} for k:= 3 to 4 do b:= b * (sqr(k)+2); summ:= a + b; writeln(summ:10:2); readln; end.

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

Вопрос № 149.511

Даны действительное число а, натуральное число n. Вычислить:а(а + 1)...(a + n - 1); Приложение: Выполнить в Pascal, с помощью цикла

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

Отвечает: Шичко Игорь Здравствуйте, Николаев Дима Игоревич! Примерный код в приложении. Приложение: var a, rez: real; n, i: integer; begin writeln('Введите а:'); readln(a); writeln('Введите n: (>2)'); readln(n); rez:= a; {вычисление произведения} for i:= 1 to n-1 do rez:= rez * (a+i); writeln(rez:10:2); readln; end.

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

Вопрос № 149.512

Даны натуральные числа n, m. Получить сумму m последних цифр числа n. Приложение: Выполнить в Pascal, с помощью цикла

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

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Николаев Дима Игоревич! Код с комментариями: Код: var {n, m - числа m и n, sum - сумма, i-счетчик для цикла} n, m, sum, i: integer; begin {Получаем данные} Write('N: '); ReadLn(n); Write('M: '); ReadLn(m); {Обнуляем сумму} sum := 0; {m раз повторяем тело цикла} for i := 1 to m do begin {Прибавляем к сумме остаток деления числа на 10} sum := sum + (n mod 10); {Сохраняем n без последнего числа} n := n div 10; end; WriteLn(sum); ReadLn; end. Удачи!!!

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

Вопрос № 149.514

Дано натуральное число n. Вычислить: сумму 1/k в 5 степени, при k=1 до n Приложение: Выполнить в Pascal, с помощью цикла

Отправлен: 05.11.2008, 08:40 Вопрос задал: Николаев Денис Игоревич Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Николаев Денис Игоревич! Предлагаю следующий вариант решения. Код в приложении. Приложение: var k, n, i, temp: integer; summ: real; begin summ:= 0; readln(n); for k:= 1 to n do begin temp:= 1; {вычисление k в степени 5} for i:= 1 to 5 do temp:= temp*k; summ:= summ + 1 / temp; end; {вывод суммы} writeln(summ:10:2); readln; end.

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

Вопрос № 149.515

Вычислить 1-1/2+1/3-...+1/9999-1/10000 следующими способами: последовательно с права на лево; Приложение: Выполнить в Pascal, с помощью цикла

Отправлен: 05.11.2008, 08:43 Вопрос задал: Николаев Денис Игоревич Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, ! Если выполнить последовательно справа налево, то нужен перебор по убыванию. При четных числах в знаменателе домножаем на (-1) и суммируем. Примерный код в приложении. Приложение: var i, temp: integer; summ: real; begin summ:= 0; for i:= 10000 downto 1 do begin if Odd(i) then temp:= i {если нечетное} else temp:= (-1) * i; {если четное} summ:= summ + 1 / temp; end; writeln(summ:10:2); readln; end.

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

Вопрос № 149.516

Даны натуральное число n, действительные числа a1,..., an. Вычислить: -a1/1!+a2/2!-...+(-1) в степени n * an/n! Приложение: решить в Pascal с помощью циклов

Отправлен: 05.11.2008, 08:47 Вопрос задал: Николаев Денис Игоревич Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Николаев Денис Игоревич! Решение в приложении. Приложение: uses crt; const n=10; {количество чисел} var a:array[1..n] of real; sum,t:real; i:integer; p:longint; {переменная для вычисления знаменателя(факториала)} begin clrscr; randomize; for i:=1 to n do begin a[i]:=random(10)+random; write(a[i]:5:2); end; writeln; sum:=0;p:=1; {в начале сумма=0, знаменатель=1} for i:=1 to n do begin p:=p*i; {считаем знаменатель} t:=a[i]/p; {считаем очередное слагаемое} if i mod 2<>0 then sum:=sum-t {если номер нечетный, вычитаем} else sum:=sum+t; {четный, прибавляем} end; write('Summa=',sum:0:2); readln end.

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

Вопрос № 149.540

Добрый день!Помогите пожалуйста с задачами. Дан двумерный массив размером 5 на 6, заполненный случайным образом: 1.Вставить после столбца,содержащего максимальный элемент,столбец,содержащий 0. 2.Удалить среднюю строку массива.

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

Отвечает: Шичко Игорь Здравствуйте, Evela! Предлагаю Вам следующий вариант кода. (В приложении) Думаю, там все понятно Приложение: var mas, mas_1: array[1..5, 1..6] of integer; mas_2: array[1..4, 1..6] of integer; i, j, i_real, max, kol: integer; begin writeln('Massiv _ 1'); for i:= 1 to 5 do begin for j:=1 to 6 do begin if Odd(i + j) then mas[i,j]:= Random(50) else mas[i,j]:= Random(100) * (-1); write(mas[i,j]:10); end; writeln; end; max:= mas[1,1]; kol:= 1; for i:=1 to 5 do for j:=1 to 6 do if mas[i,j] > max then begin max:= mas[i,j]; kol:= j; end; writeln('Max =', max:10); writeln; for i:=1 to 5 do for j:=1 to 6 do mas_1[i, j]:= mas[i,j]; writeln('Massiv_2'); if kol < 6 then begin for i:=1 to 5 do mas_1[i, kol+1]:= 0; for i:= 1 to 5 do begin for j:=1 to 6 do write(mas_1[i,j]:10); writeln; end; end else writeln('Stolb = ', kol, ' is Last'); {если столбец последний, то ничего не меняем и не выводим, массив остается исходным} for i:= 1 to 5 do for j:=1 to 6 do begin if i > 3 then i_real:= i-1 else i_real:= i; mas_2[i_real, j]:= mas[i,j]; end; writeln('Massiv_3'); for i:= 1 to 4 do begin for j:=1 to 6 do write(mas_2[i,j]:10); writeln; end; readln; end.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Evela! Программа в приложении, выполняет обе задачи последовательно. Удачи! Приложение: const n=5; m=6; var a,b,c,d:integer; z:array[1..n,1..(m+1)]of integer; begin {создаем матрицу} c:=1; d:=1; randomize; for a:=1 to n do begin for b:=1 to m do begin {создаем и выводим} z[a,b]:=random(50); write(z[a,b]:4); {ищем максимальный элемент} if z[a,b]>z[c,d] then begin c:=a; d:=b; end; end; writeln; end; {выводим результат поиска} writeln(chr(13),chr(10),'I:',chr(13),chr(10),'maximum z[',c,',',d,']:=',z[c,d],chr(13),chr(10)); {подстановка столбца} for a:=1 to n do begin for b:=m+1 downto d+1 do z[a,b]:=z[a,b-1]; z[a,d+1]:=0; end; {вывод результата} for a:=1 to n do begin for b:=1 to m+1 do write(z[a,b]:4); writeln; end; readln; writeln(chr(13),chr(10),'II:',chr(13),chr(10)); {удаление строки} for a:=((n div 2)+(n mod 2)) to n-1 do for b:=1 to m do z[a,b]:=z[a+1,b]; {вывод результата} for a:=1 to n-1 do begin for b:=1 to m do write(z[a,b]:4); writeln; end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 149.545

Даны натуральное число n, действительные числа a1, ... , an Вычислить: a1 - a2 + a3 - ... + (-1) n+1 an

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

Отвечает: Шичко Игорь Здравствуйте, Иванов Виктор Олегович! Предлагаю следующий код. Четные умножаем на (-1). Код в приложении. Приложение: var a: array[1..100] of real; n, i: integer; summ: real; begin readln(n); if (n < 2) or (n > 100) then begin writeln('Введите: 1 < n < 101'); readln; exit; end; for i:= 1 to n do a[i]:= random(100); summ:= 0; for i:= 1 to n do begin if Odd(i) then summ:= summ + a[i] else summ:= summ + a[i] * (-1); end; writeln(summ:10:2); readln; end.

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

Вопрос № 149.547

Дано натуральное число n. Получить последовательность b1 ... bn где при i = 1, 2, ... , n значение bi равно : 1 + 1/2 + ... + 1/i

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! Программа в приложении. Последовательность формируется на экране. Удачи! Приложение: var b:real; i,n:integer; begin {вводим натуральное число} repeat write('Enter N:'); readln(n); until n>0; {в цикле считаем элементы последовательности} b:=0; for i:=1 to n do begin {считаем очередной элемент последовательности} b:=b+1/i; {выводим его на экран} writeln('B',i,':=',b); end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 149.552

Даны натуральное число n, действительные числа a, b (a ≠ b). Получить r0, r1, ... , rn где ri=a + ih, h = (b - a)/n

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор Олегович! Программа в приложении. Удачи! Приложение: var a,b:real; i,n:integer; begin {вводим натуральное число с контролем} repeat write('Enter N:'); readln(n); until n>0; {вводим действительное число} write('Enter A:'); readln(a); {вводим второе действительное число с контролем} repeat write('Enter B:'); readln(b); until a<>b; {все считаем в цикле} for i:=0 to n do begin {выводим на экран очередной элемент пследовательности} writeln('R',i,':=',a+i*(b-a)/n); end; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Вопрос № 149.592

Дано 3 ряда S1, S2, S3 .Заминить в ряде S1 последнее вхождение ряда S2 на S3

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Шпак Олександр Олександрович! Решение задачи с пояснениями в приложении. Приложение: uses crt; var s1,s2,s3:string; i,k:integer; begin clrscr; write('s1: ');readln(s1);{основная строка} write('s2: ');readln(s2); {подстрока, которую заменить} write('s3: ');readln(s3); {на которую заменить} k:=0; {предположим, что нужной подстроки нет} for i:=length(s1)downto 1 do {идем с конца строки} if (s1[i]=s2[1]) and (copy(s1,i,length(s2))=s2)then{ищем совпадение первого символа искомой подстроки с символом основной строки, если находим, проверяем, совпадают ли все следующие символы} begin delete(s1,i,length(s2));{если да, удаляем подстроку} insert(s3,s1,i); {вставляем на это место новую} k:=1; {нужная подстрока есть!} writeln(s1);{выводим измененную строку} break; {прекращаем дальнейший поиск} end; if k=0 then writeln('Takoj podstroki net!');{если не нашли, сообщаем} readln end.

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

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