Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Составить программу, определяющую является ли треугольник прямоугольным, с подпрограммой-процедурой, вычисляющий третий угол по двум известным Составить программу, определяющую является ли треугольник прямоугольным, с подпрограммой-процедурой, вычисляющий третий угол по двум известным. https://www.cyberforum.ru/ turbo-pascal/ thread1078852.html Десятичный логарифм Turbo Pascal
как правильно записать функцию десятичного логарифма lg(x+5)=cosx
Turbo Pascal Определить сумму элементов во 2 столбце матрицы. (7 класс) https://www.cyberforum.ru/ turbo-pascal/ thread1078781.html
Определить сумму элементов во 2 столбце матрицы. Прошу расписать от вара до энда. ( всю задачу) Спасибо, заранее! :D 		Turbo Pascal Заполнить квадратную матрицу следующим образом: левую половину матрицы -1, правую -2. Turbo Pascal ( 7 класс ) 2) Заполнить квадратную матрицу следующим образом: левую половину матрицы -1, правую -2. --------------------------------------------------------------------------------------------------------------- На языке уровня 7 класса, в полном объеме, от вара до энда, пожалуйста. :D Буду очень благодарен, если вы мне поможете хотя бы с одной задачей . Спасибо! Уж, очень нужны эти задачи. https://www.cyberforum.ru/ turbo-pascal/ thread1078778.html
Turbo Pascal Найти номера спортсменов лучше всех выступивших в каждой из программ. Turbo Pascal ( 7 класс )
3)В таблице хранятся результаты выступления N фигуристов: в первом столбце оценки по обязательной программе, во втором - по короткой, в третьем - по произвольной. Найти номера спортсменов лучше всех выступивших в каждой из программ. На языке уровня 7 класса, в полном объеме, от вара до энда, пожалуйста. :D Буду очень благодарен, если вы мне поможете хотя бы с одной задачей . Спасибо! Уж,... 		Turbo Pascal Отдельно для девочек и мальчиков вычислить средний рост https://www.cyberforum.ru/ turbo-pascal/ thread1078745.html
нужно ввести пол, фамилию,рост нескольких учеников и отдельно для девочек и мальчиков вычислить средний рост(сложить все росты дев. или мальч. отдельно и разделить на количество человек, введенных в программу) вывести эти 2 значения.
Turbo Pascal Все элементы матрицы, расположенные под побочной диагональю преобразовать по правилу 1) Все элементы матрицы, расположенные под побочной диагональю преобразовать по правилу: отрицательные элементы заменить на 1, положительные на 2, а нулевые оставить без изменения. --------------------------------------------------------------------------------------------------------------- На языке уровня 7 класса, в полном объеме, от вара до энда, пожалуйста. :D Буду очень благодарен,... https://www.cyberforum.ru/ turbo-pascal/ thread1078730.html Распаковка файла LZW Turbo Pascal
{*******************************************************} { } { L Z W unit } { } { Џа®жҐ¤гал ¤«п гЇ*Є®ўЄЁ Ё а*бЇ*Є®ўЄЁ ¤***ле } { Ї® ¬Ґв®¤г LZW ¤«п Turbo Pascal 6.0 } { ...
Turbo Pascal Определить правильность расстановок скобок в тексте Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки. (количество "("=количеству ")" ) https://www.cyberforum.ru/ turbo-pascal/ thread1078530.html Turbo Pascal Переделать код с процедурами ввода и вывода и с процедурой параметра https://www.cyberforum.ru/ turbo-pascal/ thread1078477.html
Нужно переделать с процедурами ввода и вывода и с процедурой параметра. program lab2_1; uses Crt; const n_max=10; var m,n,i,j,max,k:Integer; A:array of Integer; B:array of Integer; begin
Работа со строковыми величинами Turbo Pascal
Оставить в данном слове из каждого набора одинаковых букв, идущих подряд, только одну букву. Program upr1; var s:string; i:integer; begin writeln('Ââåäèòå ñëîâî'); readln(s); i:=1; while i<=length(s)-1 do 		Turbo Pascal Напишите процедуру, которая при ее вызове выдает на экран книги издательства «Дрофа» с годом издания не позднее 2000 г. https://www.cyberforum.ru/ turbo-pascal/ thread1078419.html
процедуру, которая при ее вызове выдает на экран книги издательства «Дрофа» с годом издания не позднее 2000 г. (издательство и год издания указывает пользователь, работающей с вашей программой)
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
22.01.2014, 21:58 0

Дана матрица а размером 6х7. Для каждой строки матрицы вычислить сумму элементов, значение которых превышает заданное число С. С=18,6 - Turbo Pascal - Ответ 5679277

22.01.2014, 21:58. Показов 1624. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено max145 как решение

Решение

Цитата Сообщение от max145 Посмотреть сообщение
С=18,6
предположу, что и матрица состоит из вещественных элементов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

const
  n=6;
  m=7;
  c=18.6;
var
  a: array[1..n,1..m] of real;
  i,j: integer;
  s: real;
begin
  randomize;
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random*40;
      write(a[i,j]:8:2);
      if a[i,j]>c then s:=s+a[i,j];
    end;
    writeln('  s = ',s:0:2);
  end;
  readln;
end.


Вернуться к обсуждению:
Дана матрица а размером 6х7. Для каждой строки матрицы вычислить сумму элементов, значение которых превышает заданное число С. С=18,6 Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.01.2014, 21:58
Готовые ответы и решения:

Дана матрица целых чисел размером 3*4. Определить сумму каждой строки матрицы
Дана матрица целых чисел размером 3*4. Определить сумму каждой строки матрицы В языке Си

Дана матрица размером M на N. Найти сумму элементов каждой нечётной строки
Помогите пожалуйста решить, заранее спасибо.

Дана матрица размера M*N. Для каждой строки матрицы найти сумму ее элементов
Matrix19. Дана матрица размера M*N. Для каждой строки матрицы найти сумму ее элементов.

Дана матрица размера M × N. Для каждой строки матрицы найти сумму ее элементов.
решите пажалуста

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

Дана вещественная матрица размером nxm. Определить сумму отрицательных элементов каждой строки
Дана вещественная матрица размером nxm. Определить сумму отрицательных элементов каждой строки

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

Для каждой строки матрицы вычислить сумму элементов, значения которых превышают 18.6
Вот код программы, но он выводит правильный результат только в первой строке. #include...

матрица А размером NxN (N<=10). Найти сумму наибольших элементов каждой строки матрицы и их координаты
задана квадратная матрица А размером NxN(N&lt;=10), состоящая из действительных элементов. Найти сумму...

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