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.

Program pobierający z pliku liczby i liczący z nich średnią

Pobieranie liczb z pliku pascal

Dany jest plik tekstowy zawierający 20 liczb. Program ma otworzyć ten plik, pobrać zawartość pliku i policzyć średnią.

program srednias;
var srednia:real;plik:text;i:byte;liczba:integer;
begin
        assign(plik,'liczby.txt');
        reset(plik);
       repeat
       readln(plik,liczba);
       srednia:=srednia+liczba;
       i:=i+1;
       until eof(plik);
       srednia:=srednia/i;
       writeln('—rednia liczb z pliku wynosi: ',srednia:0:2);
       readln;
end.

Wymagane jest istnienie pliku liczby.txt.
Problem może pojawić się z błędnym umiejscowieniem pliku.

Program symujący bankomat w języku pascal

Program udający bankomat można wpłacać, wypłacać on zapisuje oraz pobiera informacje do pliku o naszej zdolności kredytowej.

Bankomat napisany w języku pascal. Pieniądze, które wpłacamy bądź wypłacamy zapisywane są w pliku tekstowym. Jest to prosty program symulujący bankomat.

Pascal bankomat

program bankomat;
uses crt;
var plik:text;
    wkasa,kasa,chkwota:integer;
    wyb,koniec:char;

begin
    Assign(plik,'kasa.txt');
    reset(plik);
    readln(plik,kasa);
    wkasa:=kasa;
    close(plik);
    repeat
writeln('----------- BANKO-MAT -----------');
writeln('Na twoim koncie znajduje się: ',kasa,' pln.');
writeln('Klikając 0 wracasz do menu gˆłównego!');
writeln('Debet wynosi 300zˆł');
writeln('a)Wypłˆać pieniądze');
writeln('b)Wpˆłać pieniądze');
writeln('c)Rezygnuje z transakcji');
wyb:=readkey;
if kasa>-300 then
begin
if wyb='a' then
  begin
    writeln('-------- Jaką kwotę chcesz wypłˆacić --------');
    writeln('1) 20zˆ             2) 50zˆ');
    writeln('3) 100zˆ            4) 200zˆ');
    writeln('5) Wybiorę(ręcznie) 0) anuluj ');
    wyb:=readkey;
        case wyb of
        '1': kasa:=kasa-20;
        '2': kasa:=kasa-50;
        '3': kasa:=kasa-100;
        '4': kasa:=kasa-200;
        '5': begin
        write('Podaj kwotę:');
        readln(chkwota);
        kasa:=kasa-chkwota;
        end;
    end;
  end;
end
else writeln('Ta usˆługa jest nieaktywna nie masz wystarczających ˜środków na koncie!');
  if wyb='b' then
  begin
    writeln('-------- Jaką kwotę chcesz wpˆłacić --------');
    writeln('1) 20zˆ             2) 50zˆ');
    writeln('3) 100zˆ            4) 200zˆ');
    writeln('5) Wybiorę(ręcznie) 0) anuluj ');
    wyb:=readkey;
        case wyb of
        '1': kasa:=kasa+20;
        '2': kasa:=kasa+50;
        '3': kasa:=kasa+100;
        '4': kasa:=kasa+200;
        '5': begin
        write('Podaj kwotę:');
        readln(chkwota);
        kasa:=kasa+chkwota;
        end;
    end;
  end;
  if(wkasa<>kasa) then
        begin
        writeln('Transakcja przebiegˆła pomy˜ślnie! Dziękujemy za korzystanie z naszych usˆług!');
        rewrite(plik);
        writeln(plik,kasa);
        close(plik);
       end;
       writeln('Czy chcesz skorzystać ponownie? t/n');
       koniec:=readkey;
       if(koniec='t') then wyb:='0';
         until wyb<>'0';
         writeln('Dziękujemy za korzystanie z naszych usłˆug!');
  readln;
end.

Ważne – Pascal Bankomat

Aby, program działał poprawnie wymagane jest utworzenie pliku, kasa.txt w folderze w którym znajduje się program, w nim zapisywane będą nasze fundusze.

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.

Pascal szybkie palce – program ćwiczący refleks

Szybkie palce

Znajdź jak najszybciej na klawiaturze klawisz wyświetlający się na ekranie. Program policzy ile czasu zajęła ci ta czynność i w miarę możliwości oceni.

Program sprawdzający refleks

Napisz program, który poprosi cię o podanie klawisza alfanumerycznego na klawiaturze i zliczy czas, w jakim został znaleziony.

Program zlicza czas w sekundach oraz setnychsekundy. Dlatego jego dokładność jest wysoka. Licznik jest bardzo dokładny, dlatego można go użyć również do stopera.

Program może pełnić różne funkcje, głównym jego celem było pokazanie użycia biblioteki dos, w celach obliczeniowych czasu.

Program do treningu refleksu oraz nauki klawiatury, dla niewprawionych użytkowników.

program szybkie_palce;
uses dos ,crt;
var czas_poczatek,czas_koniec,s,ss,h,m:word;
        litera,pobierana,key:char;
begin
randomize;
writeln('Program testujący twój refleks! Naci˜śnij enter, aby kontynuować.');
readln;
repeat
writeln('Uwaga za chwilę wy˜wietli się litera!');
writeln('Postaraj się jak najszybciej znale˜ść tą literę!');
litera:=chr(random(25)+65);{49+41}
delay(3500);
GetTime(h, m ,s, ss);
czas_poczatek:=s*100+ss;
clrscr;
writeln(litera);
        repeat
        pobierana:=UPCASE(readkey);
        until pobierana=litera;
        GetTime(h, m ,s, ss);
        czas_koniec:=(s*100)+ss;
        czas_koniec:=czas_koniec-czas_poczatek;
        s:=czas_koniec div 100;
        ss:=czas_koniec-s*100;
        write('Znalezienie klawisza zajęło ci ');
        if s <> 0 then write(s,' sekund ');
        if ss <> 0 then write(ss,' setnych!');
        writeln;
        if s>60 then writeln('Wyˆłączony mam większy zapˆołn od twojego:P')
        else if s>2 then writeln('Kiepski refleks. Liczę na twoją poprawę.')
        else if s>1 then writeln('Łuuch... Ale się namy˜lałˆe˜ś.')
        else if (s<=1) and (ss>90) then writeln('Tempo żółwia w skˆładzie porcelany!')
        else if (s<1) and (ss<10) then writeln('Musisz jeszcze trochę poćwiczyć!')
        else if (ss<100) and (s>0) then writeln('Sˆłabiutko. Może następnym razem będzie lepiej!')
       else if ss>80 then writeln('Źle nie ma. Tempo ziemniaka czasem się przydaje.')
        else if ss>60 then writeln('Dobrze. Może kiedy˜ wyprzedzisz ˜ślimaka!')
        else if ss>40 then writeln('Niezˆy refleks. Oby tak dalej!')
        else if ss>20 then writeln('Brawo! Świetny wynik!')
        else writeln('Jeste˜ś kozak gratuluje refleksu.');
        if(ss<60) and (s=0) then
        begin
        writeln;
        writeln('Niepokonany heros. Level UP. Może teraz rozszerzymy arsenaˆł? T/N');
        readln;
        writeln('Żartowaˆem nie chce mi się!');
        end;
writeln('Jedziemy dalej? T/N');
key:=UPCASE(readkey);
until key='N'
end.

W programie została użyta biblioteka Dos odpowiadająca za obsługę czasu.

Zachęcam do sporządzenia własnych modyfikacji tego skryptu!

I ty przetestuj czy masz szybkie palce! Wystarczy Pascal kompilator.

Program dodaje liczby dopóki suma nie przekroczy wartości 100

Program dodaje liczby dopóki suma nie przekroczy wartości 100, po zakończeniu program ma zapytać czy kontynuować.

program dodawanie;
var wylacz:char;liczba:byte;dodaj:byte;
begin
repeat
liczba:=0;
while(100>=liczba) do
        begin
        write('Podaj liczb© którą mam dodać: ');
        readln(dodaj);
         liczba:= liczba+dodaj;
         writeln(liczba);
        end;
write('Kontynuować? t/n: ');
readln(wylacz);
until(wylacz='n');
end.

Pascal wyświetlanie podanego imienia n razy po przecinku

Program wyświetla podane imię n razy po przecinku

Program prosi o podanie imienia i ilości wyświetlenia i wyświetla tyle razy po przecinku ile zostało podane

program wys_imie;
var imie:string;
    ile_razy,i:word;
begin
write('Podaj imię:');
readln(imie);
write('Ile razy wy˜wietlić?');
readln(ile_razy);
  repeat
        begin
        write(imie);
        write(',');
        i:=i+1;
        end;
        until ile_razy=i;
readln;
end.

Użycie repeat, until.

Strona wyszukana na takie tagi:

  • pascal otwock plan zajec

Pascal sklep – Kupujemy drukarke, z asortymentem

Napisz program, który policzy cenę kupna drukarki, wraz z wybranym do niego asortymentem.

Pascal sklep

program drukarka;
var a,b:char;
    kwota:integer;

begin
repeat
writeln('Witamy w sklepie. Wybierz model drukarki, który Cię interesuje');
writeln('a)HP Laser Jet Pro 400');
writeln('b)Samsung 165W');
writeln('c)Canon PIXMA7');
readln(a);
if a='a' then
    begin
    kwota:=269;
    end;
if a='b' then
    begin
    kwota:=243;
    end;
if a='c' then
    begin
    kwota:=286;
    end;
writeln('Czy chcesz kupić tˆusz do drukarki ?');
writeln('a) Tˆusz czarno biaˆły');
writeln('b) Tˆusz kolorowy');
writeln('c) Obydwa');
writeln('d) Nie chcę tˆuszu');
readln(a);
if a='a' then
    begin
    kwota:=kwota+33;
    end;
if a='b' then
    begin
    kwota:=kwota+42;
    end;
if a='c' then
    begin
    kwota:=kwota+33+42;
    end;
if a='d' then
    begin
    kwota:=kwota;
    end;
writeln('Czy chcesz przedˆłużyć okres gwarancyjny o 12 miesięcy ? [t/n]');
readln(a);
if a='t' then
    begin
    kwota:=kwota+7;
    end;
if a='n' then
    begin
    kwota:=kwota;
    end;
writeln('Mamy dla Pana promocję. Za jedyne 5zˆł może Pan otrzymać ryzę papieru. Czy chce Pan zakupić przedmiot ?[t/n]');
readln(a);
if a='t' then
    begin
    kwota:=kwota+5;
    end;
if a='n' then
    begin
    kwota:=kwota;
    end;
writeln('Za wszystko zapˆaci pan ',kwota,'zˆ');
readln;
writeln('Czy chcesz powtórzyć zakupy ?[t/n]');
readln(b);
until b='n';
end.

Użycie if-ów oraz pętli, do powtórzenia programu.

Strona wyszukana na takie tagi:

  • gotowe programy pascal

Pascal Anagramy

Napisz program, który poprosi nas o podanie słowa. Potem poprosi o podawanie liter i napisze czy da się z danego stringa, ułożyć to słowo.

Co to są anagramy?

Anagram – nazwa wywodząca się od słów greckich: ana- (nad) oraz grámma (litera), oznacza wyraz, wyrażenie lub całe zdanie powstałe przez przestawienie liter bądź sylab innego wyrazu lub zdania, wykorzystujące wszystkie litery (głoski bądź sylaby) materiału wyjściowego. W czasopismach szaradziarskich pojawiają się zadania polegające na odgadnięciu wykreskowanego anagramu na podstawie wierszowanego komentarza, a także anagramy rysunkowe polegające na ułożeniu hasła z wszystkich liter właściwego określenia rysunku. Formami spokrewnionymi z anagramem są stenoanagram, egzoanagram i endoanagram.
Źródło wikipedia

Dlaczego pascal? Projekt do szkoły, niebyło możliwości wybrania języka.

Anagram NP.
słowo -> owłos – Podane słowo to anagram.
adam -> adam – Podane słowa są takie same
adam -> dama -Podane słowa są anagramami, z danego ciągu słowo można
ułożyć 2 razy.
interpersonalizacja -> Słowo jest za długie – Oczywiście możemy usunąć pętle zabezpieczającą i delikatnie zmodyfikować program.
Zasada działania:

  1. Podajemy słowo: adam
  2. Wpisujemy po kolei litery d,a,m,a.
  3. Program sprawdza każdą literkę w ciągu, a gdy trafi na odpowiednią, usuwa ją z obiegu – zabezpieczenie, gdyby go nie było można byłoby podać słowo adam->damo i wyświetliłoby się że to anagram.
  4. Program liczy liczbę kombinacji
  5. Wyświetla wynik działania i i pyta o ponowne użycie

Program bada również kombinacje. Sprawdza także czy słowo nie jest za długie.

Pascal Anagramy:

program Anagramy;
uses crt;
var cache:boolean;slowo,podane:string;x,m,i,j,c,rozmiar,licznik,ile:byte;wylacz:char;l_wyst:array[1..17]of byte;
begin
repeat
begin
licznik:=0;ile:=0;slowo:='';podane:='';rozmiar:=0;cache:=false;licznik:=0;ile:=0;
write('Podaj słˆowo: ');
readln(slowo);
rozmiar:=length(slowo);
while(rozmiar > 17) do
begin
  writeln('Sˆłowo nie może być dˆłuższe niż 17 znaków!');
  write('Powtórz hasłˆo: ');
  readln(slowo);
  rozmiar:=length(slowo);
end;
        for m:=1 to rozmiar do
         begin
          write('Podaj ',m,' literę: ');
          readln(podane[m]);
          end;
for i:=1 to rozmiar do
begin
for j:=1 to rozmiar do
begin
 cache:=(slowo[i]=podane[j]);
  if(l_wyst[j]=2) then cache:=false;
if(cache=true) then
        begin
        licznik:=licznik+1;
        l_wyst[i]:=l_wyst[j]+1;
        end;
if (licznik>i) then
        begin
        licznik:=i;
        ile:=ile+1;
        end;
end;
end;
for c:=1 to rozmiar do l_wyst:=0;
if(licznik=rozmiar) then writeln('Sˆłowo ',podane,' to anagram ',slowo)
else writeln('Sˆowo nie jest anagramem');
if(ile<>0) and (licznik=rozmiar) then writeln('Z danego ciągu słˆowo ',slowo,' można uˆożyć ',ile,' razy!');
         writeln('Wyłączyć? t/n');
         wylacz:=readkey;
         end;
    until wylacz='t';
end.

Ten kod jest bardzo ciekawy, ponieważ delikatnie go rozbudowując możemy wyszukiwać, porównywać w plikach anagramy. Bardzo łatwo jesteśmy w stanie dostosować go do swoich potrzeb.

Posiadam kilka wersji tego programu. Jeżeli by ktoś potrzebował innych proszę pisać w komentarzach.

Strona wyszukana na takie tagi:

  • interpersonalizacja
  • interpersonalizacja co to znaczy
  • interpersonalizacja co to jest