Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Pascal Strona główna na hasło

MARCIO_93 09 Lut 2010 20:05 2325 14
  • #1 09 Lut 2010 20:05
    MARCIO_93
    Poziom 8  

    Witam potrzebuje pomocy robię pewien projekt w Pascalu i potrzebuje pomocy
    nie wiem jak zrobić stronę tytułowa na hasło
    strona tytułowa ma wyglądać tak ...
    np szkola nr 4 w xxxxx wykonal xxxx rok szkolny 2009/2010
    podaj dalej hasło aby przejść dalej do programu i jak wpiszesz złe hasło to ma pisać ze hasło źle wpisane jest

    jeśli można to prosił bym jeszcze o wytłumaczenie jak zrobić stronę główna na hasło bo rzecz jasna muszę się z tego obronić

    0 14
  • #2 09 Lut 2010 20:07
    arnoldziq
    Moderator Programowanie

    Ma być jedno hasło dla wszystkich , czy wiele haseł ?

    0
  • #5 09 Lut 2010 20:31
    marcinosko
    Poziom 13  

    a to w trybie graficznym czy tekstowym chcesz i tak z ciekawości to co to będzie??

    0
  • #6 09 Lut 2010 21:05
    MARCIO_93
    Poziom 8  

    ma być jedno hasło tylko na stronę główną np szkoła nr 4 w xxxxx wykonał xxxx rok szkolny 2009/2010

    a później będę pisał program

    Dodano po 12 [minuty]:

    ta 1 ramka to strona tytułowa ma sie ona pokazac tylko raz w programie po czym gdy podasz haslo prawidłowe przejdzie do menu(2 ramka i to menu ma sie powtarzac )

    Code:
    program w11
    


     uses crt;
      Const
       
        var x,a,b,c,s,s1:real;
         t,k,i,j:integer;
         wprowadz:string;
        petla:byte;
        o:char;

      begin
     clrscr;
    clrscr;
     repeat
      clrscr;
         Writeln(' ____________________________________________________________');
         Writeln('|       ZESPOL SZKOL TECHNICZNO ELEKTRONICZNYCH              |');
         WRITELN('|                                                            |');
         WRITELN('|                                                            |');
         WRITELN('| TEMAT:LICZYDLO UCZNIA                                      |');
         WRITELN('|                                                            |');
         WRITELN('|                                                            |');
         WRITELN('|                                                            |');
         WRITELN('|                                                            |');
         writeln('|                                                            |');




         writeln('| WYKONAL                              ROK SZKOLNY 2009/2010 |');
         writeln('|                                                            |');
         writeln('|                                                        |');
         writeln('|                                                            |');
         writeln('|                                                            |');
         writeln('|____________________________________________________________|');
         


        repeat
      writeln(' ___________________________________________________________ ');
      writeln('|                                                           |');
      writeln('|                       MENU:                               |');
      writeln('|                                                           |');
      writeln('|Dzialanie nuner 1-Pierwiastkowanie                         |');
      writeln('|Dzialanie numer 2-Wyznaczanie najwiekszej liczby           |');
      writeln('|Dzialanie numer 3-Obliczanie sredniej 5 liczb naturalnych  |');
      writeln('|Dizalanie numer 4-Obliczanie sredniej 5  liczb parzystch   |');
      writeln('|Dzialanie numer 5-Iloczyn                                  |');
      writeln('|Dzialanie numer 6-Szescian                                 |');
      writeln('|Dzialanie numer 7-Dni tygodnia                             |');
      writeln('|Dzialanie numer 8-Miesciace                                |');
      writeln('|Dzialanie nuemr 9-Tabliczka mnozenia                       |');
      writeln('|                                                           |');
      writeln('|Aby wyj˜† z programu nacijsnij dowolna literke i           |');
      writeln('| nascisnij Eneter                                          |');
      writeln('|___________________________________________________________|');

    readln(t);
    clrscr;

     case t of




      1:begin
    writeln(' _____________________________');
    writeln('|                             |');
    writeln('| Wybrano dzialanie numer 1   | ');
    writeln('|                             |');
    writeln('| Podaj dwie liczby           | ');
    writeln('|_____________________________|');


    Proszę pamiętać o używaniu znaczników CODE. - arnoldziq

    0
  • #7 10 Lut 2010 16:21
    wrych
    Poziom 20  

    Deklaracje:

    Code:
    var haslo: String[12];
    
    const tajne="tajemnica";
    var licznik: Byte;


    W kodzie:
    Code:
    licznik := 0;
    
    repeat
       if licznik > 2 then halt(1); {do trzech razy sztuka...}
       Write('Podaj hasło: ');
       Readln(haslo);
       licznik := licznik + 1;
    until haslo=tajne;
    {dalsza część programu}

    0
  • #8 10 Lut 2010 21:37
    MARCIO_93
    Poziom 8  

    a mógł byś to wrzucić w ten programik bo nie wiem co gdzie ma się znajdować za bardzo i nie wiem jak to gościowi od PS wytłumaczyć

    0
  • #10 12 Lut 2010 22:22
    wrych
    Poziom 20  

    Podałem tylko przykład rozwiązania problemu z hasłem i rozbiłem to na dwie części:
    - deklarację wstaw do Twoich deklaracji
    - część wykonawczą sam sobie musisz przerobić korzystając z funkcji modułu CRT tak, aby odczytywanie hasła było na pierwszej stronie (tytułowej), zawsze w tym samym miejscu (do 3 razy sztuka).
    Powodzenia w nauce... (a gotowca nie zrobię).

    0
  • #11 13 Lut 2010 07:32
    MARCIO_93
    Poziom 8  

    ja gotowca nie chce bo z gotowca się nic nie nauczę ja tylko chce abyś mi to w jakiś programik przykładowy wrzucił bo ja chcę to zrozumieć a poza tym muszę to nauczycielowi wytłumaczyć więc gotowiec nic mi tu nie da

    0
  • #13 13 Lut 2010 21:32
    wrych
    Poziom 20  

    Więcej już się nie da podpowiedzieć (robię to bo poprzednio przez pomyłkę podałem "tajemnica" zamiast 'tajemnica' i to mogło być przyczyną Twoich niepowodzeń - informacja PW):

    Code:
    program w11; 
    
    uses crt;
    var haslo: String[12]; {zmienna do przechowywania hasła}
    const tajne ='tajemnica'; {tajne hasło ;)}
    var licznik: Byte; {licznik prób}

    begin
        clrscr;
        Writeln(' ____________________________ ________________________________');
        Writeln('|       ZESPOL SZKOL TECHNICZNO ELEKTRONICZNYCH              |');
        WRITELN('|                                                            |');
        WRITELN('|                                                            |');
        WRITELN('| TEMAT:LICZYDLO UCZNIA                                      |');
        WRITELN('|                                                            |');
        WRITELN('|                                                            |');
        WRITELN('|                                                            |');
        WRITELN('|                                                            |');
        writeln('|                                                            |');
        writeln('| WYKONAL                              ROK SZKOLNY 2009/2010 |');
        writeln('|                                                            |');
        writeln('|                                                            |');
        writeln('|                                                            |');
        writeln('|                                                            |');
        writeln('|____________________________________________________________|');

        {pytanie o hasło}
        licznik := 0; {licznik prób}
        repeat
         if licznik > 2 then halt(1); {do trzech razy sztuka... - koniec pracy}
         GotoXY(8, 9); Write('Podaj hasło:                   ');
         GotoXY(21, 9); Readln(haslo); {wprowadzenie hasła}
         licznik := licznik + 1; {zwiększenie licznika prób o 1}
        until haslo=tajne; {jeśli hasło jest poprawne, to pójdziemy dalej}

        {dalsza część programu - reszta należy do Ciebie}
        clrscr;
        writeln('Hasło poprawne!');
        readln;
    end.
     

    0
  • #14 14 Lut 2010 14:09
    wrych
    Poziom 20  

    Aby podczas przepisywania kodów z forum nie popełniać błędów stosuję parę mądrych poleceń: "Kopiuj - Wklej". Jeśli pracujesz w Turbo Pascalu, to jest z tym pewien kłopot (IDE Pascala ma swój schowek) i nie współpracuje ze schowkiem Widows. Ale zawsze możesz edytpwac "plik.pas" w jakimś edytorze tekstowym (Notatnik) i potem otworzyć w Pascalu. Pozostanie drobny problem z korektą polskich liter (ale Ty i tak ich chyba nie używasz).

    0
  • #15 06 Lip 2010 09:01
    MARCIO_93
    Poziom 8  

    dzięki za rozwiązanie mojego problemu

    0