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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Апрель 2012   →
 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


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


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

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

Статистика

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

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


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

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

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

Асмик Гаряка
Статус: Академик
Рейтинг: 10309
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 7133
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 5959
∙ повысить рейтинг »

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

Номер выпуска:1233
Дата выхода:05.04.2012, 02:30
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:92 / 108
Вопросов / ответов:1 / 3

Консультация # 185731: Здравствуйте! У меня возникли сложности с таким вопросом: Составте программу используя оператор цикла с параметром Задание: Задана последовательность из n вещественных чисел. Опредилить количество элементов последовательности, попадающих в заданный интервал [a, b]. Написать программу на языке Object Pascal. Выполнить программу...

Консультация # 185731:

Здравствуйте! У меня возникли сложности с таким вопросом:
Составте программу используя оператор цикла с параметром
Задание: Задана последовательность из n вещественных чисел.
Опредилить количество элементов последовательности,
попадающих в заданный интервал [a, b].
Написать программу на языке Object Pascal.
Выполнить программу в среде программирования Turbo Pascal, Free Pascal или консольном приложении Delphi.
Проверить результаты работы программы.
Исходный код программы сохранить в файл (с расширением .pas).

Дата отправки: 01.04.2012, 21:18
Вопрос задал: Посетитель - 383833 (Посетитель)
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Роман Селиверстов (Советник):

Здравствуйте, Посетитель - 383833!
program a;
const n=10; {любое другое}
var a,b:real; i,k:integer; m:array[1..n] of real;
begin
for i:=1 to n do readln(m[i]);
readln(a);
readln(b);
k:=0;
for i:=1 to n do begin if ((m[i]>=a) and (m[i]<=b)) then k:=k+1; end;
writeln(k);
end.

Консультировал: Роман Селиверстов (Советник)
Дата отправки: 01.04.2012, 23:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует lamed (Академик):

Здравствуйте, Посетитель - 383833! Программа выполнена и проверена на PascalABC.Net.

Код :
program numbers;
{ Составьте программу используя оператор цикла с параметром
Задание: Задана последовательность из n вещественных чисел.
Опредилить количество элементов последовательности,
попадающих в заданный интервал [a, b].
Написать программу на языке Object Pascal.
Выполнить программу в среде программирования Turbo Pascal, Free Pascal или консольном приложении Delphi.
Проверить результаты работы программы.
Исходный код программы сохранить в файл (с расширением .pas). }
var
  n: integer; { общее количество элементов последовательности }
  x: real;    { элемент }
  i: integer; { счетчик цикла }
  a,b: real;  { границы интервала }
  k: integer; { количество элементов последовательности, попадающих в интервал [a,b] }
begin
  write('a=');
  readln(a);
  
  write('b=');
  readln(b);

  write('n=');
  readln(n);
  
  k:= 0; { вначале нет элементов в заданном интервале }
  for i:= 1 to n do
    begin
      write('x[',i,']=');
      readln(x); { Прочитали очередное число }
      if (x>=a) and (x<=b) then { Если оно попадает в интервал }
        k:= k+1;
    end;
  writeln('k=', k);
  readln;
end.

Пример выполнения
Код :
a=1
b=2
n=3
x[1]=1.5
x[2]=0.7
x[3]=-5
k=1

Если требуются пояснения, задавайте вопросы в мини-форуме. Удачи!

Консультировал: lamed (Академик)
Дата отправки: 02.04.2012, 09:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Крупский Александр Александрович (1-й класс):

Здравствуйте, Посетитель - 383833!
Я не использовал массив, потому что Вы его явно не указывали. Написано на Борланде паскаль

uses crt;
var i,n,a,b,kol:integer;
begin

clrscr;
write('Vvedite kol-vo el-tov massiva: ');
read(n);

write('Vvedite nachalo diapozona uchastka: ');
read(a);

write('Vvedite konec diapozona uchastka: ');
read(b);

kol := 0;
for i:=1 to n do
begin
if ((i>=a) and (i<=b)) then kol := kol+1
end;

write('kolichestvo elementov => ');
writeln(kol);

readkey;
end.

Приложение:

Консультировал: Крупский Александр Александрович (1-й класс)
Дата отправки: 02.04.2012, 09:47
Рейтинг ответа:

НЕ одобряю -1 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

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