• Dodaj nowy element do listy (z argumentami wskaźnik do elementu po którym mam wstawić nowy oraz wartość ‘nowego elementu’)
• Dodaj nowy element na początek listy (z argumentem wartość ‘nowego elementu’)
• Usuń dowolny element z listy – oprócz głowy
• Usuń głowę
• Wyświetl listę na ekranie

#include <cstdlib>
#include <iostream>
using namespace std;

struct el{
       int v;
       el *nast, *pop;
       el();
       };

struct lista
{
       el *glowa;
       el *ogon;
       lista (){
             glowa=ogon=0;
             }
       el *dodajGlowe(int a);
       el *dodaj(el* poprzednik, int a);
       void usunGlowa();
       void usun();
       void wyswietl();
};

//KONSTRUKTOR
el::el(){
         v=0;
         nast=pop=0;
         }

el* lista::dodaj(el*poprzednik, int a){
    el *nowy= new el;
    nowy->v=a;
    nowy->nast=poprzednik->nast;
    poprzednik->nast=nowy;
    nowy->pop=poprzednik;
    if (nowy->nast){
    nowy->nast->pop=nowy;
    }
    else {
         ogon=nowy;
         }
    return nowy;
}

el* lista::dodajGlowe(int a){
    el* nowy = new el;
    nowy->v=a;
    nowy->nast=glowa;
    glowa=nowy;
    if (glowa)
    glowa->pop=nowy;
    return nowy;
    }
void lista::wyswietl(){
     el* tmp=glowa;
     while(tmp){
                cout<<tmp->v<<" ";
                tmp=tmp->nast;

     }
}

int main(int argc, char *argv[])
{
    lista l;
    el *tmp=l.dodajGlowe(5);
    tmp=l.dodaj(tmp,10);
    tmp=l.dodaj(tmp,11);
    tmp=l.dodaj(tmp,12);
    tmp=l.dodaj(tmp,7);
    tmp=l.dodaj(tmp,2);

    l.wyswietl();

    system("PAUSE");
    return EXIT_SUCCESS;
}

Jakich linków unikać ?

• Linków ze stron, nie powiązanych tematycznie z Twoją stroną – taki link Ci nie zaszkodzi, jednak też specjalnie nie pomoże.
• Linków ze stron pornograficznych… po prostu mi zaufaj
• Linków ze stron, na których znajduję się tych linków (outlinks) bardzo dużo – są to tzw. farm linki – strony, tworzone tylko po to by zamieszczać na nich linki. Wuj gógl nie lubi takich stron i rozpoznaje nieczyste zagrania pozycjonerów.
• Linki z ksiąg gości – są wartościowe tylko wtedy kiedy są umieszczane na stronie o tematyce podobnej to Twojej strony
• Wymiana partnerska – wymiana bannerami, lub artykułami jest dobra, ale najlepiej kiedy następuje pomiędzy minimum trzema stronami powiązanymi tematycznie. Tzn. strona A linkuje do B, strona B do C, a strona C, do A – dzięki takiej rotacji nie widać (przynajmniej bezpośrednio) typowej wymiany partnerskiej. Innym istotnym elementem, jest niestosowanie standardowych wielkości bannerów reklamowych. Pamiętaj, abyś przy takiej wymianie sprawdził, czy Twój link na stronie partnera nie otrzymał atrybutu ‘nofollow’, gdyż taki link jest pomijany przez roboty. Tym samym nasz serwis nie zyskuje nic, z punktu widzenia pozycjonowania.
• Kupowanie linków - wymaga wnikliwej analizy strony, na której nasz link zostanie umieszczony, co prawda, można znaleźć na allegro oferty kupna linków na stronie z PR 5 za 15zł na miesiąc. Oferta wydawać by się mogło całkiem niezła, jeśli strona odpowiada nam tematycznie. Problem polega na tym, że właściciel strony sprzedaje takich linków na aukcji 50, a to oznacza, że moc linku rozłoży się na pięćdziesięciu allegrowiczów. Nie myśl, że taka oferta nie jest warta swojej ceny, poprostu zastanów się czy chcesz zapłacić 15 zł, za strone z PR = 5/50 . Polecam natomiast profesjonalne systemy sprzedaży / kupna linków –> Zamawiam linki bardzo modyfikowalne, dużo opcji, masz duże pole do manewru
• Systemy wymiany linków – czyli strony, z których pobieramy skrypt i wklejamy na naszą stronę. U nas pojawiają się linki innych użytkowników Systemu, a na stronach użytkowników nasze linki. Możemy umieścić na stronach użytkowników tyle linków, na ile wystarcza nam punktów, a punkty zdobywać poprzez dodawanie nowych stron do systemu. – Tak ogólnie rzecz ujmując . Problem z takimi systemami jest taki, że pojawiło się w nich bardzo dużo stron spamerskich, o których pisałem wyżej – linki z takich stron nie są dla nas pożądane Wyjątek stanowi Statlink, nie owładnięty jeszcze tak bardzo spamem .

Precle oraz artykuły do przedruku – są to strony, na których zamieszczamy własne artykuły, na dany temat, a w nim link do naszej strony. Pressel od artykułów do przedruku różni się tym, że serwisy takie jak artelis, publikuj, czy inne umożliwiające dodawanie artykułów do przedruku – udostępniają nasze wpisy innym internautom to znaczy, że jeśli nasz artykuł jest naprawdę dobry, to w sposób wirusowy możemy rozprzestrzenić go (wraz z linkiem prowadzącym do naszej strony) na cały internet.

(Dla zainteresowany – seo.net.pl/spis_presellpage/ – spis ponad 1000 precli )
Cechy dobrego precla:
- moderowany
- płatny (nie jest to regułą, jednak najczęściej administratorzy dbają o takie serwisy)
- z wysokim wskaźnikiem PageRank (im wyższy, tym lepiej)

Katalogi Stron – jeśli nie mamy własnego zaplecza jest to niezwykle istotny element pozycjonowania. Katalogi  to miejsce, do których możemy dodawać swoje strony, wraz z opisem, zazwyczaj z możliwością dodawania słów kluczowych, dodatkowych linków.

Cechy dobrego katalogu stron:

• Powinna posiadać wysoki Page Rank (jest to najprostszy sposób na bardzo ogólną ocenę siły katalogu)
• Musi być moderowany (to zabezpieczy przed wpisami spamerskimi – więc nie zmniejsza siły katalogu)
• Możliwość dodawania wpisów płatnych i darmowych (płatne często dają możliwość dodawania większej ilości linków)
• Powieszony na starej domenie (im domena/katalog jest starszy tym lepiej)
• Dobrze kiedy udostępniają różnego rodzaju dodatkowe promocje, czy jakiekolwiek formy współpracy

Aktualna Lista Mocnych Katalogów Stron:

Link -> Darmowe Katalogi Stron

Generalnie o ile ktoś mógłby pomyśleć, “no przecież o to chodzi by mieć jak najwięcej linków, nie ważne skąd, nie ważne jakich”. I tutaj właśnie się myli, ponieważ algorytmy wyszukiwarek od razu rozpoznają, kiedy do naszej strony będą prowadziły tylko linki ze stron spamerskich, co może mieć negatywny skutek.

Elementem niezwykle istotnym w pozyskiwaniu linków, jest rzeczowe udzielanie się na różnego rodzaju forach i zamieszczanie odnośników do naszej strony w stopce każdego wpisu. Jeśli nasze odpowiedz będą przemyślane i pomocne, a link w stopce będzie nawiązywał nawet bardzo ogólnie do tematyki forum, gwarantuję duży zwiększenie ruchu na stronie. Jest to najbardziej subtelna i darmowa opcja reklamy własnego serwisu.

Czytając kurs pozycjonowania, wyniosłem z niego kilka istotnych rad, które w skrócie przedstawię. Nim zacznę pisać o wartościowych artykułach, potrzebie zbierania jak największej ilości linków przychodzących,  optymalnych słowach kluczowych, czytelności strony, sposobach reklamowania się na internecie, chcę powiedzieć najpierw o domenach, bo jest to pierwszy krok do założenia dobrze prosperującej strony:

Domena to Twój adres internetowy, coś na rodzaj adresu domu, dzięki któremu można do Ciebie trafić. Zatem jeśli chcemy by ktoś nas odwiedził, niezbędna jest do tego domena. Istnieje ich kilka rodzajów podstawowe to, a każda z nich posiada własne przeznaczenie:

• .com – komercyjne
• .net – związane z internetem
• .org – organizacje
• .biz – biznesowe
• .edu – edukacyjne
• .gov – rządowe
• .krakow.pl, poznan.pl, itd. – domeny regionalne
• .fr, .pl, .en, .us, .de itd. – domeny narodowe
• .net.pl – polskie firmy związane z działalnością w sieci
• .com.pl – polskie firmy komercyjne itd.

Oprócz tego istnieją subdomeny, których możemy tworzyć nieskończenie wiele. Jej struktura to na przykład admin.exploracje.com, gdzie exploracje to nazwa domeny, a admin to dowolna treść która znajduje się przed domeną.

Z ogromu wyboru jaki oferuje nam internet trudno wybrać coś właściwego, coś co sprawi większą sprzedaż, zwiększy ruch, przyciągnie klienta, będzie rozpoznawalna, przykład dobrej strony to sprawnymarketing.pl; kurs-pozycjonowania.pl, teraz przyglądnijmy się tym stronom:

-końcówka .pl jest najpopularniejsza w Polsce, dlatego jeśli ktoś zapomni końcówki adresu, najpewniej będzie próbował wpisać .pl, a to dlatego że jeszcze wielu ludzi domeny kojarzy właśnie z tym rozszerzeniem. Zakładając, że wybierzemy inną końcówkę np. eu, ryzykujemy, tym, że osoba poszukująca naszej strony, nieopatrznie może wejść na adres naszego konkurenta.

-Jeśli działasz w Polsce, optymalne jest rozszerzenie .pl, jeśli działasz na świecie warto mieć .pl i .com

-Domeny .pl są bardziej wartościowe, dlatego sprzedając swoją stronę, możesz zażądać więcej pieniędzy.

-Pamiętaj, że we Polsce każdy zna rozszerzenie .pl, a o istnieniu .eu .biz .gov czy wiedzą tylko osoby o podstawowej wiedzy technologicznej.

Dobra nazwa domeny:

Dobra domena to taka, która nie ma polskich znaków, przykład złej nazwy to www.zlotemysli.pl, dlatego, że:

1. Mamy problem czy w przeglądarce wpisać www.zlotemysli.pl czy www.złotemyśli.pl, pomimo przyjętej zasady nie stosowania w adresach url znaków diakrytycznych (opcja dostępna od 2003 roku), część internautów może próbować wejść na stronę właśnie w ten sposób.

2. Dyktując nazwę domeny, musimy wyjaśniać, że należy ją wpisywać bez używania polskich znaków.

3. Domeny z polskimi znakami mogą wyglądać dziwnie, i szczególnie nieprzyjaźnie dla google np.www.zdzblo.pl

4. Jeśli już posiadasz domenę z polskimi znakami, powinieneś zainwestować w domenę z ogonkami, tzn. mając domenę: www.zlotemysli.pl, powinieneś też zainwestować w www.złotemyśli.pl, dlatego właśnie, że część osób będzie Cię szukała pod nazwą bez polskich znaków, a pozostali pod hasłem z polskimi znakami. Po rejestracji drugiej domeny (tej z ogonkami) zrób na niej przekierowanie 301 do domeny bez ogonków.

5. Możliwości doboru nazw dla domeny jest tak wiele, że nie powinniśmy mieć problemu z doborem optymalnej.

Kolejka w Pascalu

program kolejka;
uses crt;
type wsk=^element;
      element=record
         dane:integer;
         nast:wsk;
      end; 

var max, liczba, i:integer;
w:wsk; 

procedure do_kolejki(var d:integer; var w:wsk);
var temp,poprz,nast:wsk;
begin
   new(temp);
   if w=nil then {przypadek gdy wstawiamy do kolejki pierwszy element}
            begin
               temp^.dane:=d;
               temp^.nast:=nil;
               w:=temp;
            end
   else
      begin  {w przypadku gdy juz sa elementy w kolejce}
         temp^.dane:=d;
         poprz:=w;
         nast:=poprz^.nast;
         if temp^.dane<=poprz^.dane
                     then {przypadek ze dokladamy element na poczatku kolejki}
                        begin
                           temp^.nast:=w;
                           w:=temp;
                        end
         else
            begin
               while (nast<>nil) and (temp^.dane>nast^.dane)  do
                        begin {przypadek dokladania elementow w srodku kolejki}
                           poprz:=poprz^.nast; {przesuniecie wskaznika poprz na nastepne m-ce}
                           nast:=poprz^.nast; {przesuniecie wskaznika nast na nastepne m-ce}
                        end;
               if nast<>nil then
                  begin
                     poprz^.nast:=temp; {wstawienie elementu w odpowiednie miejsce}
                     temp^.nast:=nast;
                  end
               else
                  begin
                     poprz^.nast:=temp;
                     temp^.nast:=nil;
                  end;
            end;
      end;
end; 

procedure ZeStosu(var element:integer;var wierzcholek:wsk);
var temp:wsk;
begin
   if wierzcholek<>nil then
            begin
               element:=wierzcholek^.dane;
               temp:=wierzcholek^.nast;
               dispose(wierzcholek);
               wierzcholek:=temp;
            end;
end;
begin
   Write('Podaj ile liczb max=');readln(max);
   for i:=1 to max do
         begin
            write('Podaj liczbe ');readln(liczba);
            if i=1 then w:=nil;
            Do_Kolejki(liczba,w);
         end;
   repeat
         ZeStosu(liczba,w);
         Writeln(liczba);
   until w=nil;
repeat until keypressed;

end.

stos pascal, kolejka pascal, pascal wskaźnik, pascal,

Algorytm Euklidesa Iteracyjnie

program ALG_EUKLIDESA;
uses CRT;
var i,n,m,a:integer;
begin
writeln;
writeln('Wpisz pierwsza liczbe do algorytmu Euklidesa ');
readln(n);
writeln('Wpisz druga liczbe');
readln(m);
if n0 do begin
if (i=1) then
begin
writeln('Podane liczby nie posiadaja NWD');
break;
end
else If ((m mod i)=0) and ((n mod i)=0) Then
begin
writeln('Liczba Euklidesa NWD(',m,',', n,')=', i);
break;
end
else
i:=i-1;
end;
writeln('Nacisnij klawisz aby wyjsc');
readln;
end.

Algorytm Euklidesa Rekurencyjnie

program EuklidesRekurencyjnie;
uses crt;
var a,b:integer;

function NWD(a,b:integer):integer;
begin
if b=0 then NWD:=a else NWD:=NWD(b,a mod b);
end;
        Begin
        clrscr;
        write('podaj 1 liczbe');
        read(a);
        write('podaj 2 liczbe');
        read(b);
            begin
            writeln(NWD(a,b));
             repeat until keypressed;
    end;
end.

Tagi:

algorytm euklidesa nwd, NWD, algorytm euklidesa, algorytm euklidesa turbo pascal, największy wspólny dzielnik pascal, euklidesa algorytm, algorytm euklidesa w pascalu

• Wprowadzanie danych do pliku
• Wczytywanie danych z pliku
• Edycja danych
• Dopisywanie danych do pliku istniejącego
• Wyszukiwanie danych według różnych kryteriów (Jeśli wyszukiwanie nie spełnia kryteriów zostanie wyświetlony odpowiedni komunikat)
• Menu wyboru:

1. Podac dane do dziennika.
2. Wypisac dane z dziennika.
3. Dopisac osoby do dziennika.
4. Wyszukac osobe w dzienniku.
5. Edytowac osobe w dzienniku.
6. Wyczyscic ekran.
7. Zakonczyc program.

program Dziennik;
uses crt;
type Osoba= record
nr:string;
imie:string[20];
nazwisko:string[20];
ozp:string[20];
ozh:string[20];
ozm:string[20];
ozf:string[20];
ozb:string[20];
zach:string[20];
end;

var f:file of Osoba;
o,y: array [1..30] of Osoba;
s:Osoba;
a:byte;

procedure z;  {procedura wprowadzania danych}
var i,a:byte;
begin

begin
clrscr;
write('Podaj ilosc  osob ktore chcesz wpisac do dziennika:  ');    readln(a);
assign(f,'dziennik.dat');
rewrite(f);          {otwieram plik po raz 1 }
for i:=1 to a do       {a okresla ile ma zostac wprowadzonych osob}
begin
clrscr;
writeln;
write('Nr: ');      readln(o[i].nr);
write('Imie: ');      readln(o[i].imie);
write('Nazwisko: ');      readln(o[i].nazwisko);
write('Oena z Jezyka Polskiego: ');      readln(o[i].ozp);
write('Ocena z Historii: ');         readln(o[i].ozh);
write('Ocena z Matematyki: '); readln(o[i].ozm);
write('Ocena z Fizyki: '); readln(o[i].ozf);
write('Ocena z Biologi: '); readln(o[i].ozb);
write('ZACHOWANIE: '); readln(o[i].zach);
write(f,o[i]);{zpisanie w zmiennej "f" zawartosci tablicy "o[i]"}
clrscr;
end;

close(f); {zamkniecie pliku}
end;
end;

procedure w; {wczytywanie danych z pliku}
var i,a:byte;

begin
assign(f,'dziennik.dat');
reset(f);
while not eof(f) do  {dopóki nie jest koniec pliku wykonuj}
begin
read(f,o[i]); {do "f" wczytaj zawartosc "o[i]"}
with o[i] do   {z tablica "o[i]" wykonaj, u nas wczytaj z niej dana zawartosc}
begin
writeln;
write('Nr: '); writeln(o[i].nr);
write('Imie: ');    writeln(o[i].imie);
write('Nazwisko: ');writeln(o[i].nazwisko);
write('Oena z Jezyka Polskiego: ');     writeln(o[i].ozp);
write('Ocena z Historii: ');         writeln(o[i].ozh);
write('Ocena z Matematyki: '); writeln(o[i].ozm);
write('Ocena z Fizyki: '); writeln(o[i].ozf);
write('Ocena z Biologi: '); writeln(o[i].ozb);
write('ZACHOWANIE: '); writeln(o[i].zach);
end;
end;
end;

procedure dop; {dopisywanie danch od juz istniejacego pliku}
var i,a:byte;

begin
clrscr;
assign(f,'dziennik.dat');
reset(f);
write('Podaj liczbe osob do dopisania:  ');readln(a);
for i:=1 to a do
begin
clrscr;
Seek(f, FileSize(f)); {otwiera plik i ustawia sie w ostatniej linijce }
{tam zaczyna sie dopisywanie, od ostatniej lini zapisanego pliku}
writeln;writeln;
write('Nr: ');readln(o[i].nr);
write('Imie: ');readln(o[i].imie);
write('Nazwisko: '); readln(o[i].nazwisko);
write('Oena z Jezyka Polskiego: ');      readln(o[i].ozp);
write('Ocena z Historii: ');         readln(o[i].ozh);
write('Ocena z Matematyki: '); readln(o[i].ozm);
write('Ocena z Fizyki: '); readln(o[i].ozf);
write('Ocena z Biologi: '); readln(o[i].ozb);
write('Zachowanie: ');readln(o[i].zach);
write(f,o[i]);  {zapisujemy w pliku podane wczesniej dane}
clrscr;
end;
close(f);         {zamykamy plik}
end;
PROCEDURE szukI;
var i,pom:byte;
t:string[20];
begin
pom:=0; {zmienna pomocnicza - jesli nie bedzie osob spelniajacych warunku wyszukiwania}
assign(f,'dziennik.dat');
reset(f);            {otwieram plik, nie po raz pierwszy}

write('Podaj szukane imie: ');
read(t);   {podaje Imie które mam wyszukac}
while not eof(f) do
begin
read(f,o[i]); {wczytuje do "f" tablice "o[i]"}
with o[i] do   { wykonuje z tabl "o[i]"}
if t=(o[i].imie) then    {jezeli wczesniej podane "t"= Imienu wczytuje wszyskie dane szukanej osoby}
begin
pom:=1;
write('Nr: '); writeln(o[i].nr);
write('Imie: '); writeln(o[i].imie);
write('Nazwisko:   ');  writeln(o[i].nazwisko);
write('Oena z Jezyka Polskiego: ');     writeln(o[i].ozp);
write('Ocena z Historii: ');         writeln(o[i].ozh);
write('Ocena z Matematyki: '); writeln(o[i].ozm);
write('Ocena z Fizyki: '); writeln(o[i].ozf);
write('Ocena z Biologi: '); writeln(o[i].ozb);
write('ZACHOWANIE:  '); writeln(zach);
end;
end;
if pom=0 then writeln('Nie ma osob spelniajacych kryteria.');
end;

procedure szukN;
var i,pom:byte;
t:string[20];
begin
pom:=0; {zmienna pomocnicza - jesli nie bedzie osob spelniajacych warunku wyszukiwania}
assign(f,'dziennik.dat');
reset(f);            {otwieram plik, nie po raz pierwszy}

write('Podaj szukane nazwisko: ');
read(t);   {podaje Imie ktore mam wyszukac}
while not eof(f) do
begin
read(f,o[i]); {wczytuje do "f" tablice "o[i]"}
with o[i] do   { wykonuje z tabl "o[i]"}
if t=(o[i].nazwisko) then
begin
pom:=1;
write('Nr: '); writeln(nr);
write('Imie: '); writeln(imie);
write('Nazwisko:   ');  writeln(nazwisko);
write('Oena z Jezyka Polskiego: ');     writeln(o[i].ozp);
write('Ocena z Historii: ');         writeln(o[i].ozh);
write('Ocena z Matematyki: '); writeln(o[i].ozm);
write('Ocena z Fizyki: '); writeln(o[i].ozf);
write('Ocena z Biologi: '); writeln(o[i].ozb);
write('ZACHOWANIE:  '); writeln(zach);
end;
end;
if pom=0 then writeln('Nie ma osob spelniajacych kryteria.');
end;

procedure szukZ;
var i,pom:byte;
t:string[20];
begin
pom:=0; {zmienna pomocnicza - jesli nie bedzie osob spelniajacych warunku wyszukiwania}
assign(f,'dziennik.dat');
reset(f);            {otwieram plik, nie po raz pierwszy}

write('Podaj szukane zachowanie: ');
read(t);   {podaje Imie ktore mam wyszukac}
while not eof(f) do
begin
read(f,o[i]); {wczytuje do "f" tablice "o[i]"}
with o[i] do   { wykonuje z tabl "o[i]"}
if t=(o[i].zach) then    {jezeli wczesniej podane "t"= Imienu wczytuje wszystkie dane szukanej osoby}
begin
pom:=1;
write('Nr: '); writeln(nr);
write('Imie: '); writeln(imie);
write('Nazwisko:   ');  writeln(nazwisko);
write('Oena z Jezyka Polskiego: ');     writeln(o[i].ozp);
write('Ocena z Historii: ');         writeln(o[i].ozh);
write('Ocena z Matematyki: '); writeln(o[i].ozm);
write('Ocena z Fizyki: '); writeln(o[i].ozf);
write('Ocena z Biologi: '); writeln(o[i].ozb);
write('ZACHOWANIE:  '); writeln(zach);
end;
end;
if pom=0 then writeln('Nie ma osob spelniajacych kryteria.');
end;

procedure szuk;  {szukaj}
var t:byte;

begin
clrscr;
textcolor(4);
writeln('Witaj ponownie, wedlug czego zamierzasz szukac?');
writeln('1. Wedlug Imienia.');
writeln('2. Wedlug Nazwiska.');
writeln('3. Wedlug Zachowania.');
textcolor(15);
readln(t);
if t=1 then
begin
clrscr;
szukI;
end else

if t=2 then
begin
clrscr;
szukN;
end else

if t=3 then
begin
clrscr;
szukZ;
end;

end;

procedure edyt;  {edytuj }
var i,pom:byte;
t:string[20];
begin
pom:=0; {zmienna pomocnicza - jesli nie bedzie osob spelniajacych warunku wyszukiwania}
clrscr;
assign(f,'dziennik.dat');
reset(f);
write('Podaj nr osoby ktora chcesz edytowac: ');
readln(t);

begin
for i:=1 to 3 do
read(f,o[i]);  {wczytuje do f o[i]}
with o[i] do
if t=(o[i].nr) then      {patrz procedura powyzej}
begin
pom:=1;
write('Imie:  '); readln(o[i].imie);
write('Nazwisko:   ');  readln(o[i].nazwisko);
write('Oena z Jezyka Polskiego: ');      readln(o[i].ozp);
write('Ocena z Historii: ');         readln(o[i].ozh);
write('Ocena z Matematyki: '); readln(o[i].ozm);
write('Ocena z Fizyki: '); readln(o[i].ozf);
write('Ocena z Biologi: '); readln(o[i].ozb);
write('ZACHOWANIE:  '); readln(zach);
write(f,o[i]); {zapisuje dane}
end;
end;
if pom=0 then writeln('Nie ma osob spelniajacych kryteria.');
end;

procedure cys;   {procedura czysci ekran}
begin
clrscr;
end;

procedure menu;
var q:byte;
begin
textcolor(4);
writeln(' Witaj co zamierzasz robic?');
writeln('1. Podac dane do dziennika.');
writeln('2. Wypisac dane z dziennika.');
writeln('3. Dopisac osoby do dziennika.');
writeln('4. Wyszukac osobe w dzienniku.');
writeln('5. Edytowac osobe w dzienniku.');
writeln('6. Wyczyscic ekran.');
textcolor(4+128); {4 czyli kolor czerwony + 128 oznacza migotanie (red+blink)}
writeln('7. Zakonczyc program.');
textcolor(15);
readln(q);
begin  {cialo wyboru poszczegulnych opcji}
if q=1 then
begin
z;
menu;
end else
if q=2 then
begin
w;
menu;
end else
if q=3 then
begin
dop;
menu;
end else
if q=6 then
begin
cys;
menu;
end else
if q=4 then
begin
szuk;
menu;
end else
if q=5 then
begin
edyt;
menu;
end else
if q=7 then
begin
end;
end;
end;
begin
clrscr;menu;
end.

Publikacja owego programu bez zamieszczenia adresu strony zabroniona. ©

Tagi:

Pascal,

Baza danych pascal,

dziennik pascal, rekordy pascal, turbo pascal, baza danych turbo pascal, program baza danych, dziennik uczniów w pascalu, rekord pascal, zadania pascal, wstęp do programowania, Turbo Pascal, gotowe zadania w pascalu

Ostatnio zaglądając na bloga zauważyłem, że w moich ustawieniach miałem zaznaczoną opcję:

• Allow people to post comments on new articles

z kolei te:

• An administrator must always approve the comment
• Comment author must have a previously approved comment

Były odznaczone co oznacza, że KAŻDY mógł pisać co chciał – raczej powinienem powiedzieć wszystko mogło pisać, bo problem pojawia się wtedy kiedy pojawiają się spamboty (zjawisko z lekka fizyczne – waga problemu jest wprost proporcjonalna do ilość spam botów). I tak gdy po długiej nieobecności zajrzałem na bloga, zauważyłem 4500 zatwierdzonych komentarzy. . .
Trochę się głowiłem co z tym zrobić, dlatego postanowiłem dać opis rowiązania problemu .

Usuwanie

1. Logujemy się na naszego phpMyAdmina
2. Jeśli mamy kilka wordpressów postawionych na jednej bazie to musimy w pliku konfiguracyjnym wordpressa, z którego chcemy usunąć komentarze zobaczyć jaki jest prefix tabeli

Zaglądamy do pliku wp-config.php (na serwerze naszego WordPressa) i szukamy linijki $table_prefix  = ‘wp_’;

gdzie ‘wp_’ to nazwa prefiksu tabeli.

3. W phpMyAdmin przechodzimy do naszej bazy danych, odnajdujemy ‘wp_comments‘ gdzie w miejsce ‘wp_’ powinien się znaleźć TWÓJ prefiks

np: jeśli Twój prefiks to ‘wp_strona_’ wtedy powinieneś przejść do tabeli wp_strona_comments

(dziwna sprawa bo u mnie z jakiegoś powodu tabela nazywała się wp_3_comments, mimo że nazwa prefiksu to ‘wp_’, więc teoretycznia tabela powinna się nazywać wp_comments, ale być może to takie udziwnienie WordPress MultiUser)

4. Przechodzimy do zakładki SQL (jak na rysunku)

5. W miejsce: SELECT * FROM `wp_3_comments` WHERE 1

wklejamy: delete from wp_3_comments where comment_approved = ’1′

Oczywiście ‘wp_3_’ zamieniamy na nasz prefiks

comment_approved = ’1′ oznacza usunięcie komentarzy już zatwierdzonych comment_approved = ’0′ komentarzy niezatwierdzonych

6. Naciskamy wykonaj

Teraz pojawi się nam komunikat o ilości komentarzy jakie zostały usunięte – to wszystko !

Uwaga: Na wszelki wypadek radzę zrobić kopię bazy danych.

]]> http://www.admin.exploracje.com/masowe-usuwanie-komentarzy-z-wordpress/feed/ 5 http://www.admin.exploracje.com/152/ http://www.admin.exploracje.com/152/#comments Tue, 26 Jan 2010 23:59:49 +0000 admin http://www.admin.exploracje.com/?p=152 Bardzo prosty kalkulator wraz z menu napisany z użyciem funkcji. Program prosi o podanie dwóch liczb, następnie pojawia się menu, z którego wybieramy działanie jakie chcemy wykonać na tych liczbach.

program kalkulator;
uses CRT;
var a,b : real;
wybor: integer;

function dodaj ( x, y: real) : real;
var s: real;
begin
	s:=x+y;
	dodaj:=s;
end;

function odejmij( x,y :real) : real;
var r: real;
begin
	r:=x-y;
	odejmij:=r;
end;

function pomnoz( x,y: real) : real;
var n: real;
begin
	n:= x*y;
	pomnoz:=n;
end;

function podziel ( x,y: real):  real;
var z: real;
begin
	z:=x/y;
	podziel:=z;
end;
begin
	writeln('Podaj liczby: ');
	readln(a);
	readln(b);
	writeln('Co chcesz obliczyc?? ');
	writeln(' 1- suma, 2-roznica, 3- iloczyn, 4-iloraz');
	writeln( 'Wybierz 1 lub 2 lub 3');

	readln(wybor);
	case wybor of
		1: begin
		writeln('Suma liczb wynosi: ');
		writeln(dodaj(a,b));
		end;
		2: begin
		writeln('Roznica liczb wynosi: ');
		writeln(odejmij(a,b));
		end;
		3: begin
		writeln('Iloczyn liczb wynosi: ');
		writeln(pomnoz(a,b));
		end;
		4: begin
		writeln('Iloraz liczb wynosi: ');
		writeln(podziel(a,b));
		end;
	else
		writeln('Wolno wybrac tylko 1, 2, 3');
		end;
repeat until keypressed;
end.

program sprawdzanie_liczb;
uses CRT;
var n, i,x,d,u,z: real;
    begin
         clrscr;
         writeln('Program obliczajacy ilosc liczb');
         writeln('');
         writeln('Podaj ilosc liczb: ');
         readln(n);
         d:=0;u:=0;z:=0;
         i:=0;
                 repeat
                 writeln('Podaj kolejna liczbe ');
                 readln(x);
                 i:=i+1;

                 if x>0 then
                 d:=d+1
                 else
                 if x<0 then
                 u:=u+1
                 else
                 z:=z+1;
                 until i=n;
                 writeln('Liczb rownych zero jest: ' ,z);
                 writeln('Liczb ujemnych jest: ' ,u);
                 writeln('Liczb dodatnich jest: ' ,d);
    repeat until keypressed;
    end.