Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2017, 15:46   #1
Totoldamag
Новичок
Джуниор
 
Регистрация: 15.12.2017
Сообщений: 7
По умолчанию Модификация одномерных массивов - Pascal ABC

Составить блок – схему и разработать алгоритм решения следующих задач:

Ввести одномерный массив A из N элементов. Каждый элемент в массиве чьѐ значение лежит в диапазоне [–1;10] умножить на 5. Массив вывести до и после преобразования.

Нашел код программы на С++. Может кто преобразовать на Pascal ABC

Код:
#include <math.h>
#include <iostream.h>
int main ()
{
    float A[100],N,x;
    int i;
        cout<<"CHISLO YACHEEK MASSIVA=";
        cin>>N;
    for (i=0;i<N;i++)
    {
        cout<<"A["<<i<<"]=";
        cin>>A[i];
    }
    for (int i=0;i<N;i++)
    {
        cout<<"old A["<<i<<"]="<<A[i]<<endl;
    }
        for (i=0;i<N;i++)
        if ((A[i]>=(-1))&&(A[i]<=10))
    {
        x=A[i];
        A[i]=5*x;
        cout<<"new A["<<i<<"]="<<A[i]<<endl;
    }else
    cout<<"new A["<<i<<"] Ne prinadlezhit diapozonu"<<endl;
  system ("pause");
    for (int i=0;i<N;i++)
    {
        cout<<"A["<<i<<"]="<<A[i]<<endl;
    }
 
}
Totoldamag вне форума Ответить с цитированием
Старый 15.12.2017, 15:59   #2
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от Totoldamag Посмотреть сообщение
Может кто преобразовать на Pascal ABC
Ребята из раздела "Фриланс" и не такое могут, если им денег дать
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 15.12.2017, 16:26   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Зачем преобразовывать, если задача пишется на коленке за 10 минут?
p51x на форуме Ответить с цитированием
Старый 15.12.2017, 17:30   #4
Romeshek
Пользователь
 
Регистрация: 29.09.2017
Сообщений: 33
По умолчанию

Код:
var a:array [1..10] of integer;
i:integer;
begin
randomize;
write('исходный массив:');
writeln;
for i:=1 to 10 do begin 
a[i]:=random(11)-1; 
write(a[i],' ');
end;
begin
randomize;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do begin 
a[i]:=random(11)-1; 
write(a[i]*5,' ');
end;
end;
end.
Я бы это так сделал

Последний раз редактировалось Romeshek; 15.12.2017 в 17:40.
Romeshek вне форума Ответить с цитированием
Старый 15.12.2017, 17:55   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Romeshek Посмотреть сообщение
Я бы это так сделал
это неправильно.

подумайте, зачем Вы ДВАЖДЫ заполняете один и тот же массив и где проверка на то, что "чьѐ значение лежит в диапазоне [–1;10]"

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Модификация двумерных массивов - Pascal ABC Totoldamag Паскаль, Turbo Pascal, PascalABC.NET 1 17.12.2017 08:00
Pascal ABC . Циклические перестановки в одномерных массивах lonis Помощь студентам 2 18.07.2015 17:47
обработка одномерных массивов (вставка, удаление и перестановка элементов) Pascal ABC Кеворк Помощь студентам 0 27.12.2011 18:16
Pascal - обработка одномерных массивов Russtein Помощь студентам 0 10.11.2011 18:29