Tymon

program Trojkaty; var m : integer; a, b, c, p, h, ax, ay, bx, by, cx, cy : real; begin Writeln( 'Metody: ' ); Writeln( ' 1 - podstawowa ' ); Writeln( ' 2 - Herona ' ); Writeln( ' 3 - wektorowa ' ); Writeln( 'Podaj numer metody ( 1-3 ): ' ); Read( m ); if m = 1 then begin Writeln( 'Podaj wysokosc: ' ); Read( h ); Writeln( 'Podaj dlugosc podstawy: ' ); Read( a ); Writeln( 'Pole tego trojkata wynosi: ' ); Write( a * h / 2 ); end else if m = 2 then begin Writeln( 'Podaj bok A: ' ); Read( a ); Writeln( 'Podaj bok B: ' ); Read( b ); Writeln( 'Podaj bok C: ' ); Read( c ); p := ( a + b + c ) / 2; Writeln( 'Pole tego trojkata wynosi: ' ); Write( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) ); end else if m = 3 then begin Writeln( 'Podaj puntk Ax: ' ); Read( ax ); Writeln( 'Podaj puntk Ay: ' ); Read( ay ); Writeln( 'Podaj puntk Bx: ' ); Read( bx ); Writeln( 'Podaj puntk By: ' ); Read( by ); Writeln( 'Podaj puntk Cx: ' ); Read( cx ); Writeln( 'Podaj puntk Cy: ' ); Read( cy ); Writeln( 'Pole tego trojkata wynosi: ' ); Write( abs( ax * by + bx * cy + cx * ay - cx * by - ax * cy - bx * ay ) / 2 ); end else Writeln( 'Musisz podac od 1 do 3' ); end. Jest i trzecia! =P Bą. Pierwszy raz od 9 lat piszę w Pascalu.

program Trojkaty; var m : integer; a, b, c, p, h : real; begin Writeln( ' 1 - wzor podstawowy ' ); Writeln( ' 2 - wzor Herna ' ); Writeln( 'Numer wzoru: ' ); Read( m ); if m = 1 then begin Writeln( 'Podaj wysokosc: ' ); Read( h ); Writeln( 'Podaj dlugosc podstawy: ' ); Read( a ); Writeln( a * h / 2 ); end else if m = 2 then begin Writeln( 'Podaj bok A: ' ); Read( a ); Writeln( 'Podaj bok B: ' ); Read( b ); Writeln( 'Podaj bok C: ' ); Read( c ); p := ( a + b + c ) / 2; Writeln( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) ); end else Writeln( 'Musisz podac od 1 do 2' ); end. Masz 2. Trzeciego mi się nie chce.

program Trojkaty1; var a, b, c, p : real; begin Write( 'Podaj bok A: ' ); Readln( a ); Write( 'Podaj bok B: ' ); Readln( b ); Write( 'Podaj bok C: ' ); Readln( c ); p := ( a + b + c ) / 2; Writeln( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) ); end. Powinno działać. EDIT program Trojkaty2; var a, h : real; begin Write( 'Podaj wysokosc: ' ); Readln( h ); Write( 'Podaj dlugosc podstawy: ' ); Readln( a ); Writeln( a * h / 2 ); end.

Później będziesz musiał/musiała to wytłumaczyć. To nie jest obojętnie co. =P

Wzór Heronka? A może na wektorkach?

GML i = instance_create... i.obiekt = 1;

http://www.maz-sound.com/archives/xm2wav08.zip Na WAV. EDIT Jeśli masz problem "jak..." to wrzuć https://gmclan.org/up152_3_xm2wav.html do folderu z plikami XM i uruchom.

GMclan nie jest stroną "plastyczną".

Twój kod jest bez sensu. Po prostu wywołaj tworzenie obiektu po naciśnięciu S i tyle.

Forma protestu Woocka - nie rozumiecie czym jest pixelart, nie ma ligi. Wszelkie zażalenia do was.

...string(round(liczba))...

Przecie kompilator masz na samej platformie .NETa. A Visual to tylko IDE.

#include <iostream> int main() { std::string str = "bleeeee\nxD\nblaaa"; std::string rows[10]; int rows_size = 0; int foundn = -1; int foundl = 0; do { foundl = foundn + 1; foundn = str.find( "\n", foundl ); rows[rows_size] = str.substr( foundl, foundn - foundl ); rows_size++; } while( foundn != std::string::npos ); for( int i = 0; i < rows_size; i++ ) std::cout << rows[i] << " "; return 0; } Ew. można na dynamicznych tablicach. ;) EDIT Ok, podam odrazu i dla dynamicznych bo będą pytać. =D #include <iostream> #include <vector> int main() { std::string str = "bleeeee\nxD\nblaaa"; std::vector<std::string> rows; int foundn = -1; int foundl = 0; do { foundl = foundn + 1; foundn = str.find( "\n", foundl ); rows.push_back( str.substr( foundl, foundn - foundl ) ); } while( foundn != std::string::npos ); for( int i = 0; i < rows.size(); i++ ) std::cout << rows[i] << " "; return 0; }

Ogólnie to potrzebujesz gotowego prefabrykatu, nie? Poszukaj w przykładach.

Wielkość roomu jest bardzo abstrakcyjnym pojęciem. Nie ma potrzeby jego "powiększania", wystarczy ustawić jego wielkość na np. 800x600, a następnie stworzyć viewa w tych samych rozmiarach. Następnie zmieniać X i Y viewa. I to wszystko. Jak pomyślisz to nawet nie musisz używać viewa.

Pff. To nie takie proste. Zobacz WinAPI, albo jakąś bibliotekę graficzną, np. SDL. A jak chcesz sobie ułatwić życie to zainteresuj się Delphim.

break przerywa tylko pętle łosie. =P

Masz odznaczone Visible w obiekcie.

Oj pokaż plik z projektem, a nie będziemy bawić się tutaj w zgadywanki.

Może po prostu obiekt nie ma ustawionego sprita.

http://www.evl.uic.edu/aej/488/diagrams/fog.gif Jako background + blending.

Przecież źrodła są dostępne. Jaki problem skompilować? Gnysek, za małego fonta używasz w sygnaturze. =P

Słyszałem, że Pacio miał komuś go oddać. Ale ani widu, ani słychu.

Photoshop, GraphicsGale, MS Paint i Inkscape.

Kumple uczą Cię takiego słownictwa? Pf, to życie Cię nauczy kultury. =) Gra słabiutka, a jak na pierwszą to w sumie nie jest źle. Czasami lepiej walnąć własną grafikę niż używać "gotowej". =)