Opisz tworzenie grafiki w PascaluProgram Lesson8_Program1;Używa Crt, Graph;GraphicsDriver Var, GraphicsMode,ErrCode: Integer;{Dwa var są potrzebne do inicjalizacji}RozpocząćWriteln ('Inicjalizacja Grafika, proszę czekać ...');GraphicsDriver: = Wykryj;GraphicsDriver, GraphicsMode ,''); (InitGraph{UWAGA, zobacz następujący lubgrafika inaczej nie będzie działać!;)}(* Między cudzysłowie,wpisz ścieżkę do pliku graficznego BGI(Zazwyczaj "C: \ TP \ BGI"),ORzmienić katalog w menu plik (naciśnij klawisze ALT + F)i staczać się w dół wskaźnik myszy na 'dir zmiany "menu, a następnie albo wpisz ścieżkę do pliku BGI,lub przejdź do C: -> TP -> BGI *)ErrCode: = GraphResult;Jeśli GraphResult <Grok> następnie{<> oznacza "nie równa się '}RozpocząćClrScr;Writeln ('Wystąpił błąd Grafika: ",GraphErrorMsg (ErrCode));Writeln ('Jeżeli plik nie został znaleziony błąd jest wyświetlany nad');Writeln ('a następnie zmień katalog z obecnego');Writeln ('lokalizacji C: \ -> TP -> BGI,' ++ "Z menu plik ');Readln;Halt (1);End ElseRozpocząćRandomize;Setcolor (Random (15) + 1) {} Ustaw kolor tekstu{Text Wyjście na 20 pikseli od góry ekranu,oraz 20 z lewej strony ekranu.}OutTextXY (20,20, 'Witamy w nowej generacjiPascal Programowanie: ');OutTextXY (20,30, "Pascal !!'); GraphicsOutTextXY (25,70, "Dowiesz się więcejgrafika procedury i ');OutTextXY (25,80, 'funkcji, w dalszej części tego :-)'); lekcjiReadln;Zakończenia;CloseGraph;End.PROSZĘ O ODPOWIEDŹ CZY JEST TO PRAWIDŁOWO ZROBIONE
Answer

Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.