Технический форум - Нужна помощь

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Нужна помощь (http://www.tehnari.ru/f41/t44231/)

jax	03.01.2011 19:31

Нужна помощь

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

Vladimir_S

03.01.2011 19:35

Цитата:

Сообщение от jax (Сообщение 438490)

Друг мой, Вы ведь, как я понял, собирались освоить программирование? Ну так вот и учитесь на таких сверхпростеньких задачках, пишите, пробуйте, а не вываливайте их не глядя на форум! А мы всегда готовы помочь, подсказать. Дерзайте!

jax	03.01.2011 20:19

Я бы с радостью решал такие задачи, но увы немогу,из за этого я и обратился на форум.у меня сейчас практика в колледже,а меня положили в больницу,компа нет,вот я и пишу на бумажках программы,но успех не очень.это для опытного программиста лёгкие задачи,а я только начинаю.спасибо что так добро ответели,а не послали куда подальше.

Vladimir_S

03.01.2011 21:10

Ну ладно, раз так - пожалуйста:

Код:

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.

jax	03.01.2011 23:04

Большое спасибо,вы выручили меня.

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