Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 03.01.2011, 19:31   #1 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужна помощь

нужно написать программу в PascaleABC,задание такое - даны 10 вещественных чисел: а1,а2...а10. а) определить сколько из них принимает значений,больше заданного числа b. б)найти порядковый номер того из них,которые наиболее близко к какому-нибудь целому числу.
jax вне форума   Ответить с цитированием

Старый 03.01.2011, 19:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме так же есть похожие темы, отправлю их вам

Нужна помощь по МК
Как согнуть лист?
Нужна помощь
Нужна помощь

Старый 03.01.2011, 19:35   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от jax Посмотреть сообщение
нужно написать программу в PascaleABC,задание такое - даны 10 вещественных чисел: а1,а2...а10. а) определить сколько из них принимает значений,больше заданного числа b. б)найти порядковый номер того из них,которые наиболее близко к какому-нибудь целому числу.
Друг мой, Вы ведь, как я понял, собирались освоить программирование? Ну так вот и учитесь на таких сверхпростеньких задачках, пишите, пробуйте, а не вываливайте их не глядя на форум! А мы всегда готовы помочь, подсказать. Дерзайте!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 03.01.2011, 20:19   #3 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Smile

Я бы с радостью решал такие задачи, но увы немогу,из за этого я и обратился на форум.у меня сейчас практика в колледже,а меня положили в больницу,компа нет,вот я и пишу на бумажках программы,но успех не очень.это для опытного программиста лёгкие задачи,а я только начинаю.спасибо что так добро ответели,а не послали куда подальше.
jax вне форума   Ответить с цитированием
Старый 03.01.2011, 21:10   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,359
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Ну ладно, раз так - пожалуйста:
Код:
VAR
 A:ARRAY[1..10] of Real;
 b,dif:Real;
 n,i_n,n_large:Byte;
 i:Integer;
BEGIN
 Randomize;
 For i:=1 to 10 do
  begin
   A[i]:=Random*100;
   Write(A[i]:7:3);
  end;
 WriteLn;
 Write('b= ');
 ReadLn(b);
 Write('n= ');
 ReadLn(n);
 n_large:=0;
 For i:=1 to 10 do
  if A[i]>b then n_large:=n_large+1;
 WriteLn('Number of elements larger then ',b:7:3,' is ',n_large);
 dif:=100;
 For i:=1 to 10 do
  if Abs(A[i]-1.0*n)<dif then
   begin
    dif:=Abs(A[i]-1.0*n);
    i_n:=i;
   end;
 WriteLn('Close to ',n,' is the element number ',i_n);
 ReadLn;
END.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 03.01.2011, 23:04   #5 (permalink)
jax
Технарёнок
 
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Большое спасибо,вы выручили меня.
jax вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.