Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Program w turbo pascalu. Wyświetlanie tekstu w podanym miejscu.

14 Jan 2007 19:46 2446 12
  • Level 16  
    Witam.Mam taki problem jak napisac program aby 5 razy wyspiał na środku ekeranu dany tekst,bo jak ja pisałem to przy powtórzeniu teskt był pisany w ty m samym miejscu co pierwszy
    [30.03.2021, darmowy webinar] Nowoczesna diagnostyka maszyn, monitorowanie i przewidywanie awarii. Zarejestruj się
  • Level 31  
    Witam

    Chciałeś mieć na środku to miałes na środku. Nie bardzo wiadomo o co chodzi w Twoim problemie. Coś kolega niejasno pisze.

    --
    pozdrawiam
  • Level 16  
    Mi chodzi o to żeby tekst po powtórzeniu został napisany pod pierwszym tekstem
  • Level 29  
    To może umieść swój kod to podpowiemy co zmienić...
  • Level 16  
    uses crt;
    var
    a:integer;
    begin
    for a:=7 to 14 do
    begin
    gotoxy(38,12+2*a);
    writeln('tekst1');
    gotoxy(38,13+2*a);
    writeln('tekst2');
    gotoxy(38,14+2*a);
    writeln('tekst3');
    gotoxy(38,15+2*a);
    writeln('tekst4');
    gotoxy(38,16+2*a);
    writeln('tekst5');
    gotoxy(38,17+2*a);
    writeln('tekst6');
    gotoxy(38,18+2*a);
    writeln('tekst7');
    end;
    readkey;
    end.


    I tuttaj jest problem taki ze zasmiat na środku tekst jest po lewej stronie

    Dodano po 6 [minuty]:

    Sorka tak powninien wyglądać:

    uses crt;
    var
    a:integer;
    begin
    for a:=7 to 14 do
    begin
    gotoxy(38,12+2*a);
    writeln('tekst1');
    gotoxy(38,13+2*a);
    writeln('tekst2');
    gotoxy(38,14+3*a);
    writeln('tekst3');
    gotoxy(38,15+4*a);
    writeln('tekst4');
    gotoxy(38,16+5*a);
    writeln('tekst5');
    gotoxy(38,17+6*a);
    writeln('tekst6');
    gotoxy(38,18+7*a);
    writeln('tekst7');
    end;
    readkey;
    end.

    Dodano po 36 [minuty]:

    jazoribłem kilka poparwek i teraz pierwszy raz rysuje dobrze a restze po drugiej stornie:

    uses crt;
    var
    a,b:integer;
    begin
    for b:=1 to 3 do
    begin
    a:=7*b
    gotoxy(38,12+a);
    writeln('tekst1');
    gotoxy(38,13+a);
    writeln('tekst2');
    gotoxy(38,14+a);
    writeln('tekst3');
    gotoxy(38,15+a);
    writeln('tekst4');
    gotoxy(38,16+a);
    writeln('tekst5');
    gotoxy(38,17+a);
    writeln('tekst6');
    gotoxy(38,18+a);
    writeln('tekst7');
    end;
    readkey;
    end.
  • Level 29  
    a może by tak

    Code:

    uses crt;
    var
    a,b:integer;
    begin
    clrscr;
    for b:=1 to 7 do
    begin
         gotoxy(38,8+b);
         write('tekst',b);
    end;
    readkey;
    end.
  • Level 16  
    No nie takei cos:


    uses crt;
    var
    a,b:integer;
    begin
    for b:=1 to 5 do
    begin
    a:=7*b
    gotoxy(38,12+a);
    writeln('poniedziałek');
    gotoxy(38,13+a);
    writeln('wtorek');
    gotoxy(38,14+a);
    writeln('środa');
    gotoxy(38,15+a);
    writeln('czwartek');
    gotoxy(38,16+a);
    writeln('piątek');
    gotoxy(38,17+a);
    writeln('sobota');
    gotoxy(38,18+a);
    writeln('niedziela');
    end;
    readkey;
    end.
    to ma wypiswyac dni tygodnia 5 azry na sdoiku ale wypisuje tylko jedne raz na sdok ua restze po lewej stornie,

    Dodano po 4 [godziny] 56 [minuty]:

    To pomoze mi ktoś???
  • Level 29  
    zmień pętlę z 1..5 na 0..4

    i zmień liczby 12, 13, 14... w gotoxy na 2, 3, 4 itd.
  • Level 16  
    i to samo sie dzieje pisze po lewej stronie

    Dodano po 44 [sekundy]:

    i wogule nie zaczyna od piewrszego dnia
  • Level 29  
    eh, to powiedz mi... masz do wypisania 7 linijek tekstu, chcesz to wypisać 5 razy - razem 35 lini. Na ekranie mieści się ich 25 więc logiczne że pierwsze 10 będzie ucięte... Tak?

    Dodano po 59 [sekundy]:

    Zrób pętlę od 0 do 2 będzie ok, ale nie wypisze 5 razy całego tygodnia
  • Level 16  
    No dobra ale i tak test schodzi na lewą strone
  • Level 29  
    a zmieniłeś tak jak mówiłem wartości 12, 13, 14... w gotoxy na 2, 3, 4...? po zmianach o których mówię działa wszystko ok u mnie. jest 21 linijek tekstu na środku ekranu.
  • Level 16  
    No tak działa tylko wpisuje 3 razy

    Dodano po 2 [minuty]:

    ALe i tak dzieńki