A WORD sílusainak gyakorlásához:   Táplálkozás    Légzés    Bőr

Körlevélhez:  adatforras    törzsdokumentum

A 11. excel feladat szövege      Feldolgozandó állománya: M4-11  

A 12. excel feladat szövege      Feldolgozandó állománya: M4-12

M4-10    M4-10B    M4-75   Excel  munkafüzetek 

ACCESS összesítő lekérdezéses feladatok

Egyszikűek bemutató    Saját ingyenes honlap

Gomba rajza       Félévi jegyek

Kromoszómák   Címsor ismétlése    Órarend

Süteményesbolt     Autóeladás

Könyvtáras gyakorló

Relációs adatbázis feltöltve    Mozdony feladat szövege         mozdony nyersállomány 

auto_2018 adatbázis     Könyv adatbázis

Excel mintatáblázatok:  Dunántúli megyék   Dézsás növények eladása

Informatika

Szorzótábla, 10x10-es

Szorzótábla, tetszőleges méretű

Szorzást kikérdező program

Tömb feltöltése és kiíratása 

Csillagszerűen középponttól kiíródó szöveg

Csillagszerűen középpont felé kiíródó szöveg

Sarkokból befelé íródó szöveg

Mit csinálnak a következő programok?

program pelda_1;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=1 to h do write(szoveg[i],szoveg[i]);

   repeat until keypressed;

end.                                                    pelda_1.pas

program pelda_2;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=h downto 1 do write(szoveg[i]);

   repeat until keypressed;

end.                                                  pelda_2.pas

program pelda_3;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=1 to h do

      begin

         gotoxy(30,i);

         write(szoveg[i]);

      end;

   repeat until keypressed;

end.                                                     pelda_3.pas

program pelda_3b;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=1 to h do

      begin

         gotoxy(i,15);

         write(szoveg[i]);

      end;

   repeat until keypressed;

end.                                                     pelda_3b.pas

program pelda_4;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=1 to h do

      begin

         gotoxy(70-i,25-i);

         write(szoveg[i]);

      end;

   repeat until keypressed;

end.                                                     pelda_4.pas

program pelda_5;

uses crt;

var szoveg:string;

    i,h: integer;

begin

   clrscr;

   write('Addj meg egy szoveget! '); readln(szoveg);

   h:=length(szoveg);  writeln; writeln;

   for i:=1 to h do

      begin

         gotoxy(50,20-i);

         write(szoveg[i]);

      end;

   repeat until keypressed;

end.                                                     pelda_5.pas

Mit csinál a következő program?

program feleles1;

uses crt;

var i: integer;

begin

   clrscr;

   for i:=50 downto 10 do write(i/10:10:2);

   repeat until keypressed;

end.

Mit csinál a következő program?

program feleles2;

uses crt;

var i, db, n: integer;

begin

   clrscr;

   randomize;

   write('Adj meg egy számot!  '); readln(db); writeln; writeln;

   for i:=1 to db do

      begin

         n:=random(6)+1;

         writeln(n:4);

      end;

   repeat until keypressed;

end.

Mit csinál a következő program?

program feleles3;

uses crt;

var a,i: integer;

    tarolo: array[1..6] of integer;

begin

   clrscr;

   tarolo[1]:=10;

   tarolo[2]:=20;

   tarolo[3]:=30;

   tarolo[4]:=40;

   tarolo[5]:=50;

   tarolo[6]:=60;

   write('Adj meg egy egész számot 1 es 6 között! ');

   readln(a); writeln;

   writeln(tarolo[a]);

   writeln; writeln;

   for i:=6 downto 1 do writeln(tarolo[i]);

   repeat until keypressed;

end.

Amit a HTML-ről tudni kell