Informatyka 17.01.08

Liczbe wymierna mozemy zapisac w formie ulamka dwoch liczb calkowitych l/m
wiec taka liczbe zapisac mozemy za pomoca dwukolumnowej tablicy
Wprowadzamy pojecie rekordu. Rekord jest rzedem tablicy, ktory ma swoja wlasna nazwe. definiujemy go:
type osoba = Record
nazwisko,imie=string;
pensja:real;
kierownik:boolean
end;

Do poszczegolnych pol rekordu odwolujemy sie za pomoca nazwarekordu.nazwapola.

program wymierna;
type
wymierna = record
licz, mian:integer
end;
procedure czytajulamek (var A:wymierna);
begin
write(’licznik ‘);
readln(A.licz);
repeat
write(’mianownik ‘);
readln(A.mian)
until A.mian>0
end;
procedure Wypiszulamek(A:wymierna);
begin
write(A.licz);
if (A.licz0) and (A.mian>1) then
writeln(’/',A.mian)
end;
function NWD(a,b:integer):integer;
begin
while (a0) and (b0) do
if a>b then
a:=a mod b
else
b:=b mod a;
NWD:=a+b
end;
function NWW(a,b:integer):integer;
begin
NWW:=a*(b div NWD(a,b) )
end;
procedure skroc(var a:wymierna);
var
pom:integer;
begin
if a.licz=0 then
a.mian:=1
else
begin
pom:=nwd(abs(a.licz),a.mian);
a.licz:=a.licz div pom;
a.mian:=a.mian div pom
end
end;
procedure dodaj(A,B:wymierna;var C:wymierna);
var
nw:integer;
begin
nw:=NWW(A.mian,B.mian);
C.mian:=nw;
C.licz:=A.licz*(nw div A.mian)+B.licz*(nw div B.mian);
end;
var
A,B,C:wymierna ;
begin
czytajulamek(A) ;
skroc(A);
czytajulamek(B);
skroc(B);
wypiszulamek(A) ;
wypiszulamek(B);
dodaj(A,B,C);
skroc(C);
wypiszulamek(C);
end.

TI 7.01.08

jesli przed = wstawimy ‘, nie jest wykonywana operacja
suma (x:y)omija komorki, w ktorych nie ma liczb.
x+y+z nie omija
suma (d5:b5) - sumuje od d5 do b5
suma(d5;b5 sumuja d5 i b5
suma(c13:d13;c19:d19) od c13 do d13 i od c19 do d19
suma ma ograniczenie do 30 argumentow
jesli chcemy sprawdzic gdzie jest blad w sumowaniu klikamy wykrzyknik i “pokaz kroki obliczania”
w excelu separatorem dziesietnym jest przecinek. edycja - zamien
klikniecie dwukrotne prawego dolnego rogu komorki - dopelnienie do kolumny z lewej
dwukrotne klikniecie prawej granicy komori - autodopasowanie
Ciagi danych:
jak wpiszemy 1,2,3 i pociagniemy - pojdzie dalej
jesli wpiszemy 1,3 to dalej bedzie 5, 7 itd (przy dwoch elementach wymysla ciag dalsyz, przy trzech juz nie)
jesli wpiszemy 1., to dalej beda kolejen liczby porzadkowe.
Dni tygodnia i miesiace tez, daty i godziny
nowe ciagi danych narzedzia - opcje, zakladka listy

Informatyka zadania 2

We wszystkich warto uzywac procedur i/lub funkcji.

Zadania na stringach:
1. Zrobic program ktory szyfruje i deszyfruje szyfrem przesuwajacym. (trudniejsza wersja tego, co bylo w poprzednich zadaniach). Program ma dostawac informacje czy chcemy zaszyfrowac, czy deszyfrowac, oraz jakie jest przesuniecie. Zakladamy, za dostaje ciag zankow alfabetu lacinskiego ze spacjami.

Informatyka

Temat: Grafika

Wyobrazmy sobie kilka ponumerowanych punktow w przestrzeni. Chcemy polaczyc kazdy z punktow z kazdym odcinkami.

Jesli chcemy stworzyc tablice, ktora ma wiecej niz jedna kolumne, tworzymy ja w ten sposob:
array [1..n,1..m] of…
gdzie n to liczba rzedow a m liczba kolumn

Uklad wspolrzednych wyglada w komputerze tak, ze x rosna w prawo od lewego gornego rogu ekranu, a y z tego samego punktu rosna w dol.