Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
СтранныеЖелания
1 / 1 / 0
Регистрация: 22.03.2015
Сообщений: 27
1

Переменной присвоить значение 1, если выполняется условие

09.06.2015, 12:38. Просмотров 915. Ответов 2
Метки нет (Все метки)

Задана матрица A. Напишите программу, которая переменной L присваивает значение 1, если число положительных элементов под главной диагональю больше числа положительных элементов над главной диагональю, и значение 0 в противном случае.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2015, 12:38
Ответы с готовыми решениями:

Присвоить переменной х значение 0, если ее начальное значение принадлежало интервалу (0,2).
Присвоить переменной х значение 0, если ее начальное значение принадлежало...

Присвоить переменной х значение 0, если ее начальное значение принадлежало интервалу (0;2).
Присвоить переменной х значение 0, если ее начальное значение принадлежало...

Логической переменной b присвоить значение true, если числа x и y равны и значение false иначе
логической переменной b присвоить значение true если числа x и y равны и...

Логической переменной р присвоить значение true, если целое n (n>1) - простое число, и значение false - иначе
Логической переменной р присвоить значение true, если целое n (n>1) - простое...

Переменной t присвоить значение истина, если максимальный элемент...
переменной t присвоить значение истина , если максимальный элемент одномерного...

2
Lex93
8 / 8 / 2
Регистрация: 18.02.2013
Сообщений: 56
09.06.2015, 14:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program matrix;
uses
crt;
var
//Матрица задана:
A: [0..10,0..10] of integer;
down,up:integer;
l:byte;
begin
clrscr;
//заполнение матрицы сам пиши)) ) мб она у тебя вообще из файла берется
up:=0;
down:=0;
l:=0;
//Цикл перебора всех элементов:
for i:=0 to 10 do
for j:=0 to 10 do
if A[i,j] > 0 then
if i>j then
inc(up)
else
inc(down);
1
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
11.06.2015, 20:14 3
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
const m = 6;
var a: array [1..m, 1..m] of integer;
    col, row, over, above, L: integer;
begin
  randomize;
  over := 0;
  above := 0;
  writeln('Source matrix:');
  for row := 1 to m do
    begin
      for col := 1 to m do
        begin
          a[row, col] := -99 + random(199);
          write(a[row, col]:4);
          if a[row, col] > 0
            then if col > row then inc(over)
            else if row > col then inc(above)
        end;
      writeln
    end;
  L := ord(above > over);
  write('L = ', L);
  readln
end.

Не по теме:

Сообщение было перенесено из дубля этой темы, дубль был удалён.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2015, 20:14

Если слово in входит в строку то переменной t присвоить значение true
Если в строку длиной 80 символов входит слово in то логический переменной t...

Переменной S присвоить значение 1,если оба уравнения имеют вещественные корни
даны вещественные числа a,b,c,d,e,f.Переменной S присвоить значение 1,если оба...

Переменной t присвоить значение true, если элементы массива упорядочены по возрастанию
#1 Дан произвольный массив из 40 элементов. Переменой t присвоить значение...


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

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

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