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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Октябрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

Лучшие эксперты данной рассылки

lamed
Статус: Профессор
Рейтинг: 3196
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2521
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Профессор
Рейтинг: 2517
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1135
Дата выхода:29.10.2010, 00:00
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:190 / 184
Вопросов / ответов:3 / 4

Вопрос № 180419: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачу: Создать случайным образом одномерный массив целых чисел Вывести на экран номера всех элементов, которые не делятся на 7. (пользуюсь программой ABC) ...

Вопрос № 180420: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачу: Написать рекурсивную программу, печатающую старшую цифру в десятичной записи введенного натурального числа. (пользуюсь программой ABC) ...
Вопрос № 180421: Здравствуйте, уважаемые эксперты! Помогите, пожалуйста, решить задачу: Определить минимум среди сумм элементов диагоналей, параллельных главной диагонали квадратного массива. (пользуюсь программой ABC) ...
Вопрос № 180419:

Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста, решить задачу:

Создать случайным образом одномерный массив целых чисел
Вывести на экран номера всех элементов, которые не делятся на 7.

(пользуюсь программой ABC)

Отправлен: 23.10.2010, 00:49
Вопрос задал: verona (2-й класс)
Всего ответов: 1
Страница вопроса »

Отвечает tatyana (2-й класс) :
Здравствуйте, verona!

Поскольку не оговорено заранее, пусть у нас будет массив из 20 чисел, числа - от 10 до 100

Код:
program massiv; 
Uses Crt;
var  
  a:array[0..19] of integer;
  i: integer;
begin

   clrscr; { очищаем экран }
    randomize; { запускаем генератор случайных чисел }
    { формируем массив }
    for i:=0 to 19 do
    begin
       a[i]:=10+random(90);
       if (a[i] mod 7) > 0 then { проверяем остаток от деления на 7 }
          write(i:3);
    end;
end.
1. Введён тег "код" для улучшения чтения кода программы.
2. Исправлена ошибка вывода на экран в соответствии с заданием.
3. Изменена размерность массива в соответствии с заявленной (20 чисел, а не 21).
4. Исправлен синтаксис очистки экрана.
-----
∙ Отредактировал: sir Henry (Старший модератор)
∙ Дата редактирования: 25.10.2010, 03:48 (время московское)

Ответ отправил: tatyana (2-й класс)
Ответ отправлен: 23.10.2010, 01:57
Номер ответа: 263626

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

    • Вопрос № 180420:

    Здравствуйте, уважаемые эксперты!

    Помогите, пожалуйста, решить задачу:
    Написать рекурсивную программу, печатающую старшую цифру в десятичной записи введенного натурального числа.

    (пользуюсь программой ABC)

    Отправлен: 23.10.2010, 01:13
    Вопрос задал: verona (2-й класс)
    Всего ответов: 1
    Страница вопроса »

    Отвечает Гаряка Асмик (Профессионал) :
    Здравствуйте, verona!

    Например, можно написать так:

    Код:
    function highdigit(n:integer):integer;
    var m:integer;
    begin
      if(n>=10) then
      begin
        m:=n div 10;
        highdigit:=highdigit(m);
    
 end 
      else 
        highdigit:=n;
    end;
    Введён тег "код" для улучшения чтения программного кода.
    -----
    ∙ Отредактировал: sir Henry (Старший модератор)
    ∙ Дата редактирования: 25.10.2010, 03:39 (время московское)

    -----
    Я ни от чего, ни от кого не завишу.

    Ответ отправил: Гаряка Асмик (Профессионал)
    Ответ отправлен: 23.10.2010, 01:54
    Номер ответа: 263625

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

    • Вопрос № 180421:

    Здравствуйте, уважаемые эксперты!
    Помогите, пожалуйста, решить задачу:

    Определить минимум среди сумм элементов диагоналей, параллельных главной диагонали квадратного массива.

    (пользуюсь программой ABC)

    Отправлен: 23.10.2010, 08:01
    Вопрос задал: verona (2-й класс)
    Всего ответов: 2
    Страница вопроса »

    Отвечает Пупорев Юрий Борисович (Профессионал) :
    Здравствуйте, verona!
    Код программы в приложении.
    Выполнено в Паскаль АВС.

    Приложение:

    Ответ отправил: Пупорев Юрий Борисович (Профессионал)
    Ответ отправлен: 23.10.2010, 08:49
    Номер ответа: 263628

    Оценка ответа: 5

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

    • Отвечает tatyana (2-й класс) :
    Здравствуйте, verona!
    Последовательность действий:
    Вычисляем суммы диагоналей выше главной и ниже главной диагонали (функции SummaAbove и SummaBelow).
    Заносим их в одномерный массив.
    Находим минимум (MinDiag).
    Редактирование ответа - замена кода по просьбе автора
    -----
    ∙ Отредактировал: Victor Pyrlik (Модератор)
    ∙ Дата редактирования: 23.10.2010, 15:42 (время московское)

    Приложение:

    Ответ отправил: tatyana (2-й класс)
    Ответ отправлен: 23.10.2010, 14:23
    Номер ответа: 263635

    Оценка ответа: 5

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

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

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

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

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

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

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

    © 2001-2010, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.22 от 18.10.2010
    В избранное