Program rysujący trójkąt równoramienny

Rysowanie trójkąta równoramiennego

Program rysujący trójkąt równoramienny, po podaniu jego wysokości. Pętla zagnieżdżona w pętli. Program zawiera również zabezpieczenie przed wpisaniem niepoprawnej wartości.

program trójkat;
Uses CRT;
var x,y,i,j,a,r:byte; h:longint;
begin
x:=40;
y:=1;
r:=1;
writeln('Rysuj trojkat ver 0.1 FINAL');
write('Podaj wysokość trójkąta(Mniej niż 25): ');
readln(h);
if(h>25) then
begin
repeat
write('Podaj poprawną warto˜ść: ');
   readln(h);
until h<25;
end;
Clrscr;
a:=h*2+1;
for i:=1 to h do
begin
GotoXY(x,y);
   for j:=1 to r do
        begin

             write('*');

        end;
           r:=r+2;
           y:=y+1;
           x:=x-1;
end;
readln;
end.

Uses crt; nie jest wymagane.

Pascal wyświetlanie liczb całkowitych od n do 1 po przecinku

Program wyświetla liczby całkowite od n do 1 po przecinku

Pascal wyświetlanie liczb po przecinku od liczby n do 1.

program liczby;
var liczba:longint;
begin
writeln('Podaj liczbę n:');
readln(liczba);
        while liczba<1 do
        begin
                liczba:=liczba+1;
                write(liczba,',');
        end;
readln;
end.

Jeżeli nie chcemy na końcu przecinka to usuwamy z write(liczba,','); to ,',' , a pod tym dodajemy ten kod if(liczba<>1) then write(',');.

Pascal wyświetlanie liczb całkowitych od 1 do n w kolumnie

Napisz program, który wyświetli liczby całkowite od 1 do n każdą w osobnym wierszu.

Wyświetlanie liczb całkowitych od 1 do n

program liczby;
var i,liczba:longint;
begin
writeln('Program wy˜wietla liczby całˆkowite od 1 do n w kolumnie.');
write('Podaj liczbę całˆkowitą:');
readln(liczba);
 for i:=1 to liczba do
                begin
                    writeln(i);
                end;
        readln;
end.

Użycie zmiennej longint.
Pętla for odlicza, od 1 do rozmiaru liczby.
writeln – wyświetla liczbę i przechodzi do kolejnej kolumny.

Program liczy również od 1 do ujemnej liczby n, jeżeli ona jest ujemna – Modyfikacja programu

Program sprawdza czy podana liczba jest dodania czy jeżeli jest dodania wykonuje działanie programu powyżej, jeżeli natomiast ujemna, odlicza do niej od 1 do tej liczby.

Podaj liczbę: 7
1
2
3
4
5
6
7

Podaj liczbę: -5
0
-1
-2
-3
-4
-5

program liczby;
var i,liczba:longint;
begin
writeln('Program wyś˜wietla liczby caˆłkowite od 1 do n w kolumnie.');
write('Podaj liczbę całˆkowitą:');
readln(liczba);
if liczba>0 then
begin
 for i:=1 to liczba do
                begin
                    writeln(i);
                end;
 end else
 begin
 i:=1;
     repeat
     i:=i-1;
     writeln(i);
     until i=liczba
 end;
        readln;
end.

Wykorzystanie repeat, until.
Pascal wyświetlanie liczb całkowitych.

Program sprawdzający parzystość liczby

Program prosi o podanie liczby całkowitej. Musi odpowiedzieć czy jest parzysta.

Program sprawdzający czy liczba jest parzysta:

var liczba:longint;
begin
writeln('Program sprawdzający czy liczba jest parzysta.');
write('Podaj dowolną liczbę całkowitą: ');
readln(liczba);
if(liczba mod 2) > 0 then
write('Liczba jest nieparzysta!')
else
write('Liczba jest parzysta');
readln;
end.

Strona wyszukana na takie tagi:

  • napisz program sprawdzający czy liczba jest parzysta