Matura z Informatyki - Zadania

Sojusz Fallen
Fallen

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

Matura z Informatyki - Zadania

Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / PSiO / TP

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Ricko
Brain
Brain

Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów

Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..

Wysłany: Pią 22:05, 11 Maj 2012 Temat postu: Matura z Informatyki - Zadania

Matura 2009
Cześć I
Treść:
Wykonanie programu na podstawie podanego algorytmu [Wyniki rzutu oszczepem]. Program wypisze TAK tylko w wypadku, gdy każdy rzut jest dłuższy od poprzedniego, w innym wypadku zostanie wypisane NIE:

Cytat:

program wyniki;

uses crt;

const
n=8;

var
t:array[1..n]of real;
akt,nast:real;
i:integer;

begin
clrscr;
t[1]:=60.51;
t[2]:=61.34;
t[3]:=61.85;
t[4]:=61.97;
t[5]:=62.79;
t[6]:=63.00;
t[7]:=63.81;
t[8]:=63.88;
akt:=t[1];
for i:=1 to n do
begin
nast:=t[i+1];

if i=n then
begin
writeln('TAK');
break;
end;

if nast>akt then
akt:=nast
else
begin
writeln('NIE');
break;
end;
end;
readln;
end.

Treść:
Modyfikacja poprzedniego zadania polegająca na wypisywaniu największego wyniku:

Cytat:

program maxwyn;

uses crt;

const
n=8;

var
t:array[1..n]of real;
akt,nast,max:real;
i:integer;

begin
clrscr;
t[1]:=60.51;
t[2]:=61.34;
t[3]:=61.85;
t[4]:=61.97;
t[5]:=62.79;
t[6]:=63.00;
t[7]:=63.81;
t[8]:=63.88;
max:=0;
for i:=1 to n do
begin
if t[i]>max then
max:=t[i];
end;
writeln(max);
readln;
end.

Treść:
Program zamieniające kwoty dwójkowe na dziesiętne (razem z groszami):

Cytat:

program sklep;

uses crt;

var
s,suma:string;
i,j,k,zl,gr,p:integer;

begin
clrscr;
writeln('Podaj kwote binarnie');
readln(s);
for i:=1 to length(s) do
if (s[i]=',') OR (s[i]='.') then
begin
k:=i;
break;
end
else
k:=length(s)+1;

if s[k-1]='1' then
zl:=zl+1;

for i:=k-2 downto 1 do
if s[i]='1' then
begin
p:=1;
j:=k-1-i;
repeat
begin
p:=p*2;
j:=j-1;
end;
until
j=0;
zl:=zl+p;
end;

if k<>length(s)+1 then
begin
if s[length(s)-1]='1' then
gr:=50;

if s[length(s)]='1' then
gr:=gr+25
end;

writeln('Podana kwota dziesietnie to: ',zl,',',gr);

readln;
end.

Część II

Treść:
Program ma zadanie wczytać liczby z pliku i wyszukać te, które są kwadratami liczb pierwszych

Cytat:

program pierwsze;

uses crt;

const
plik='liczby.txt';

var
f:text;
i,k:integer;
liczba,n:longint;

begin
clrscr;
assign(f,plik);
reset(f);
writeln('Wczytywanie liczb z pliku');
while not eof(f) do
begin
read(f,liczba);
n:=round(sqrt(liczba));
if n*n = liczba then
begin
k:=0;
for i:=1 to n do
begin
if n mod i = 0 then
k:=k+1;
end;

if k=2 then
writeln(liczba);
end;
end;;
readln;
end.

Post został pochwalony 0 razy

Ostatnio zmieniony przez Ricko dnia Sob 15:47, 12 Maj 2012, w całości zmieniany 5 razy

Powrót do góry

Ricko
Brain
Brain

Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów

Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..

Wysłany: Pią 22:07, 11 Maj 2012 Temat postu: Matura 2010

Matura 2010
Część I

Treść:
Mamy podany sposób opisujący pewną metodę szyfrowania, tworzymy do niego algorytm, pseudokod lub program:

Cytat:

program szyfr;

uses crt;

var
i,k,j:integer;
s,w:string;

begin
clrscr;
i:=1;
w:='';
k:=2;

writeln('Podaj slowo');
readln(s);

while i<=k do
begin
j:=i;

while j<=length(s) do
begin
w:=w+s[j];
j:=j+k;
end;

i:=i+1;
end;

writeln(w);
readln;
end.

Treść:
Mamy na podstawie podanego szyfrowania słów napisać program wykonujący taką samą czynność np. MATURA zamieniania jest na AMUTAR

Cytat:

program mat2;

uses crt;

var
s,w:string;
i:integer;

begin
clrscr;
w:='';

writeln('Podaj slowo');
readln(s);

for i:=1 to length(s) do

begin
if i=length(s) then
w:=w+s[i]
else
begin
w:=w+s[i+1]+s[i];
end;
i:=i+1;
end;

writeln(w);
readln;
end.

Treść:
Program ma za zadanie wypisywać wszystkie dzielniki podanej liczby:

Cytat:

program mat3;

uses crt;

var
n,i,j:integer;

begin
clrscr;
writeln('Podaj liczbe');
readln(n);

for i:=2 to n do
if n mod i = 0 then
begin
n:=n div i;
writeln(i);
i:=i-1;
end;
readln;
end.

Część II

Treść:
Program pobiera dane z pliku, sprawdza czy słowa są palindromami i te, które spełniają warunek zapisuje do pliku

Cytat:

program pal;

uses crt;

const
plik='dane2.txt';
plik2='zadanie4.txt';

var
F,F2:text;
i,d,l:integer;
slowo:string;

begin
clrscr;
assign(F,plik);
assign(F2,plik2);
reset(F);
rewrite(F2);
while not eof(F) do
begin
readln(F,slowo);
d:=length(slowo);
l:=0;
for i:=1 to length(slowo) div 2 do
if slowo[i]=slowo[d] then
begin
l:=l+1;
d:=d-1;
end;

if l=length(slowo) div 2 then
begin
writeln(slowo);
writeln(F2,slowo);
end;
end;
readln;
close(F);
close(F2);
end.

Post został pochwalony 0 razy

Ostatnio zmieniony przez Ricko dnia Nie 9:57, 13 Maj 2012, w całości zmieniany 6 razy

Powrót do góry

Ricko
Brain
Brain

Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów

Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..

Wysłany: Pon 18:42, 14 Maj 2012 Temat postu: Matura 2011

Matura 2011

Część I

Treść:
Program pobiera liczbę sekund dziesiętnie i wypisuje ilość jedynek w przypadku zamiany na kod binarny:

Cytat:

program jedynki;

uses crt;

var
s,l:integer;

begin
clrscr;
writeln('Podaj liczbe sekund...');
readln(s);
l:=0;

while s>=1 do
begin
if s mod 2 = 1 then
l:=l+1;

s:=s div 2;
end;

writeln('Liczba jedynek to: ',l);
readln;
end.

Treść:
Program wypisuje TAK przypadku liczb pierwszych, a NIE w przypadku liczb złożonych

Cytat:

program pierw;

uses crt;

var
i,n:integer;

begin
clrscr;
readln(n);
i:=2;

repeat
begin
if n mod i = 0 then
begin
writeln('NIE');
break;
end
else
i:=i+1;
end;
until
i>=n;

if i = n then
writeln('TAK');
readln;
end.

Treść:
Rozkład danej liczby na czynniki pierwsze --> Zadanie z Matury 2010, gdzie trzeba było wypisywać dzielniki liczb:

Cytat:

program mat3;

uses crt;

var
n,i,j:integer;

begin
clrscr;
writeln('Podaj liczbe');
readln(n);

for i:=2 to n do
if n mod i = 0 then
begin
n:=n div i;
writeln(i);
i:=i-1;
end;
readln;
end.

Część II

Treść:
Program pobiera dane z pliku hasła.txt, następnie wykonuje 3 polecenia:
a)Sumuje parzyste i nieparzyste wyrazy i zapisuje je w pliku wyniki4a.txt
b)Znajduje palindromy i zapisuje je w pliku wyniki4b.txt
c)Wyszukuje hasła, w których sąsiednie litery zamienione w kodzie ASCII na liczby dają 220 i zapisuje je w pliku wyniki4c.txt

Cytat:

program hasla;

uses crt;

const
plik='hasla.txt';
wyn4a='wynik4a.txt';
wyn4b='wynik4b.txt';
wyn4c='wynik4c.txt';

var
i,parz,nieparz,d,l:integer;
s:string;
w1,w2,w3,p:text;

begin
clrscr;
assign(p,plik);
assign(w1,wyn4a);
assign(w2,wyn4b);
assign(w3,wyn4c);
reset(p);
rewrite(w1);
rewrite(w2);
rewrite(w3);
parz:=0;
nieparz:=0;

while not eof(p) do
begin
readln(p,s);

{parzyste i nieparzyste}
if length(s) mod 2 = 0 then
parz:=parz+1
else
nieparz:=nieparz+1;

{palindromy}
d:=length(s);
l:=0;
for i:=1 to d div 2 do
begin
if s[i]=s[d] then
begin
l:=l+1;
d:=d-1;
end;
end;
if l=length(s) div 2 then
writeln(w2,s);

{ascii}
for i:=1 to length(s)-1 do
if ord(s[i])+ord(s[i+1]) = 220 then
writeln(w3,s);

end;

writeln(w1,'Parzyste: ',parz);
writeln(w1,'Nieparzyste: ',nieparz);
writeln('Zapisano parzyste i nieparzyste');
writeln('Wykonano palindromy');
writeln('Wypisano hasla spelaniajce warunki ASCII');

close(w1);
close(w2);
close(w3);
close(p);

readln;
end.

Post został pochwalony 0 razy

Ostatnio zmieniony przez Ricko dnia Pon 19:44, 14 Maj 2012, w całości zmieniany 3 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum Sojusz Fallen Strona Główna -> Ściągi, Zadania itp. / PSiO / TP	Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

Skocz do:

Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

Regulamin