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 8021 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8031 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7356 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
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 10552 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 10714 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 10286 07.05.2018 21:27
Ostatni post: TheProgson
  VBA Pobieranie wybranych plików z danymi julietta03 1 10610 04.05.2018 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 11064 23.04.2018 11:48
Ostatni post: broda99
  Skrypt, który szuka i zamienia armen10 2 10543 23.04.2018 10:04
Ostatni post: armen10
  Liniowa regresja w Pythonie a budowanie modelu Trojan3000 2 10649 16.04.2018 13:26
Ostatni post: Trojan3000
  Początki z bashem - jak napisać skrypty: wysłanie maila i kalkulator? Kristov81 4 14466 21.03.2018 18:32
Ostatni post: Szachista
Ściana Zadanie cmd.... Yanke$ 2 11576 16.03.2018 17:20
Ostatni post: FireBytes
  Poszukuj kogoś do pomocy FireBytes 0 9997 16.03.2018 16:58
Ostatni post: FireBytes
  Program liczący liczby pierwsze Mersenne'a raistin 2 10343 12.03.2018 12:51
Ostatni post: Szachista
  Wykres Funkcji w Javie wanhelsing 4 10892 17.02.2018 22:27
Ostatni post: wanhelsing
  [SQL]procedura zliczania czasu CTRL85 0 9926 17.02.2018 12:58
Ostatni post: CTRL85
  [VBA Excel] Zaokrąglanie liczby w górę Pioro 2 11563 13.02.2018 21:25
Ostatni post: Pioro
  Sumowanie czasu excel. Cixi 7 10106 13.02.2018 11:52
Ostatni post: Cixi