Re: krásný jazyk český ( bylo Re: air gap)

[Petr Labaj]

Je tam samozrejme chyba ve vsech prikladech.
Jak jsem to mechanicky opisoval z toho Pascalu aniz jsem
nad tim premyslel, tak v tech cyklech samozrejme ma byt "i<4".
Budiz mi omluvou, ze jsem to psal v pauze pri delani danoveho
priznani, a to clovek udela i vetsi blbosti.

PL

*****************************

From: "Petr Labaj" <labaj na volny.cz>
To: "HW-news" <hw-list na list.hw.cz>
Sent: Thursday, March 28, 2013 3:37 PM
Subject: Re: krásný jazyk český ( bylo Re: air gap)


Treba takhle:

void Save_4B (u16 eeprom_adr, u8 *in_data)
{
u8 i;

   for (i=0; i<3; i++) {
      EEPROM_Write (eeprom_adr, *in_data);
      eeprom_adr++;
      in_data++;
   }
}

Nebo takhle:

void Save_4B (u16 eeprom_adr, u8 *in_data)
{
u8 i;

   for (i=0; i<3; i++) {
      EEPROM_Write (eeprom_adr++, *in_data++);
   }
}

Nebo takhle (mozna blizsi Pascalistum):

void Save_4B (u16 eeprom_adr, u8 *in_data)
{
u8 i;

   for (i=0; i<3; i++) {
      EEPROM_Write (eeprom_adr, in_data [i]);
      eeprom_adr++;
   }
}

PL

************************************

----- Original Message ----- 
From: "RV" <vicek.radek na cpost.cz>
To: "HW-news" <hw-list na list.hw.cz>
Sent: Thursday, March 28, 2013 3:24 PM
Subject: Re: krásný jazyk český ( bylo Re: air gap)


Tak ja uz take lecos pamatuju co se tyka prog. jazyku a i presto mi C 
syntaxe prijde naprosto odporna...prestoze jsem schopen za ty leta cist 
ve vetsine pouzivanych jazyku.

On take clovek nesmi bejt prase.

Co se tyka te neukecanosti - to chcete rict, ze z toho, ze usetrite 
napsani begin jste uplne odvarenej a kvuli tomu je Ccko pro vas lepsi? 
Cekal bych cokoliv jineho, ale tohle mi prijde jako argument z materske 
skolky.

Tak schvalne prepiste v tom Ccku treba tuhle procedurku kterou jsem 
naprosto nahodne vylovil z FW do prave psaneho v Pascalu pro solarni 
regl - at to tedy online porovname

//================================================
procedure Save_4B(var data_address:word, tmp:^byte);
var
   part_byte    : byte;
   i            : byte;
begin
   for i:=0 to 3 do
     begin
       part_byte := tmp^;
       EEPROM_Write(data_address, part_byte);
       Inc(tmp);
       Inc(data_address);
     end;
end;
//================================================


Radek Vicek

Dne 28.3.2013 15:02, Petr Labaj napsal(a):
> Mozna to je tradovany nesmyslny duvod. Ale treba u me urcite ne.
>
> Jakozto veteran jsem taky napred umel jine jazyky - napred Basic,
> pak ve skole Fortran a hlavne pedagogy opevovany Pascal. Za celou
> dobu studia jsem skladal spoustu zkousek v ruznych jazycich, ale
> C mezi nema nebylo.
> Mel jsem do nich i dost zainvestovano, napr. na sve ZX Spectrum
> jsem si koupil (!) prekladac Pascalu (kdo zazil, tak vi, ze v te dobe
> byl castejsi prulet komety nez nakup SW).
>
> Presto vsechno kdyz jsem se potkal s C, tak mi bylo jasne, ze cesta
> vede tudyma. A jeho neukacanost (zadne begin, end, var, ...) byl
> asi nejsilnejsi spousteci motiv. Kdyz jsem se podival na program, tak
> na prvni pohled bylo jasne, co tvori strukturu programu a co jsou
> vlastni vykonne prikazy.
>
> Nakonec to se jiste da zopakovat i dneska s nekym nazatizenym.
> Pokud ma nekdo male dite, ktere jeste o problemu nic nevi, tak
> at ho necha zcela laicky posoudit, v jak napsanem programu se
> mu lip orientuje (dite to samozrejme bude posuzovat pouze
> "obrazkove", ale to pri rychle orientaci dela i znaly clovek).
>
> PL