Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Найти сумму четных элементов двумерного массива Дан двумерный массив целых чисел. Определить: 1) Сумму четных элементов массива 2) Количество элементов массива, меньших 50 3) Среднее арифметическое нечетных элементов массива 4) Сумму тех элементов массива, сумма индексов которых кратна 3. https://www.cyberforum.ru/ free-pascal/ thread455814.html Написать функцию,которая определяет, верно ли что последняя цифры в числе 5 Free Pascal
Написать функцию,которая определяет, верно ли что последняя цифры в числе 5
Free Pascal Найти такие значения цифр, при которых сумма цифр в результате окажется наибольшей Найти такие значения цифр, при которых сумма цифр в результате окажется наибольшей. ДОМА+ДОМА+ДОМА+ДОМА+ДОМА=УЛИЦЫ https://www.cyberforum.ru/ free-pascal/ thread455304.html Free Pascal Решить ребус дуб+дуб+дуб+дуб=роща https://www.cyberforum.ru/ free-pascal/ thread455289.html
помогите решить ребус дуб+дуб+дуб+дуб=роща. напишите код
Free Pascal Рассчитать новые координаты точек
Здраствуй, уважаемый ALL Передо мной стоит следующая задача. Есть файл с текстовыми стороками. Вид файла такой: 10 20 30 40 50 60 55 12 .. Это координаты, первая x, вторая y. Точки расположены между собой на произвольном расстоянии. Необходимо сместить все точки (в случае необходимости создать новые или удалить), чтобы расстояние между точками всегда было 500. Координаты составляют... 		Free Pascal Вычислить с заданной точностью сумму бесконечного ряда и указать количество учтенных слагаемых https://www.cyberforum.ru/ free-pascal/ thread455043.html
Даны действительные числа x,\varepsilon (0<x\leq1,\varepsilon>0). Вычислить с точностью \varepsilon бесконечную сумму и указать количество учтенных слагаемых:\sum_{k=0 }^{\propto } {({-x)}^{2k}}{2k!}. Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем \varepsilon , - это и все последующие слагаемые можно уже не учитывать. помогите...
Free Pascal Вычислить sqrt(2 + sqrt(2... + sqrt(2))) https://www.cyberforum.ru/ free-pascal/ thread455033.html
решите пожалуйста. не как не могу разобраться. Дано натуральное число n. Вычислить: \sqrt{2+\sqrt{2+...+\sqrt{2}}} (все выражение n корней) 		Перераспределить значения переменных x и y так чтобы в x оказалось значение , синус которого больший, а в y – меньший Free Pascal
помогите пожалуйста с лабороторной работой Перераспределить значения переменных x и y так чтобы в x оказалось значение , синус которого больший, а в y – меньший . Заголовок темы изменен модератором. Он должен быть информативным, отображая содержание темы.
Free Pascal Выбрать из заданных чисел те, которые принадлежат интервалу (1; 3) https://www.cyberforum.ru/ free-pascal/ thread455029.html
А,В,C- действительные числа. Выбрать из них те, которые принадлежат интервалу (1; 3) помогите пожалуйста Добавлено через 6 минут А,В,C- действительные числа. Выбрать из них те, которые принадлежат интервалу (1; 3) 		Free Pascal Получить суму первых n членов арифметической прогресии с первым членом a1 и разностью альфа https://www.cyberforum.ru/ free-pascal/ thread455027.html
получить суму первых n членов арифметической прогресии с первым членом a1 и разностью альфа за ранее спасибо
Free Pascal Вычислить значение функции : y={pow(cos,2)x,x<0 1-pow(tg,2)x,x>=0}
Вычислить значение функции : y={pow(cos,2)x,x<0 {1-pow(tg,2)x,x>=0 Помогите!!! 		Free Pascal Поиск половинным делением https://www.cyberforum.ru/ free-pascal/ thread454881.html
PROGRAM bk; USES crt; CONST m=9; mass:ARRAY OF integer =(-6,-3,0,2,26,31,40,43,50); VAR i,v,left,right,middle:integer; BEGIN clrscr;
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
01.03.2012, 23:02 0

В одномерном массиве, состоящем из п вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним отрицательными - Free Pascal - Ответ 2544778

01.03.2012, 23:02. Показов 2325. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Zeon123 как решение

Решение

2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,m,n,s:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=-50+random(101);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to n do
    begin
      j:=1;
      while (j<=m) and (a[i,j]>=0) do inc(j);
      if j<=m then
        begin
          write('Stroka ',i,' sod. otr. el. ');
          s:=0;
          for j:=1 to m do
            inc(s,a[i,j]);
          writeln('summa ee elementov=',s);
        end;
    end;
end.


Вернуться к обсуждению:
В одномерном массиве, состоящем из п вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним отрицательными Free Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 01.03.2012, 23:02
Готовые ответы и решения:

В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним отрицательными
В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива,...

В одномерном массиве, состоящем из n вещественных элементов вычислить сумму элементов массива расположенных между первым и ...
В одномерном массиве, состоящем из n вещественных элементов вычислить сумму элементов массива...

В одномерном массиве, состоящем из n целых элементов, вычислить сумму элементов массива, между первым и последним нулями
В одномерном массиве, состоящем из n целых элементов, вычислить сумму элементов массива,...

Вычислить сумму элементов массива, расположенных между первым и последним отрицательными
В одномерном массиве, состоящем из М вещественных элементов, вычислить сумму элементов массива,...

2
01.03.2012, 23:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 01.03.2012, 23:02
Помогаю со студенческими работами здесь

Вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами
В одномерном массиве, состоящем из и вещественных элементов, вычислить: - сумму элементов массива,...

Вычислить сумму элементов массива расположенных между первым и последним отрицательными элементами
В одномерном массиве,состоящем из n вещественных элементов, вычислить: Б)сумму элементов массива...

Вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами
Добрый день. Прошу помощи в написании программы. 1 и 2 задание сделал вроде, помогите с третьим,...

Вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: Сумму элементов массива,...

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

Вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами
НАИДИТЕ ОШИБКУ ПОЖАЛУИСТА! в одномерном массиве, состоящем из n вещественных элементов,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru