Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


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

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

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

Тимошенко Дмитрий
Статус: Студент
Рейтинг: 127
∙ повысить рейтинг >>
Botsman
Статус: Практикант
Рейтинг: 100
∙ повысить рейтинг >>
Micren
Статус: Практикант
Рейтинг: 50
∙ повысить рейтинг >>

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

Выпуск № 885
от 19.05.2009, 07:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 267, Экспертов: 47
В номере:Вопросов: 2, Ответов: 3

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 167180: Дан массив А из N целых чисел. Упорядочить его по возрастанию значений, используя метод простого перебора....


Вопрос № 167182: Здравствуйте Уважаемые! Помогите пожалуйста решить несколько задач написанные на Pascal! Заранее благодарю! 1. В массиве M[N] записаны оклады работников предприятия. Вывести на экран средний оклад по предприятию и номера тех работников , чьи о...

Вопрос № 167.180
Дан массив А из N целых чисел. Упорядочить его по возрастанию значений, используя метод простого перебора.
Отправлен: 13.05.2009, 14:23
Вопрос задал: Jaysi (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Foxbox
Здравствуйте, Jaysi!
А в свисток дунуть? Здесь Вам кто-то что-то должен? Где вежливость и культура общения?

Приложение:

Ответ отправил: Foxbox (статус: 3-й класс)
Ответ отправлен: 13.05.2009, 14:35

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249102 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Вопрос № 167.182
    Здравствуйте Уважаемые! Помогите пожалуйста решить несколько задач написанные на Pascal! Заранее благодарю!

    1. В массиве M[N] записаны оклады работников предприятия. Вывести на экран средний оклад по предприятию и номера тех работников , чьи оклады ниже среднего.
    2. Дан массив из N целых чисел. Определить максимальную сумму двух его соседних элементов.
    Пример: 2 3 4 1 2 8 -5 4 -> 10
    3. Дана матрица А размерности 5х5. Определить номер ее строки с наибольшей суммой элементов, вывести этот номер, а также значение наибольшей суммы.
    4. Дана непустая строка S и целое число N>0. Вывести строку, содержащую символы строки S, между которыми вставлено по N символов "звездочка" (*)
    5. Описать процедуру Smooth(X,N), выполняющую сглаживание вещественного массива Х размера N следующим образом: элемент Хк заменяется на его среднее арифметическое с соседними элементами (при нахождение среднего арифметического используются исходные значения соседних элем ентов). Массив Х является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива Х размера N, выводя результаты каждого сглаживания.
    Отправлен: 13.05.2009, 14:59
    Вопрос задал: Jaysi (статус: Посетитель)
    Всего ответов: 2
    Мини-форум вопроса >>> (сообщений: 0)

    Отвечает: Бизин Михаил Анатольевич
    Здравствуйте, Jaysi!
    Вот, первая и вторая задача.

    Приложение:

    Ответ отправил: Бизин Михаил Анатольевич (статус: 7-й класс)
    Ответ отправлен: 13.05.2009, 20:57

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249126 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Отвечает: Тимошенко Дмитрий
    Здравствуйте, Jaysi!

    Третья задача
    Код:
    program zadacha3;
    uses crt;
    var A: array [1..5,1..5] of integer; { Матрица }
    MaxSum,tmp,nomer,i,j: integer; { максимальная сумма,текущая сумма,
    номер строки,счетчики }
    begin
    clrscr;
    { Заполняем матрицу случайными числами и выводим на экран }
    randomize;
    for i:=1 to 5 do begin
    for j:=1 to 5 do begin
    A[i,j]:=random(100);
    write(A[i,j]:4);
    end;
    writeln;
    end;
    { Находим максимальную сумму среди строк }
    MaxSum:=0;
    for i:=1 to 5 do begin
    tmp:=0;
    for j:=1 to 5 do tmp:=tmp+A[i,j];
    if tmp>MaxSum then begin
    MaxSum:=tmp;
    nomer:=i;
    end;
    end;
    { Выводим на экран }
    writeln('Сумма элементов максимальна в строке ',nomer,' и равна ',MaxSum);
    readln;
    end.


    Четвертая задача
    Код:
    program zadanie4;
    var S: string;
    n,i,j: word;
    begin
    { Ввод исходных данных }
    write('Введите строку ');
    readln(S);
    write('Введите N:');
    readln(N);
    { Вывод строки }
    for i:=1 to length(S)-1 do begin
    write(S[i]);
    for j:=1 to N do write('*');
    end;
    { Последний символ }
    writeln(S[length(S)]);
    readln;
    end.


    А по пятой задаче непонятно как быть с крайними элементами, т.е. для 1-го и последнего элемента, с какими элементами искать среднее, или и х вообще не менять? И еще: N - фиксировано, или задается интерактивно?
    Вопросы и ответы в мини-форум.
    Ответ отправил: Тимошенко Дмитрий (статус: Студент)
    Ответ отправлен: 14.05.2009, 19:28

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 249190 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!

    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


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

    ∙ Версия системы: 5.13 от 01.12.2008

    Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru

    В избранное