Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Szachownica z hetmanem [Free Pascal]

#1
Szachownica z hetmanem [Free Pascal]
Witam !

Mam za zadanie zrobić szachownice ponumerowaną tak jak w prawdziwej szachownicy i po wpisaniu pola np. h2 wyświetli mi się hetman na tej pozycji (dowolny symbol) i będzie pokazany innym kolorem możliwości jego ruchu. Prosił bym również o sprawdzenie tego programu przed wrzuceniem.


Miałem napisać na forum o tym dużo szybciej ale mi kompletnie z głowy wyleciało więc troszkę mi na czasie teraz zależy Wesoły

Z góry dziękuje i Pozdrawiam :D
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: Szachownica z hetmanem [Free Pascal]
Witam, zamieszczam rozwiązanie w C (żeby nie było, że wyręczam):
Kod:
#include <stdio.h>

int main()
{
    char szachownica[64], row, col;
    int i, j;
    scanf("%c%c", &col, &row);
    col -= 'A';
    row -= '0';
    for (i = 0; i < 8; i++)
        for (j = 0; j < 8; j++)
        {
            if (i == row || j == col || (i - row) == (j - col) || (row - i) == (j - col))
                szachownica[8 * i + j] = '*';
            else
                szachownica[8 * i + j] = '.';
        }
    szachownica[8 * row + col] = 'H';
    for (i = 0; i < 64; i += 8)
    {
        for (j = 0; j < 8; j++)
            printf("%c", szachownica[i + j]);
        printf("\n");
    }
    return 0;
}

Trzeba oczywiście dać idiotoodporność (aby nie wpisać pola spoza szachownicy).
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Szachownica z hetmanem [Free Pascal]
Dziękuje za pomoc , nie pomogło mi to ani troszkę :D
Swoją drogą poradziłem se już z tym zadaniem.
 System operacyjny: windows_seven Przeglądarka: chrome
#4
RE: Szachownica z hetmanem [Free Pascal]
To fajnie. Z ciekawości: moduł Grph? (działa jak powinien?).
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Szachownica z hetmanem [Free Pascal]
Wypadało by zamieścić rozwiązanie dla nowego pokolenia:
Kod:
program hetman;

USES CRT;

VAR
litera:char;
mapa: array[1..8,1..8] of char;
iA, iB, aX, aY, liczba:byte;

procedure przypisz;
BEGIN
        for iA := 1 to 8 do
        BEGIN
                for iB := 1 to 8 do
                BEGIN
                        mapa[iA,iB] := '.';
                END;
        END;
END;

procedure wysmape;
BEGIN
        for iA := 1 to 8 do
        BEGIN
                for iB := 1 to 8 do
                BEGIN
                        gotoxy(iA,iB);
                        write(mapa[iA,iB]);
                END;
                writeln;
        END;
END;

procedure hetman(x:char; y:byte);
BEGIN
        clrscr;
        case x of
                'a': aX := 1;
                'b': aX := 2;
                'c': aX := 3;
                'd': aX := 4;
                'e': aX := 5;
                'f': aX := 6;
                'h': aX := 7;
                'g': aX := 8;
        END;
        aY := y;
        mapa[aY,aX] := 'H';
        wysmape;
END;

BEGIN
        clrscr;
        przypisz;
        wysmape;
        REPEAT
                gotoxy(1,15);
                write('Podaj pole, w ktorym ma sie pojawic hetman(h9 konczy program): ');
                readln(litera,liczba);
                clrscr;
                przypisz;
                wysmape;
                if liczba = 9 then clrscr
                else hetman(litera,liczba);
        UNTIL liczba = 9
END.
#define private public - Bójcie się klasy!
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#6
RE: Szachownica z hetmanem [Free Pascal]
Tyle, że wpisanie nieprawidłowej wartości skutkuje "wyskoczeniem" z programu....
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
Jak stworzyć szachownicę w OpenGlszachownica hetmana c+

Podobne wątki (Szachownica z hetmanem [Free Pascal])
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8163 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8148 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7491 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Szachownica z hetmanem [Free Pascal])
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Środowisko do assemblera Physicist 4 8278 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 8423 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 8195 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 7847 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 6997 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10230 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 7438 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 7905 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9314 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8166 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 8895 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8209 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8905 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11573 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9362 07.11.2018 13:41
Ostatni post: Ajgor