VPF::[Pascal -> C] Поиск по масиву - Форум программистов

kasir

Дата 20.6.2007, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.10.2006

Репутация: нет
Всего: нет

Даны натуральное число n, действительные числа a1,...,an
А) Верно ли что отрицательных членов в последовательности а1,...,ан
больше чем положительных?
Б) Верно ли что наибольший член последовательности а1,...,ан по модулю
больше единицы?

Код

const
  K=10;  {число членов в последовательности}
var
  A: array[1..K] of real;
  N: integer;   {число отрицательных членов}
  P: integer;   {число положительных членов}
  I: integer;
  Max: real;    {максимальное по модулю значение члена последовательности}
begin
  for i:=1 to K do
    begin
      Write('Введите ',I,'-й член последовательности A[',I,']= ');
      ReadLn(A[I]);
    end;
  N:=0;
  P:=0;
  for I:=1 to K do
    if A[I]<>0 then
      if A[I]>0 then P:=P+1
                else N:=N+1;
  WriteLn('Число положительных членов в последовательности = ',P);
  WriteLn('Число отрицательных членов в последовательности  =',N);
  if N>P then WriteLn('Отрицательных членов больше, чем положительных')
         else WriteLn('Отрицательных членов не больше, чем положительных');
  Max:=0;
  for I:=1 to K do
    if abs(A[I])>max then Max:=Abs(A[I]);
  if Max>1 then WriteLn('Максимальное по модулю значение больше единицы')
           else writeln('Максимальное по модулю значение не больше единицы');
  ReadLn;
end.

Помогите сделать чтоб был выбор вводить из файла или вручную, и переделать затем это все под си.

Guedda

Дата 20.6.2007, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

M
Guedda

Модератор: Внимательно правила читаешь? Перевод из одного языка программирования в другой пишется [Pascal->C]!!!
Заголовок исправил. В следующий раз буду выносить предупреждения!

--------------------

Ll 2

Rodman

Дата 20.6.2007, 15:53 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


#include <conio.h>
#include <stdio.h>
#include <math.h>
#define K 10

int main(int argc, char* argv[])
{
        float a[K];
        float maxi;
        int n,p,i;
        for(i=0;i<K;i++)
        {
                printf("Enter %i member ", i);
                scanf("%f", &a[i]);
        }
        n=p=0;
        for(i=0;i<K;i++)
                if(a[i]!=0)
                        if(a[i]>0)
                                p+=1;
                        else
                                n+=1;
        printf("Count + = %i",p);
        printf("Count -  = %i",n);
        if (n>p)
                printf("- > +");
        else
                printf("- <= +");
        maxi=0;
        for(i=0;i<K;i++)
                if (abs(a[i])>maxi)
                        maxi=abs(a[i]);
        if (maxi>1)
                printf("abs (Max) > 1");
        else
                printf("abs(Max) <=1");
        getch();
        return 0;
}

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

kasir

Дата 20.6.2007, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.10.2006

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »