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 Cezar (Szyfrator)

Program szyfruje ciąg znaków przerabiając go na ciąg liczb. Szyfr cezara.

program cezar;
uses crt;
var
napis:string;
klucz:char;
d,i:integer;
BEGIN
writeln('Podaj napis');
readln(napis);
writeln('Podaj klucz');
readln(klucz);
d:=length(napis);
for i:=1 to d do
begin
kod:=ord(napis[i]);
kod:=kod+klucz;
szyfr:=chr(kod);
write(szyfr);
end;
END.

Szczęśliwa liczba z podanego numeru

Szczęśliwa liczba

Program sprawdzający czy dana liczba występuje w danym numerze telefonu.

program szczelb;
var numer,szczesliwa:string;i:byte;znalazlem:boolean;
begin
szczesliwa:='126';
write('Podaj numer telefonu(123456789): ');
readln(numer);
for i:=1 to 7 do
begin
if(numer[i]=szczesliwa[1])
and (numer[i+1]=szczesliwa[2]) and (numer[i+2]=szczesliwa[3]) then
znalazlem:=true;
end;
if(znalazlem=true) then writeln('Gratulujemy! Numer ',numer,' jest szczśliwy!');
readln;
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

Program zapisujący plan lekcji w pascalu

Plan lekcji w Pascalu

Napisz program, który zapisze podany plan lekcji do pliku tekstowego na wybrany dzień.

program lekcj2a;
var plik:text;p:char;
lekcja:string[20];
begin
assign(plik,'c:\plan_lekcji.txt');
rewrite(plik);
repeat
begin
write('Podaj dzień: ');
readln(lekcja);
writeln(plik,lekcja);
write('Zakończyc?t/n');
readln(p);
end;
until p='t';
close(plik);
end.

Do działania programu nie wymagane jest istnienie pliku plan_lekcji.txt. Program sam go utworzy!
Zapisywanie planu lekcji do pliku

Strona wyszukana na takie tagi:

  • pascal wyszków plan zajęć
  • pascal nysa plan lekcji
  • pascal wyszków plan lekcji
  • pascal wyszków

C++ Ludek

Napisz program, który będzie przesuwał dany napis, co określony czas.

C++ ludek

    #include <iostream>
#include <windows.h>
#include <conio.h>
#include <string>

using namespace std;

int main()
{
cout << " O" <<endl
<< "/I\\" << endl
<< " I" << endl
<< "/^\\" << endl;
Sleep(1000);
system("cls");
for(string a; 1; a +="\t")
{
cout << a <<"\t O" <<endl
<< a <<"\t/I\\" << endl
<< a <<"\t I" << endl
<< a <<"\t/^\\" << endl;
Sleep(1000);
system("cls");
}
return 0;
}

Program ma pokazać użycie komend:
System - Do sterowania komendami Dos-u.
sleep() – Zatrzymanie pracy programu na określony czas.
system("cls"); – Czyszczenie okna programu

Strona wyszukana na takie tagi:

  • c gotowe programy

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