Program zamieniający minuty na godziny

Napisz program który na podstawie dowolnej ilości minut zwraca ile to jest całkowitych godzin i ile minut.

var l_min:word;l_godz:byte;
begin
write('Podaj liczbę minut: ');
readln(l_min);
l_godz:=l_min div 60;
l_min:=l_min mod 60;
write('Jest to ',l_godz,' Godzin');
if l_min > 0  then write(' i ',l_min,' Minut!');
readln;
end.

Poznajemy instrukcję warunkową if, oraz metody dzielenia, oraz uzyskiwania reszty.
Mod – reszta z dzielenia
Div – dzielenie przez liczby całkowite

Prosty szyfrator i deszyfrator

Napisz program, który zaszyfruje słowa w obrazku.bmp, mając gotowy już wcześniej gotowy obraz bmp o wielkości 100px na 100px.

obraz 100 na 100

Słowa zapisane są jako obrazek bmp.

Szyfrator:

program szyfr;
var plik_z,plik_w:file of byte;
    i:word;
    x:byte;
    tekst:string;
begin
writeln('Podaj wyraz (do zaszyfrowania): ');
readln(tekst);
assign(plik_z,'c:\test\1.bmp');
assign(plik_w,'c:\test\2.bmp');
reset(plik_z);
rewrite(plik_w);
for i:=1 to 54 do
    begin
    read(plik_z,x);
    write(plik_w,x);
    end;
for i:=1 to length(tekst) do
    begin
    read(plik_z,x);
    write(plik_w,ord(tekst[i]));
    end;
for i:=55+length(tekst) to 30054 do
    begin
    read(plik_z,x);
    write(plik_w,x);
    end;
close(plik_z);
close(plik_w);
end.

Po szyfracji w lewym dolnym logu obrazka, piksele zmienią kolor. To Nasze literki zakodowane w RGB.

Nie można podawać znaku o wartości w ASCI 255.

Deszyfrator:

program deszyfr;
var plik_w:file of byte;
    i:word;
    x:byte;
    tekst:string;
begin
assign(plik_w,'c:\test\2.bmp');
reset(plik_w);
for i:=1 to 54 do
    begin
    read(plik_w,x);
    end;
repeat
read(plik_w,x);
write(char(x));
until x=255;
readln;
end.

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 liczący liczbę płyt

125 m chodnik składamy z 4 metrowych gotowych płyt ile płyt potrzeba na zbudowanie chodnika. Napisz program, który na podstawie podanych długości chodnika podaje ilość płyt.

program plyty;
uses crt;
const plyta=4;
var dlugosc:word;l_plyt:byte;
begin
write('Podaj dlugosc chodnika(w metrach):' );
readln(dlugosc);
l_plyt:= dlugosc div plyta;
if (dlugosc mod plyta) > 0 then
l_plyt:= l_plyt+1;
write('Musisz kupić ',l_plyt);
if(l_plyt=1) then write(' pˆłyte!')
else if(l_plyt<5) then  write(' płˆyty!')
else write(' płˆyt');
readln;
end.

const - stała, ustawiamy jaka jest stała długość płyty chodnikowej.

Strona wyszukana na takie tagi:

  • archiwum pascala

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