TI kolejne excel

Import danych do excela.
Albootwieramy plik txt w excelu, albo Dane->zaimportuj
Wybieramy co ma byc separatorem (jaki znak) lub czy tekst jest odpowiednio sformatowany (widoczen sa kolumny). Dalej wybieramy co ma byc zaimportowane.
Rozdzielanie danych z komorki na kilka kolumn.
Dane->tekst jako kolumny (przy zaznaczonych komorkach)
Sortowanie danych - zaznaczamy wszystkei interesujace nas pola i Dane-sortuj
Filtry - zaznaczamy kolumny Dane-filtr-autofiltr po rozwinieciu strzalki przy komorce wybieramy kryterium filtrowania.
zaawansowany - zaznaczamy pole danych i kryteriow

TI excel

Instrukcja warunkowa:
jezeli(warunek;”tak”;”nie”)

Formatowanie:
Usuwamy formaty edycja-wyczysc-formaty
Formatowanie warunkowe: jesli zawartosc komorki jest jakas, to sformatuj ja w dany sposob.
Format -> formatowanie warunkowe
Format->komorki -> niestandardowe
0-mowi, ze liczba>0 zostaje wyswietlona
spacja -obcina o 3 miejsca po przecinku
,0 - podawane z dokladnoscia jednego miejsca po przecinku
” costam” - doklejenie na koncu jakiegos ciagu znakow
; costam - rozpoczecie nowej kolumny - pierwsza kolumna wieksze od zera, druga - mniejsze od zera, 3 - rowne zero, 4 - tekst
-0 - ponizej zera

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.

Informatyka 10, 06.12.2007

Poprawa a dla innych: wylosowac tablice liczb wiekszych od 1 i uporzadkowac ja w sposob: najpierw liczby podzielne przez 2, potem przez 3, potem dalej.

program dupa;
const
n=10;
type
tablica=array [1..n] of integer;
function szukaj(A:tablica; j:integer; d:integer):integer;
var
b:boolean;
begin
b:=true;
while b do
if A[j] mod d = 0 then
begin
szukaj:=j;
b:=false
end
else
begin
j:=j+1 ;
if j>n then
begin
szukaj:=0;
b:=false
end;
end;
end;
procedure Losuj(var A:tablica);
var
i:integer;
begin
for i:=1 to n do
A[i]:=random(100)+2;
end;
procedure Wypisz(var A:tablica);
var
i:integer;
begin
for i:=1 to n do
write(A[i],’ ‘);
writeln;
writeln;
end;
procedure sortuj(var A:tablica);
var
d, zap,i,j,m:integer;
b:boolean;
begin
i:=1;
d:=2;
while i<n do
begin
j:=szukaj(A, i, d);
If j=0 then
d:=d+1
else
begin
zap:=A[i];
A[i]:=A[j];
A[j]:=zap;
i:=i+1
end;
end;
end;
var
A,B,C:tablica;
begin
randomize;
Losuj(A);
Wypisz(A) ;
sortuj(A);
wypisz (A)
end.

Informatyka 9, 29.11.2007

Program na sortowanie tablicy od najwiekszej do najmniejszej:

Informatyka 8, 22.11.2007

Dotad zapisywalismy tablice np. tak:
const n=100;
var A:array [1..n] of integer;
teraz chcemy zapisac “array [1..n] of integer;” pod jedna nazwa. Robimy to tak:
const n=100
type tablica=array [1..n] of integer
I tablice potem definiujemy tak:
var A:tablica

Informatyka 7, 15.11.07

Chcemy napisać program na wyszukiwanie liczb bliźniaczych.
Musimy w nim dwukrotnie sprawdzi, czy jakieś liczby są pierwsze. Nie ma sensu pisać dwa razy długiego kodu który sprawdza czy liczba jest pierwsza.
Dlatego stosujemy funkcje. Używamy ich wtedy, gdy chcemy usystematyzować program, lub zamknąć jakąś część programy pod jedną, krótką nazwą. Wygląda to tak: