Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 7
1

Вместо каждого отрицательного элемента поставить сумму квадратов предыдущего и последующего элементов массива

12.12.2011, 20:58. Просмотров 1174. Ответов 1
Метки нет (Все метки)

Помогите перевести из паскаля

Дан одномерный массив числовых значений, насчитывающий N элементов. Вместо каждого отрицательного элемента поставить сумму квадратов предыдущего и последующего элементов массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program pr;
var a:array[1..1000] of integer;
    i,n:integer;
begin
   writeln('Введите количество элементов массива');
   readln(n);
   writeln('Введите элементы массива');
   for i:=1 to n do
      readln(a[i]);
   for i:=1 to n do
      if (a[i]<0) then
         a[i]:=(sqr(a[i-1])+sqr(a[i+1]));
   writeln('Преобразованный массив');
   for i:=1 to n do
      write('':3,a[i]);
   writeln;
end.
Выполнить обработку элементов прямоугольной матрицы A, имеющий N строк и M столбцов. Все элементы имеют целый тип. Дано целое число H. Определить, какие строки имеют хотя бы одно такое число, а какие не имеют.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pr;
var a:array[1..1000,1..1000] of integer;
    i,j,n,m,h:integer;
begin
  writeln('Введите кол-во строк');
  readln(n);
  writeln('Введите кол-во столбцов');
  readln(m);
  writeln('Введите число H');
  readln(h);
  writeln('Введите матрицу');
  for i:=1 to n do
     for j:=1 to m do
        readln(a[i,j]);
  for i:=1 to n do
     for j:=1 to m do
        if a[i,j]=h then
           writeln('Строка с числом H = ',i);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2011, 20:58
Ответы с готовыми решениями:

Вместо каждого нулевого элемента поставить сумму двух предыдущих элементов массива
Задача следующая! Дан одномерный, целочисленный массив, насчитывающий n элементов. Вместо каждого...

Вместо каждого элемента с нулевым значением поставить сумму двух предыдущих элементов массива
Помогите пожалуйста с задачей. Дан одномерный массив числовых значений, насчитывающий N элементов....

Заменить каждый элемент массива на сумму предыдущего и последующего элемента
Дан массив размера N. Заменить каждый элемент(кроме крайних) массива на сумму предыдущего и...

Считать строку из чисел, вывести на экран сумму предыдущего и последующего элемента
Считать строку из чисел, вывести на экран Сумму предыдущего и последующего (для первого элемента...

1
1252 / 702 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
13.12.2011, 22:44 2
Лучший ответ Сообщение было отмечено butanow как решение

Решение

1)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
INPUT "vvedite n: ", n
DIM a(n + 1)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")";
    INPUT ": ", a(i)
NEXT
FOR i = 1 TO n
    IF a(i) < 0 THEN a(i) = SQR(a(i - 1) + SQR(a(i + 1)))
NEXT
PRINT "Preobrazovannyj massiv:"
FOR i = 1 TO n
    PRINT a(i);
NEXT
Добавлено через 7 минут
2)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT "Vvedite kol-vo strok: ", n
INPUT "Vvedite kol-vo stolbcov: ", m
DIM a(n, m)
INPUT "Vvedite chislo H: ", h
PRINT "Vvedite matricu:"
FOR i = 1 TO n
    FOR j = 1 TO m
        INPUT a(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        IF a(i, j) = h THEN PRINT "Stroka s chislom H = "; i
    NEXT
NEXT
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2011, 22:44

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

Определить, сколько элементов массива больше предыдущего и последующего
1) Дан вектор целых чисел. Определить, сколько из них больше предыдущего и послед. чисел? 2)Дана...

Найти номер первого отрицательного элемента одномерного массива и сумму элементов, расположенных после этого элемента
4. Найти номер первого отрицательного элемента одномерного массива и сумму элементов, расположенных...

Для каждого массива вывести индексы тех элементов, значения которых больше значения последующего элемента
Привет, помогите пожалуйста с лабораторной. Уже кое-что сделано 1)Для каждого массива вывести...

Составить программу для замены каждого отрицательного элемента средним арифметическим всех элементов массива А(N)
Дан массив А(N). Составить программу для замены каждого отрицательного элемента средним...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.