23.01.2018, 10:33 [+3 UTC]
в нашей команде: 2 493 чел. | участники онлайн: 9 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.42 (30.12.2017)

Общие новости:
02.01.2018, 09:46

Форум:
12.01.2018, 10:25

Последний вопрос:
22.01.2018, 21:44

Последний ответ:
22.01.2018, 23:40

Последняя рассылка:
23.01.2018, 08:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
21.11.2010, 20:02 »
Lion
Ответ отличный, подробный и с последовательным изложением законодательства. Хотя я с ним не согласен. Разве право устанавливать гарантии деятельности, это то же самое, что ограничивать полномочия депутата - устанавливать объём этих полномочий? Субъект обязан установить гарантии деятельности, то есть в законе субъекта предусмотреть право депутата на обращение с запросом, и обязанность должностных лиц предоставить информацию по запросу в установленном порядке, и в установленные сроки. Устанавливать же крит...
01.08.2010, 20:11 »
Dimon4ik
Спасибо. Драйвер удалось откатить на старый. Тот действительно был не рабочий. DirectX установил с диска с игрой. Но там видимо не та версия. Сейчас качаю DirectX 9.0с - 104 МБ. Установлю и посмотрим. Спасибо за ответ. smile [вопрос № 179640, ответ № 262710]
25.12.2010, 22:40 »
Дмитрий Олегович
Отличный ответ, четкий и оперативный. Огромное спасибо! [вопрос № 181606, ответ № 265074]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 362
Вадим Исаев ака sir Henry
Статус: Старший модератор
Рейтинг: 58
Евгений/Genia007/
Статус: Профессионал
Рейтинг: 21

Перейти к консультации №:
 

Консультация онлайн # 190553
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: nikita9581 (Посетитель)
Отправлена: 09.02.2017, 23:14
Поступило ответов: 1

Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу на паскале:

-----
 Прикрепленный файл (кликните по картинке для увеличения):

Состояние: Консультация закрыта

Здравствуйте, nikita9581!

Код (Pascal) :: выделить код
var
  a,h,t:array[1..10]of real;
  i,y,k,m:integer;
begin
  writeln('A:');
  for i:=1 to 10 do
    begin
      a[i]:=0.7*sin(i)/cos(i)/i;
      writeln('a[',i:2,']:=',a[i]:10:7);
    end;
  m:=1;
  for i:=2 to 10 do
    if a[m]>a[i] then m:=i;
  writeln('min a[',m:2,']:=',a[m]:10:7);
  writeln('H:');
  i:=1;
  while i<m do
    begin
      h[i]:=a[i];
      writeln('h[',i:2,']:=',h[i]:10:7);
      inc(i);
    end;
  writeln('T:');
  i:=1;
  while(i+m)<=10 do
    begin
      t[i]:=a[m+i];
      writeln('t[',i:2,']:=',t[i]:10:7);
      inc(i);
    end;
end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 10.02.2017, 19:55

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.12967 сек.

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.42 от 30.12.2017