Задачка.

Dodje · 05.06.2011, 11:16

Нужно раскрасить в зеленый цвет первый нечетный элемент массива в паскале.
Я вот пробовал делать,но не получается:он полностью раскрашивал массив,ну и следующие надписи,что выводились.
Помогите пожалуйста..

kreol · 05.06.2011, 11:37

покажите ваш пример...

Dodje · 05.06.2011, 13:19

PHP код:


			
program lol;

uses crt;

type mas = array [1..10] of integer;

var a:mas;

    i,k,m,l:integer;{k-кол-во нечетных символов,m-переменная к первой нечетной,l-номер переменной}

begin

clrscr;

k:=0;

randomize;

for i:=1 to 10 do begin

a[i]:=random(21)-5;

write(a[i]:6)

end;

for i:=1 to 10 do begin

if a[i] mod 2<>0 then

k:=k+1;

end;

writeln('кол-во нечетных значений массива',k);

for i:=10 downto 1 do begin

if a[i] mod 2<>0 then

m:=a[i];

l:=i;

end;

i:=1;

repeat

textcolor(9);

i:=i+1;

until i<l

if i:=l then begin

textcolor(4);

end;

i:=l+1;

repeat

textcolor(9);

i:=i+1;

until i<=10;

for i:=1 to 10 do begin

write(a[i]:6);

end;

end.

как-то так...

Dodje · 05.06.2011, 17:51

Никто не посмотрит?А то завтра уже оч нужно!

Vladimir_S · 05.06.2011, 18:40

Цитата:

Сообщение от Dodje

Никто не посмотрит?А то завтра уже оч нужно!

Да пожалуйста. Только чего Вы там понакрутили - это же Боже мой с пряником! Задачка-то - всего-ничего:

Код:

program lol;
uses crt;
var
 a:array [1..10] of integer;
 i:integer;
 b:boolean;
begin
 clrscr;
 randomize;
 b:=true;
 textcolor(7);
 for i:=1 to 10 do
  begin
   a[i]:=random(21)-5;
   If ((a[i] mod 2)<>0) and b then
    begin
     b:=false;
     textcolor(2);
     write(a[i]:6);
     textcolor(7);
    end
   else
    write(a[i]:6)
  end;
 readln
end.

Dodje · 05.06.2011, 19:23

Спасибо)

05.06.2011, 11:16	#1 (permalink)
Dodje Новичок Регистрация: 06.05.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задачка. Нужно раскрасить в зеленый цвет первый нечетный элемент массива в паскале. Я вот пробовал делать,но не получается:он полностью раскрашивал массив,ну и следующие надписи,что выводились. Помогите пожалуйста..

05.06.2011, 13:19	#3 (permalink)
Dodje Новичок Регистрация: 06.05.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	PHP код: program lol; uses crt; type mas = array [1..10] of integer; var a:mas; i,k,m,l:integer;{k-кол-во нечетных символов,m-переменная к первой нечетной,l-номер переменной} begin clrscr; k:=0; randomize; for i:=1 to 10 do begin a[i]:=random(21)-5; write(a[i]:6) end; for i:=1 to 10 do begin if a[i] mod 2<>0 then k:=k+1; end; writeln('кол-во нечетных значений массива',k); for i:=10 downto 1 do begin if a[i] mod 2<>0 then m:=a[i]; l:=i; end; i:=1; repeat textcolor(9); i:=i+1; until i<l if i:=l then begin textcolor(4); end; i:=l+1; repeat textcolor(9); i:=i+1; until i<=10; for i:=1 to 10 do begin write(a[i]:6); end; end. как-то так...

05.06.2011, 11:16
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам обязательно помогут советом, а пока можете открыть в браузере схожие обсуждения Задачка на ассемблере Задачка по Паскалю Задачка (Paskal) Задачка

05.06.2011, 11:37	#2 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	покажите ваш пример...

05.06.2011, 17:51	#4 (permalink)
Dodje Новичок Регистрация: 06.05.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Никто не посмотрит?А то завтра уже оч нужно!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

05.06.2011, 19:23	#6 (permalink)
Dodje Новичок Регистрация: 06.05.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо)