Programalama > PASCAL

Etiketler: direnç, hesaplama

Ort. 0
Puan ver:
uses crt,mouse63;
var        p,x,y:word;      samet:byte;
k:byte;       c:string;    b:integer;
s:string; z:word; m:integer;
i:integer;
label same;
procedure be;
begin
textbackground(0);textcolor(white);
end;
procedure bey;
begin
textbackground(0);
end;
begin same: clrscr;   be;
for i:=1 to 29 do begin
gotoxy(27+i,1);write(#205); end;
for i:=1 to 1 do begin
gotoxy(27,1+i);write(#186); end;
gotoxy(27,1);write(#201);
gotoxy(27,3);write(#200);
for i:=1 to 1 do begin
gotoxy(56,1+i);write(#186); end;
gotoxy(56,1);write(#187);
gotoxy(56,3);write(#188);
for i:=1 to 28 do begin
gotoxy(27+i,3);write(#205); end;
for i:=1 to 35 do begin
gotoxy(1+i,7);write(#205); end;
for i:=1 to 5 do begin
gotoxy(1,7+i);write(#186); end;
for i:=1 to 35 do begin
gotoxy(1+i,9);write(#205); end;
gotoxy(1,9);write(#204);
gotoxy(1,7);write(#201);
gotoxy(1,11);write(#204);
gotoxy(1,7);write(#201);
for i:=1 to 35 do begin
gotoxy(1+i,11);write(#205);
           end;
           gotoxy(1,13);write(#200);
gotoxy(1,7);write(#201);
for i:=1 to 35 do begin
gotoxy(1+i,13);write(#205);
           end;
gotoxy(36,7);write(#187);
for i:=1 to 5 do begin
gotoxy(36,7+i);write(#186); end;
gotoxy(36,13);write(#188);
gotoxy(30,2);write('D˜REN€ HESAPLAMA PRO¦RAMI');
gotoxy(2,8);write('1-Renklerine G”re Diren‡ Hesaplama');
gotoxy(2,10);write('2-€kŸ');
  gotoxy(2,12); write('Se‡iminizi Giriniz=');readln(samet);

 if samet=2 then  begin

                  clrscr;
  gotoxy(15,8);write('***************************************************');
  gotoxy(15,12);write('***************************************************');
  gotoxy(30,9);write('Program Hazrlayan');
gotoxy(30,10);write('Samet A€IKG™Z');
gotoxy(30,11);write('Email:sametacikgoz@hotmail.com');
 delay(9500); exit     end;


if samet=1 then begin      clrscr;
 be;
gotoxy(40,1);write('RESISTANTS(D˜REN€)') ;


for i:=1 to 12 do begin
gotoxy(28+i,3);write(#205); end;


gotoxy(40,3);write(#186);
gotoxy(40,4);write(#186);
gotoxy(40,5); write(#200);
for i:=1 to 15 do begin
gotoxy(40+i,5);write(#205); end;

for i:=1 to 15 do begin
gotoxy(40+i,2);write(#205); end;
gotoxy(40,2);write(#201);
gotoxy(44,2);write(#203);
gotoxy(44,5);write(#202);
gotoxy(44,3);write(#186);
gotoxy(44,4);write(#186);
gotoxy(44,5); write(#188);

for i:=1 to 12 do begin
gotoxy(57+i,3);write(#205); end;
gotoxy(41,5);write(#202);
gotoxy(41,2);write(#203);

gotoxy(41,3);write(#186);
gotoxy(41,4);write(#186);
gotoxy(45,5);write(#202);
gotoxy(44,5);write(#202);
gotoxy(45,2);write(#203);

gotoxy(45,3);write(#186);
gotoxy(45,4);write(#186);

gotoxy(48,2);write(#203);
gotoxy(48,3);write(#186);
gotoxy(48,4);write(#186);
gotoxy(48,2);write(#203);
gotoxy(48,5);write(#202);

gotoxy(49,2);write(#203);
gotoxy(49,5);write(#202);
gotoxy(49,3);write(#186);
gotoxy(49,4);write(#186);
gotoxy(49,2);write(#203);
gotoxy(49,5);write(#202);
gotoxy(49,3);write(#186);
gotoxy(49,4);write(#186);
gotoxy(52,2);write(#203);
gotoxy(52,5);write(#202);
gotoxy(52,3);write(#186);
gotoxy(52,4);write(#186);
gotoxy(53,2);write(#203);
gotoxy(53,5);write(#202);
gotoxy(53,3);write(#186);
gotoxy(53,4);write(#186);

gotoxy(56,2);write(#203);
gotoxy(56,5);write(#202);
gotoxy(56,3);write(#186);
gotoxy(56,4);write(#186);
gotoxy(57,2);write(#203);
gotoxy(57,5);write(#202);
gotoxy(57,3);write(#186);
gotoxy(57,4);write(#186);
gotoxy(57,2);write(#187);
gotoxy(57,5);write(#188);
{yaz}
gotoxy(42,6);write(#25);
gotoxy(42,7);write('R1');
gotoxy(50,6);write(#25);
gotoxy(50,7);write('R2');
gotoxy(46,6);write(#25);
gotoxy(46,7);write('R3');
gotoxy(54,6);write(#25);
gotoxy(54,7);write('R4');
gotoxy(13,7);write(#25);
gotoxy(13,8);write('Mor');
gotoxy(16,7);write(#25);
gotoxy(16,8);write('Gri');
gotoxy(13,11);write(#25);
gotoxy(13,12);write('Mor');
gotoxy(13,15);write(#25);
gotoxy(13,16);write('Mor');
gotoxy(16,11);write(#25);
gotoxy(16,12);write('Gri');
gotoxy(16,15);write(#25);
gotoxy(16,16);write('Gri');


{renk paneli}
be;
gotoxy(22,6);write(#176);
gotoxy(22,7);write(#25);
gotoxy(21,8);write('Siyah');
gotoxy(22,10);write(#176);
gotoxy(22,11);write(#25);
gotoxy(21,12);write('Siyah');
gotoxy(22,14);write(#176);
gotoxy(22,15);write(#25);
gotoxy(21,16);write('Siyah');
gotoxy(5,4);write('RENK PANEL˜');
gotoxy(1,5);write('1. Renk Tablosu');
textcolor(1);gotoxy(1,6);write(#219);be;
textcolor(2);gotoxy(3,6);write(#219); be;
textcolor(3);gotoxy(5,6);write(#219);be;
textcolor(4);gotoxy(7,6);write(#219);be;
textcolor(14);gotoxy(9,6);write(#219); be;
textcolor(15);gotoxy(11,6);write(#219);be;
textcolor(9); gotoxy(13,6);write(#219);   be;
textcolor(9); gotoxy(13,10);write(#219); be;
textcolor(9); gotoxy(13,14);write(#219); be;
textcolor(4); gotoxy(5,18);write(#219);   be;
textcolor(8); gotoxy(16,6);write(#219); be;
textcolor(8); gotoxy(16,10);write(#219); be;
textcolor(8); gotoxy(16,14);write(#219);  be;
textcolor(6); gotoxy(19,6);write(#219);  be;

textbackground(0);
gotoxy(1,9);write('2. Renk Tablosu');
textcolor(1);gotoxy(1,10);write(#219);be;
textcolor(2);gotoxy(3,10);write(#219); be;
textcolor(3);gotoxy(5,10);write(#219);   be;
textcolor(4);gotoxy(7,10);write(#219);    be;
textcolor(14);gotoxy(9,10);write(#219);     be;
textcolor(15);gotoxy(11,10);write(#219);       be;
textcolor(6);gotoxy(19,10);write(#219);           be;
textcolor(6);gotoxy(19,14);write(#219); be;
textbackground(0);

gotoxy(1,13);write('3. Renk Tablosu');
textcolor(1);gotoxy(1,14);write(#219);
textcolor(2);gotoxy(3,14);write(#219);
textcolor(3);gotoxy(5,14);write(#219);
textcolor(4);gotoxy(7,14);write(#219);
textcolor(14);gotoxy(9,14);write(#219);
textcolor(15);gotoxy(11,14);write(#219);

textbackground(0);
gotoxy(1,17);write('4. Renk Tablosu');
textcolor(14);gotoxy(3,18);write(#219);
textbackground(15);gotoxy(1,18);write(' ');
textcolor(6);gotoxy(7,18);write(#219);be;
{deger}
textbackground(0);
gotoxy(3,19);write(#25);
gotoxy(3,20);write('Altn');
gotoxy(5,7);write(#25);
gotoxy(1,8);write('Turuncu');
gotoxy(5,11);write(#25);
gotoxy(1,12);write('Turuncu');
gotoxy(5,15);write(#25);
gotoxy(1,16);write('Turuncu');
gotoxy(9,7);write(#25);
gotoxy(9,8);write('Sar');
gotoxy(9,11);write(#25);
gotoxy(9,12);write('Sar');
gotoxy(9,15);write(#25);
gotoxy(9,16);write('Sar');

{iŸlem}
gotoxy(55,13);write('DE¦ER TABLOSU');
for i:=1 to 34 do begin
gotoxy(44+i,14);write(#205);
end;
gotoxy(44,14);write(#201);
for i:=1 to 2 do begin
gotoxy(44,14+i);write(#186);end;
gotoxy(44,16);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,16);write(#205);
end;
gotoxy(79,14);write(#187);
gotoxy(79,16);write(#188);
gotoxy(79,15);write(#186);
 {iŸlem kilo ohm}
 gotoxy(55,17);write('DE¦ER TABLOSU');
for i:=1 to 35 do begin
gotoxy(44+i,18);write(#205);
end;
gotoxy(44,18);write(#201);
for i:=1 to 2 do begin
gotoxy(44,18+i);write(#186);end;
gotoxy(44,20);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,20);write(#205);
end;
gotoxy(79,18);write(#187);
gotoxy(79,20);write(#188);
gotoxy(79,19);write(#186);
{iŸlem mega ohm}
gotoxy(55,21);write('DE¦ER TABLOSU');
for i:=1 to 34 do begin
gotoxy(44+i,22);write(#205);
end;
gotoxy(44,22);write(#201);
for i:=1 to 2 do begin
gotoxy(44,22+i);write(#186);end;
gotoxy(44,24);write(#200);
for i:=1 to 34 do begin
gotoxy(44+i,24);write(#205);
end;
gotoxy(79,22);write(#187);
gotoxy(79,24);write(#188);
gotoxy(79,23);write(#186);
if not mouse_installed then
begin
writeln('mouse imstall edilemedi...');
exit;
end;
showmouse;
setmousexy(1,1,80,25);

             repeat


 p:=mouseposition(x,y);


if (x=1)and(y=6)and(p=1)or(x=3)and(y=6)and(p=1)or(x=5)and(y=6)and(p=1)
or(x=7)and(y=6)and(p=1)or(x=11) and (y=6) and (p=1)
then  begin   m:=m+1;
 end;
 if (x=22) and (y=6) and (p=1) then begin
 gotoxy(42,3);write(#176#176);
 gotoxy(42,4);write(#176#176);
 gotoxy(42,8);write('0');
 be;gotoxy(55,15);write('0');
 be;gotoxy(55,19);write('0');
 be;gotoxy(55,23);write('0');
                   end;
                     if (x=16) and (y=6) and (p=1) then begin
                        GOTOXY(42,3);textcolor(8); write(#219#219);
                          GOTOXY(42,4);textcolor(8); write(#219#219);
                              textcolor(black); textcolor(8); gotoxy(42,8);write('8');
                                 be; gotoxy(55,15);write('8');
                                    be;gotoxy(55,19);write('8');
                                        be;gotoxy(55,23);write('8');
                                           end;
     if (x=19) and (y=6) and (p=1) then begin
         textcolor(6); GOTOXY(42,3);write(#219#219);
             textcolor(6);GOTOXY(42,4);  write(#219#219);
                  textbackground(black); textcolor(6); gotoxy(42,8);write('1');
                      be; gotoxy(55,15);write('1');
                          be;gotoxy(55,19);write('1');
                              be;gotoxy(55,23);write('1');
                                   end;

                                    if (x=13) and (y=6) and (p=1) then begin
                                 GOTOXY(42,3);textcolor(9); write(#219#219);
                              GOTOXY(42,4);textcolor(9); write(#219#219);
                           textbackground(black); textcolor(9); gotoxy(42,8);write('7');
                        be; gotoxy(55,15);write('7');
                    be;gotoxy(55,19);write('7');
                be;gotoxy(55,23);write('7');
             end;
                        if (x=1) and (y=6)and (p=1) then begin
                     GOTOXY(42,3);textcolor(1); write(#219#219);
                 GOTOXY(42,4);textcolor(1); write(#219#219);
             textbackground(black); textcolor(1); gotoxy(42,8);write('6');
          be; gotoxy(55,15);write('6');
     be;gotoxy(55,19);write('6');
 be;gotoxy(55,23);write('6');
end;
                                   if (x=3) and (y=6) and (p=1) then begin
                                      GOTOXY(42,3);textcolor(2); write(#219#219);
                                          GOTOXY(42,4);textcolor(2); write(#219#219);
                                              textbackground(black); textcolor(2); gotoxy(42,8);write('5 ');
                                                  be;   gotoxy(55,15);write('5');
                                                      be;gotoxy(55,19);write('5');
                                                          be;gotoxy(55,23);write('5');
                                                               end;
                            if (x=5) and (y=6) and (p=1) then begin
                         GOTOXY(42,3);textcolor(3); write(#219#219);
                     GOTOXY(42,4);textcolor(3); write(#219#219);
                  textcolor(3); gotoxy(42,8);write('3');
               be; gotoxy(55,15);write('3');
            be;gotoxy(55,19);write('3');
         be;gotoxy(55,23);write('3');
      end;
                                   if (x=7) and (y=6) and (p=1) then begin
                                      GOTOXY(42,3);textcolor(red); write(#219#219);
                                         GOTOXY(42,4);textcolor(red); write(#219#219);
                                            textbackground(black); textcolor(red); gotoxy(42,8);write('2');
                                               be; gotoxy(55,15);write('2');
                                                   be;gotoxy(55,19);write('2');
                                                       be;gotoxy(55,23);write('2');
                                                           end;
if (x=9) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(yellow); write(#219#219);
GOTOXY(42,4);textcolor(yellow); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(42,8);write('4');
be; gotoxy(55,15);write('4');
be;gotoxy(55,19);write('4');
 be;gotoxy(55,23);write('4');
end;
if (x=11) and (y=6) and (p=1) then begin
GOTOXY(42,3);textcolor(white); write(#219#219);
GOTOXY(42,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(42,8);write('9');
be; gotoxy(55,15);write('9');
be;gotoxy(55,19);write('9');
 be;gotoxy(55,23);write('9');
end;

{2.grup}
if (x=22) and (y=10) and (p=1) then begin
GOTOXY(46,3);write(#176#176);
GOTOXY(46,4);  write(#176#176);
gotoxy(46,8);write('0');
be; gotoxy(56,15);write('0');
be;gotoxy(56,19);write('0');
 be;gotoxy(56,23);write('0');
end;


 if (x=19) and (y=10) and (p=1) then begin
textcolor(6);GOTOXY(46,3);write(#219#219);
textcolor(6); GOTOXY(46,4);  write(#219#219);
textbackground(black); textcolor(white); gotoxy(46,8);write('1');
be; gotoxy(56,15);write('1');
be;gotoxy(56,19);write('1');
 be;gotoxy(56,23);write('1');
end;

if (x=13) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(9); write(#219#219);
GOTOXY(46,4);textcolor(9); write(#219#219);
textbackground(black); textcolor(9); gotoxy(46,8);write('7');
be;    gotoxy(56,15);write('7');
    be;gotoxy(56,19);write('7');
     be;gotoxy(56,23);write('7');
end;
if (x=1) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(1); write(#219#219);
GOTOXY(46,4);textcolor(1); write(#219#219);
textbackground(black); textcolor(1); gotoxy(46,8);write('6');
be;    gotoxy(56,15);write('6');
    be;gotoxy(56,19);write('6');
     be;gotoxy(56,23);write('6');
    end;
if (x=3) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(2); write(#219#219);
GOTOXY(46,4);textcolor(2); write(#219#219);
textbackground(black); textcolor(2); gotoxy(46,8);write('5');
   be; gotoxy(56,15);write('5');
    be;gotoxy(56,19);write('5');
     be;gotoxy(56,23);write('5');
    end;

if (x=5) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(3); write(#219#219);
GOTOXY(46,4);textcolor(3); write(#219#219);
 textcolor(3); gotoxy(46,8);write('3');
  be;  gotoxy(56,15);write('3');
  be;gotoxy(56,19);write('3');
   be;gotoxy(56,23);write('3');
    end;
    if (x=7) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(4); write(#219#219);
GOTOXY(46,4);textcolor(4); write(#219#219);
textbackground(black); textcolor(4); gotoxy(46,8);write('2');
  be;  gotoxy(56,15);write('2');
  be;gotoxy(56,19);write('2');
   be;gotoxy(56,23);write('2');
    end;
if (x=9) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(14); write(#219#219);
GOTOXY(46,4);textcolor(14); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(46,8);write('4');
 be;   gotoxy(56,15);write('4');
    be;gotoxy(56,19);write('4');
     be;gotoxy(56,23);write('4');
    end;

    if (x=11) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(white); write(#219#219);
GOTOXY(46,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(46,8);write('9');
 be;   gotoxy(56,15);write('9');
 be;gotoxy(56,19);write('9');
  be;gotoxy(56,23);write('9');
    end;
    if (x=16) and (y=10) and (p=1) then begin
GOTOXY(46,3);textcolor(8); write(#219#219);
GOTOXY(46,4);textcolor(8); write(#219#219);
textbackground(black); textcolor(8); gotoxy(46,8);write('8');
 be;   gotoxy(56,15);write('8');
 be;gotoxy(56,19);write('8');
  be;gotoxy(56,23);write('8');
    end;
{3.grup}
if (x=22) and (y=14) and (p=1) then begin
gotoxy(50,3);write(#176#176);
GOTOXY(50,4);write(#176#176);
be;  GOTOXY(66,15);write('ohm');
    be;gotoxy(50,19);write('  0,0');
     be;gotoxy(49,23);write('0,0000');
       be; gotoxy(57,23);write('      ');
       be; gotoxy(57,19);write('      ');
       be;gotoxy(50,8);write('0');
       GOTOXY(66,19);write('kilo ohm');

    GOTOXY(66,23);write('mega ohm');

end;
if (x=13) and (y=14) and (p=1) then begin


gotoxy(50,3);textcolor(9);write(#219#219);
GOTOXY(50,4);textcolor(9); write(#219#219);
textbackground(black); textcolor(9); gotoxy(50,8);write('7');

be; gotoxy(57,15);write('0000000  '); GOTOXY(66,15);write('ohm');
    be;gotoxy(57,19);write('0000     ');
     be;gotoxy(57,23);write('0     ');
     gotoxy(48,23);write('      ');
     gotoxy(49,19);write('      ');
     gotoxy(48,23);write('       ');

    GOTOXY(66,19);write('kilo ohm');

    GOTOXY(66,23);write('mega ohm');
end;

if (x=1) and (y=14) and (p=1) then begin


gotoxy(50,3);TEXTcolor(1);write(#219#219);
GOTOXY(50,4);textcolor(1); write(#219#219);
textbackground(black); textcolor(1); gotoxy(50,8);write('6');
be; gotoxy(57,15);write('000000   '); GOTOXY(66,15);write('ohm');
    be;gotoxy(57,19);write('000      ');
     be;gotoxy(57,23);write('     ');
     gotoxy(48,23);write('     ');
     gotoxy(49,19);write('      ');
    GOTOXY(66,19);write('kilo ohm');
     GOTOXY(57,23);write('     ');
    GOTOXY(66,23);write('mega ohm');
     gotoxy(48,23);write('       ');
    end;
if (x=3) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(2); write(#219#219);
GOTOXY(50,4);textcolor(2); write(#219#219);
textbackground(black); textcolor(2); gotoxy(50,8);write('5');
be; gotoxy(57,15);write('00000    ');        GOTOXY(66,15);write('ohm');
     be;gotoxy(57,19);write('00       ');
    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(57,23);write('    ');
    GOTOXY(66,23);write('mega ohm');
       gotoxy(48,23);write('     ');
       gotoxy(49,19);write('      ');
      GOTOXY(57,23);write('     ');

     gotoxy(48,23);write('       ');end;

if (x=5) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(3); write(#219#219);
GOTOXY(50,4);textcolor(3); write(#219#219);
 textcolor(3); gotoxy(50,8);write('3');
    be; gotoxy(57,15);write('000      '); GOTOXY(66,15);write('ohm');
     be;gotoxy(57,19);write('         ');
    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(48,23);write('    0,0');
    GOTOXY(66,23);write('mega ohm');
       gotoxy(57,23);write('     ');
       gotoxy(49,19);write('      ');
      GOTOXY(57,23);write('     ');
    end;

    if (x=7) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(4); write(#219#219);
GOTOXY(50,4);textcolor(4); write(#219#219);
textbackground(black); textcolor(4); gotoxy(50,8);write('2');
        be; gotoxy(57,15);write('00       '); GOTOXY(66,15);write('ohm');
    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(49,23);write('  0,00');
              GOTOXY(66,23);write('mega ohm');
                 gotoxy(57,19);write('         ');
                   gotoxy(57,23);write('     ');
                     gotoxy(49,19);write('      ');
                    GOTOXY(57,23);write('     ');
                  end;

          if (x=19) and (y=14) and (p=1) then begin
textcolor(6);GOTOXY(50,3);write(#219#219);
textcolor(6); GOTOXY(50,4);write(#219#219);
textbackground(black); textcolor(6); gotoxy(50,8);write('1');
        be; gotoxy(57,15);write('0        '); GOTOXY(66,15);write('ohm');
    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(48,23);write('  0,000');
              GOTOXY(66,23);write('mega ohm');
                 gotoxy(57,19);write('         ');
                   gotoxy(59,23);write('     ');
                   gotoxy(50,19);write('   0,');
                     GOTOXY(57,23);write('     ');
                                     end;
                if (x=9) and (y=14) and (p=1) then begin
                        GOTOXY(50,3);textcolor(14); write(#219#219);
                            GOTOXY(50,4);textcolor(14); write(#219#219);
                               textbackground(black); textcolor(yellow); gotoxy(50,8);write('4');
                                  be; gotoxy(57,15);write('0000     '); GOTOXY(66,15);write('ohm');
     be;gotoxy(57,19);write('0        ');        GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(48,23);write('     0,');
    GOTOXY(66,23);write('mega ohm');
     gotoxy(57,23);write('     ');
       gotoxy(49,19);write('      ');
      GOTOXY(57,23);write('     ');
    end;
    if (x=11) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(white); write(#219#219);
GOTOXY(50,4);textcolor(white); write(#219#219);
textbackground(black); textcolor(white); gotoxy(50,8);write('9');
        be; gotoxy(57,15);write('000000000'); GOTOXY(66,15);write('ohm');
     be;gotoxy(57,19);write('000000   ');    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(57,23);write('000');
     GOTOXY(66,23);write('mega ohm');
      gotoxy(48,23);write('     ');
       gotoxy(49,19);write('      ');
     gotoxy(48,23);write('       ');
    end;

    if (x=16) and (y=14) and (p=1) then begin
GOTOXY(50,3);textcolor(8); write(#219#219);
GOTOXY(50,4);textcolor(8); write(#219#219);
textbackground(black); textcolor(8); gotoxy(50,8);write('8');
        be; gotoxy(57,15);write('00000000'); GOTOXY(66,15);write('ohm');
     be;gotoxy(57,19);write('00000   ');    GOTOXY(66,19);write('kilo ohm');
     be;gotoxy(57,23);write('00');
     GOTOXY(66,23);write('mega ohm');
      gotoxy(48,23);write('     ');
       gotoxy(49,19);write('      ');
      gotoxy(48,23);write('       ');
    end;
{4.grup}
if (x=7) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(14); write('   ');
GOTOXY(54,4);textbackground(14); write('   ');
textbackground(black); textcolor(6); gotoxy(54,8);write('-+%11');
        gotoxy(69,15);write('-+%11');
    gotoxy(74,23);write('-+%11');
    gotoxy(74,19);write('-+%11')
       end;

if (x=5) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(4); write('   ');
GOTOXY(54,4);textbackground(4); write('   ');
textbackground(black); textcolor(red); gotoxy(54,8);write('-+%2 ');
        gotoxy(69,15);write('-+%2 ');
    gotoxy(74,23);write('-+%2 ');
    gotoxy(74,19);write('-+%2 ')
       end;
if (x=3) and (y=18) and (p=1) then begin
GOTOXY(54,3);textcolor(14); write(#219#219);
GOTOXY(54,4);textcolor(14); write(#219#219);
textbackground(black); textcolor(yellow); gotoxy(54,8);write('-+%5  ');
 gotoxy(69,15);write('-+%5 ');
    gotoxy(74,23);write('-+%5 ');
    gotoxy(74,19);write('-+%5 ');
    end;

    if (x=1) and (y=18) and (p=1) then begin
GOTOXY(54,3);textbackground(white); write('   ');
GOTOXY(54,4);textbackground(white); write('   ');
textbackground(black); textcolor(white); gotoxy(54,8);write('-+%10');
     gotoxy(69,15);write('-+%10');
    gotoxy(74,23);write('-+%10');
    gotoxy(74,19);write('-+%10');
    end;
until keypressed;goto same;  end;
if samet=2 then exit;
restoremousexy;
hidemouse;
readln; end.



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.