Losowanie liczb i sprawdzanie ile razy wylosowano daną liczbę z przedziału

Napisać program sprawdzający ile razy wylosujemy liczbę 15, losując 100 razy. Liczbę z przedziału od 1 do 50.

program losuj;
uses crt;
var ile,liczba:byte;
i:integer;
begin
randomize;
ile:=0;
i:=0;
while i<1000 do
  begin
	liczba:=random(25)*2+1;
	writeln(liczba);
	if(liczba=15) then ile:=ile+1;
	i:=i+1;
  end;
write('Liczb© 15 wylosowano ',ile,' razy!');
readln;
end.

Uses crt;

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(',');.

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.

Soundskan badanie częstotliwości – C++ beep

Program wydaje dźwięk z głośniczka wewnętrznego komputera, o częstotliwościach podanych w zakresie.

Wydaje dźwięk w przedziałach jakich mu podamy, wartość podawana jest w Hz. Używając programu możesz sprawdzić, w jakich granicach częstotliwości, człowiek słyszy.

Dla osób o mocnych nerwach.

C++ Beep

#include <iostream>
#include <windows.h>
  #include <conio.h>
    
using namespace std;

double pobierz(int liczba){
       while(!(cin>>liczba)){
            cout << "Podaj poprawna wartosc: ";
  cin.clear(); 
  cin.sync();}
  return liczba;
       }

int main() {
      start:
    system("title SoundSkan");
  cout << "SoundSkan by Jasiek65"  << endl;
    cout << "Sprawdz do jakiej czestotliwosci slyszysz!" << endl;
  cout << "--------------------------------------------------------------------------" << endl;
    int min, max;
    int interwal;
  
    cout << "Podaj czestotliwosc minimalna: ";
  min = pobierz(min);
  cout << "Podaj czestotliowsc maksymalna: ";
  max = pobierz(max);
  cout << "Podaj interwal(odstep): ";
  interwal = pobierz(interwal);
  
system("color 02");
    for(int a=min; a<max; a= a+interwal)
    {
   
             cout<< "Aktualna czestotliwosc: "<< a << endl;
              Beep(a,200);
              system("cls");
             }
    
    
    cout << "Wytrzymales? Zakonczyc? T/N";
    char znak;
    znak = getch();  
    if(znak != 't')
    {
    system("cls");
        goto start;  
            }
 return 0;   
}

Uwaga!
Goto jest to bardzo przestarzała komenda, zaleca się jej nieużywanie. Można w prosty sposób zamienić ją na funkcje while, zastępującej działanie tej funkcji.

Strona wyszukana na takie tagi:

  • c program zamienia minuty na godziny
  • programy w c
  • Small basic zgadnij liczbę
  • gotoweprogramy c
  • program c przykład
  • programy w c przykłady
  • zaawansowane programy c

Program organki, przykład zastosowania pętli i switch-ów

Program organki

Program organki, jest to przykład użycia pętli, do wyłączenia programu, gdy klikniemy na klawisz(w tym przypadku ‚q’) w innym wypadku program się zapętla w nieskończoność.

Aby organki działały, musisz ustawić dźwięki na klawiszy na odpowiedniej częstotliwości.

Program używa komendy _beep, która korzysta z wewnętrznego głośniczka.

_beep znajduje się w conio.h

getch – Pobiera klawisz, który został naciśnięty.

#include <iostream> 
#include <conio.h> 
using namespace std; 

int main() 
{ 
    cout << "Witaj w programie PIANO. kliknij jakas liczbe od 1 do 10, aby ustawić interwal.\n"; 
    cout << "'q' konczy program\n"; 
    
    char key; 

    do{ 
        int time = 200;
        int nuta;
            key = (char)getch(); 
        
        switch( key ){ 
            case '1': { time=100; } 
            case '2': { time=200; break;} 
            case '3': { time=300;  break;} 
            case '4': {time=400;  break;} 
            case '5': { time=500; break;} 
            case '6': { time=600; break; } 
            case '7': { time=700;  break; } 
            case '8': { time=800; break;} 
            case 'p': { _beep(300,time); break; } 
            case 'a': { _beep(400,time); break; } 
            case 's': { _beep(500,time); break; } 
            case 'd': { _beep(600,time); break; } 
            case 'f': { _beep(700,time); break; } 
            case 'g': { _beep(800,time); break; } 
            case 'h': { _beep(900,time); break; } 
            case 'j': { _beep(1000,time); break; } 
            case 'k': { _beep(870,time); break; } 
            case 'l': { _beep(750,time); break; } 
            case ';': { _beep(640,time); break; } 
            case '\'': { _beep(540,time); break; } 
            case 'z': { _beep(440,time); break; } 
            case 'x': { _beep(340,time); break; } 
            case 'c': { _beep(260,time); break; } 
            case 'v': { _beep(240,time); break; } 
            
            default:  { break; } 
        } 

    }while( !(key == 'q') ); 
    return 0; 
}

break; – Zatrzymuje case przed dalszym przeszukiwaniem w poszukiwaniu znaku.

Strona wyszukana na takie tagi:

  • c przykładowe 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