Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.06.2009
Сообщений: 9
1

КАК ОПРЕДЕЛИТЬ РАЗНЫЕ ЗНАКИ ИЛИ НЕТ????

24.06.2009, 06:33. Показов 809. Ответов 3
Метки нет (Все метки)

Дана квадратная матрица. Найти MIN 1 и MIN 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
program matrix_min;
uses crt;
type matrix=array[1..10,1..10] of integer;
var
a:matrix;
n,i,j,min1,max2:integer;
begin
clrscr;
randomize;
write('razmernost matrici=');
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
writeln('matrix:');
for i:=1 to n do
    begin
        for j:=1 to n do
        write(a[i,j]:3);
        writeln;
    end;
min1:=maxint;
max2:=-maxint;
for i:=1 to n do
for j:=1 to n-i do
if a[i,j]<min1 then min1:=a[i,j];
for i:=2 to n do
for j:=n-i+2 to n do
if a[i,j]>max2 then min2:=a[i,j];
writeln('min1=',min1);
writeln('max2=',max2);
writeln;end;
for i:=1 to n do
for j:=1 ton do
if (imax2) or (i=imin1) then textcolor(red) else textcolor(white);
write(a[i]:4);end;
readln;
readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.06.2009, 06:33
Ответы с готовыми решениями:

Проверить одинаковые ли у двух введенных чисел знаки или разные
1.Вводятся два произвольных числа A и B. Вывести на экран, одинаковые у них знаки или разные.

Использовать или нет водяные знаки на картинках ?
Владея порталом с графическим контентом сразу же возникает вопрос использовать или нет водяные...

Какие знаки ('.', '!', '?', ',', ' ', ':') использовались (или нет) в строке (S)
Задача: узнать какие знаки ('.', '!', '?', ',', ' ', ':')использовались (или нет) в строке (S);...

Разные вольтажи ОЗУ - критично или нет?
Доброго времени суток. Задался таким вопросом. У меня сейчас стоит ОЗУ 2x4 Gb 1600 MHz 9-9-9-27...

3
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
24.06.2009, 06:44 2
Pascal
1
2
3
4
5
6
if ((min1<0)and(min2>0))or((min2<0)and(min1>0)) then 
begin
 k:=min2;
 min2:=min1;
 min1:=k;
end;
0
0 / 0 / 0
Регистрация: 16.06.2009
Сообщений: 9
24.06.2009, 06:46  [ТС] 3
Спасибо ))
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
24.06.2009, 06:50 4
Что-то по условию 2 минимума, а обозначения min1, max2. Как-то не красиво. А разные знаки определяют так.
if min1*min2<0 then разные
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.06.2009, 06:50

Как определить объект Nothing или нет
Собственно сабж. Хотелост бы иметь функцию типа IsNull, но для объектов.

Как русифицировать Windows 10 home? Вместо букв разные знаки иероглифы без русификации
как русифицировать Windows 10 home? без русификации вместо букв разные знаки у программ, субтитрах...

Как определить по IP выход с прокси или нет
Всем доброго времени суток. Собственно, сабж. Например, сравнить два IP. Смотрю по 2ip.ru 2...

Как определить - MathCad professional или нет
Добрый вечер, возник вопрос как определить MathCad professional или нет? Вопрос возник так как не...


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

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

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