Vanilla 1.1.5a jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
uses crt;
var
x,y:integer;
begin
randomize;
x:=10
writeln('Liczba ',x);
writeln('Jakis przykladowy text');
y:=random(3);
x:=x-y;
end.
Jestem nowym użytkownikiem TP, więc pewnie mam jakieś błędy z powyższym pisanym z głowy programem. A teraz o co mi chodzi. W miejscu pierwszego writeln powstaje text- Liczba 10, pod nią powstaje inny text, a dalej zmienna x zmniejsza się o pewną wartość (lub się nie zmienia, jeśli y=0 [tu mam poboczne pytanie jak zdefiniować zakres liczb losowanych, np od 4 do 6]). Załóżmy, że y wynosi 2, więc x będzie wynosiło 8. Teraz chcę aby zmienna x wynosiła 8 również w komendzie writeln zastosowanej wcześniej i chcę to zrobić tak aby nie wymazywać programu i nie wpisywać tego od nowa. Chcę po prostu aby - Jakis przykladowy text- został nienaruszony, a przy tym zmienić wartość x (którą jest teraz 8) w powyższej komendzie -writeln('Liczba ',x);
Uses Crt;
Begin
ClrScr;
Write('Losowa liczba , wylosowana z zakresu od 10 do 90');
repeat
GoToXy(15,1);
Write(Random(80)+10);
Delay(100)
until KeyPressed
End.
Pozdrawiam Stefan Pruszkiewicz
Od 1 do 2 z 2