14.06.2012, 00:14 | #1 (permalink) |
Member
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерный массив
Код:
{ђ®¬**оЄ 251} program romanuk9_2; uses crt; type Mas = array[1..100] of integer; var A:mas; b,i,c,s,n,m:integer; begin clrscr; textbackground(white); clrscr; textcolor(black); s:=1; writeln('введите кол-во символов массива*'); readln(b); writeln;writeln; randomize; for i:=1 to b do begin A[i]:=random(200)-100; write(A[i]:5); end; writeln; for i:=1 to b do begin write(i:5) end; writeln(' *номера элементов'); writeln; writeln; writeln('введите номер 1-го (+)элемента*'); readln(n); writeln('введите номер последнего (+)элемента*'); readln(m); for i:=1 to b do begin if i=n then textcolor(green) else textcolor(black); if i=m then textcolor(blue) else textcolor(black); write(A[i]:5); end; writeln; readln; end. |
14.06.2012, 00:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти ссылки могут быть вам полезны, обратите внимание Одномерный массив Одномерный массив |
14.06.2012, 11:02 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
uses crt; type Mas = array[1..100] of integer; var A:mas; b,i,s:integer; begin textbackground(white); clrscr; textcolor(black); write('Введите кол-во символов массива: '); readln(b); writeln; writeln; randomize; for i:=1 to b do begin A[i]:=random(200)-100; write(A[i]:5); end; writeln; writeln; s:=1; for i:=2 to b do if A[i]>A[s] then s:=i; for i:=1 to b do begin if (i>s) and (A[i]>0) then textcolor(red) else textcolor(black); write(A[i]:5); end; readln; NormVideo; end. |
|
15.06.2012, 15:47 | #3 (permalink) | |
Member
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
эммм...да, с заданием я накасячил....другой вариант написал, моя "программа" сделана по другому условию: ввести массив и раскрасить зеленым первый положительный элемент массива, а последний положительный элемент раскрасить синим))) (именно по этому условию мне нужна помощь) |
|
15.06.2012, 16:53 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
uses crt; type Mas = array[1..100] of integer; var A:mas; b,i,i1,i2:integer; begin textbackground(white); clrscr; textcolor(black); write('Введите кол-во символов массива: '); readln(b); writeln; writeln; randomize; for i:=1 to b do begin A[i]:=random(200)-100; write(A[i]:5); end; writeln; writeln; i1:=0; Repeat Inc(i1); Until A[i1]>0; i2:=b+1; Repeat Dec(i2); Until A[i2]>0; for i:=1 to b do begin if i=i1 then textcolor(green) else if i=i2 then textcolor(blue) else textcolor(black); write(A[i]:5); end; readln; NormVideo; end. |
|
15.06.2012, 17:30 | #5 (permalink) |
Member
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.06.2012, 20:54 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
В принципе, необязательная команда. Но дело в том, что напарывался на ситуации, когда после прогона программы с CRT-шными финтифлюшками-рюшечками типа игр с цветами фона и шрифта, эти измененные настройки "застревали" в системе. Поэтому если уж играть в такие игры, то лучше на всякий пожарный в самом конце воткнуть команду NormVideo; , которая вернет все цветовые настройки к дефолтным.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|