Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Подсчитать кол-во подряд идущих одинаковых элементов строки, удалить и оставить по одному Ребят такая трабла нужно решить задачу: Подсчитать кол-во подряд идущих одинаковых элементов строки, удалить и оставить по одному, и вставить перед каждым кол-во удалений т.е. должно быть так введенная строка:ааабббввв выводит:3а3б3в я делал, но у меня не делает того, чего надо вот код program shgsdf; uses crt; var a,k,c:string; https://www.cyberforum.ru/ turbo-pascal/ thread516394.html Turbo Pascal Дано шестизначное число. Найти сумму нечетных цифр данного числа, использовать функцию
дано шестизначное число найти сумму нечетных цыфр данного числа использовать функцию
Turbo Pascal очередь program pr_3; uses crt; label metka; type data=char; dll=^element; element=record inf:data; next,prew:dll end; var g_elem:dll; https://www.cyberforum.ru/ turbo-pascal/ thread516380.html Turbo Pascal Даны 3 целых числа. Найти сумму наибольшего и наименьшего даны 3 целых числа. Найти сумму наибольшего и наименьшего. для нахождения использовать функции https://www.cyberforum.ru/ turbo-pascal/ thread516376.html
Turbo Pascal Дано трехзначное число. найти сумму нечетных цифр данного числа
дано трехзначное число. найти сумму нечетных цифр данного числа. используя функции для определения четности цифр. по паскалевски распишите
Turbo Pascal Разработать алгоритм и составить программу вычисляющую 20 значений. https://www.cyberforum.ru/ turbo-pascal/ thread516369.html
Разработать алгоритм и составить программу вычисляющую 20 значений y=A*B при A = 2, 4, 8, 10 и B = 1,5 ; 2,5 ; 3,5 ; , когда каждому значению A соответствует все 3 значения B. Результаты вычислений вывести в виде таблицы. Ниже таблицы вывести сумму вычисленных значений. Заранее спасибо!
Turbo Pascal Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу https://www.cyberforum.ru/ turbo-pascal/ thread516368.html Turbo Pascal Вычислить значение выражения
там картинка
Turbo Pascal Ввести с экрана матрицу. https://www.cyberforum.ru/ turbo-pascal/ thread516357.html
Добрый вечер уважаемые программисты! Прошу у вас помощи. Нужно составить программный код через ПРОЦЕДУРЫ. Задача: 1)Ввести с экрана матрицу. Найти сумму элементов матрицы которые не кратны 3. Задача2)Ввести с экрана матрицу.Найти среднее арифметическое четных элементов матрицы и заменить этим значением строку,где содержится минимальный элемент матрицы.
Turbo Pascal Вычислить значение выражения (√(15*a)+b-4/a)/(cos(1-b)) https://www.cyberforum.ru/ turbo-pascal/ thread516347.html
(√(15*a)+b-4/a)/(cos(1-b))
Умножение матриц Turbo Pascal
я эту тему не знаю так как лежал в больнице а завтра зачет помогите пжлст!!!!!! Тема: Умножение матриц Цель: Приобретение практических навыков составления и отладки программ умножения матриц. Задание: Даны матрицы А и В размерностью NxM. Получить матрицу К=АxA*+BxB*. Все матрицы вывести на печать.
Turbo Pascal Выбрать способ представления данных. https://www.cyberforum.ru/ turbo-pascal/ thread516333.html
Помогите пожалуйста, работаю на складе, жизнь выходит боком. Не успеваю дома по писать :( 1) Условие: Выбрать способ представления данных и составить список используемых переменных. Сформулировать задачу математически. Составить схему алгоритма и программу. Задача: При поступлении в университет абитуриенты, получившие двойку на первом экзамене, ко второму не допускаются. Подсчитать, сколько...
4311 / 1422 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
11.03.2012, 22:01 0

Найти сумму всех нечётных элементов матрицы и заменить ею все элементы главной диагонали - Turbo Pascal - Ответ 2783220

11.03.2012, 22:01. Показов 2135. Ответов 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
41
42
43
44
uses crt;
var i,j,k,n,m: integer;
    a: array [1..10,1..10] of integer;
    b: array [1..100] of integer;
    s: integer;
begin
 clrscr;
 randomize;
 write('N,M do 10: ');
 readln(n,m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
     if a[i,j] mod 2 <> 0 then
      s:=s+a[i,j];
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if i=j then
      a[i,j]:=s;
     write(a[i,j]:3);
    end;
   writeln;
  end;
  writeln;
  for i:=1 to n do
   for j:=1 to m do
    begin
     inc(k);
     b[k]:=a[i,j];
    end;
  writeln('Vektor:');
  for i:=1 to k do
   write(b[i]:3);
 readln;
end.
Только есть одно "но": я не в курсе, можно ли проверять на четность вещественное число. Во всяком случае, в паскале проверка идет с целыми числами.

Вернуться к обсуждению:
Найти сумму всех нечётных элементов матрицы и заменить ею все элементы главной диагонали Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 22:01
Готовые ответы и решения:

Найти сумму всех нечетных элементов выше главной диагонали и заменить ей все нечетные элементы ниже главной диагонали.
Разработать программу в среде матлаб для нахождения суммы всех нечетных элементов выше главной...

Найти сумму всех элементов матрицы и заменить на нули элементы на главной диагонали
В двумерном массиве A из m строк и n столбцов найти сумму всех элементов и заменить на нули...

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

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы...

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

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы
Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы...

Найти сумму всех элементов главной диагонали матрицы, и сумму всех отрицательных элементов побочной диагонали
15. Найти сумму всех элементов главной диагонали матрицы P(10*10) и сумму всех отрицательных...

Найти сумму всех элементов матрицы и заменить ею все диагональные элементы этой матрицы
Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы.

Найти сумму всех элементов матрицы и заменить ею все диагональные элементы
Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы.

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