Cum se traduce în Pascal

usig System; usig System.Collectios.Geeic; usig System.Text; amespace CosoleApplicatio1; foeach (l eia) Cosole.Wite ( "", e); Cosole.WiteLie (); ea Nach = 0, Koech = 0, maxKoech = 0; fo (l i = 0; i > Acesta [] a2 = ew ea [a.Legth - maxKoech]; fo (l i = 0, j = 0; i = (Nach + maxKoech)) Cosole.WiteLie ( ""); Cosole.WiteLie ( "\ ism array:"); Cosole.WiteLie ( ""); foeach (ea ei a2) Cosole.Wite ( "", e) ; Cosole.WiteLie ( "\\ împlinit"); Cosole.ReadLie (); >>>

Pascal: cum să traducă în Pascal

Scrieți un program în Pascal pentru a calcula expresia poformule (valoarea lui x pentru a le alege) √ | x - 2 | + Si (x ^ 2 - 8) | x-2 | sub rădăcină

Artyom de la Soci (oaspeți) 2 raspunsuri

Scrieți un program în Pascal pentru a calcula expresia poformule (valoarea lui x pentru a alege propria lor) (√ | x - 2 |) + si (x ^ 2 - 8)

Scrieți problema în Pascal: numere întregi de intrare tastatură. Un semn al sfârșitului de intrare un număr par. S Găsiți chiar negativ; numărul de unități la 100

216977 216978 279598

Jaroslav K (vizitator) 3 ani în urmă

Ei bine, să fiu sincer sensul secret al algoritmului și a dat seama că era lene. Dar Pascal tradus. Cred că cel puțin merită un răspuns mai bun.

var
a: array [0..19] de Integer \ u003d (4, 6, 3, 12, 6, 8, 4, 7, 8, 2, 0, 5, 0, 2, 2, 2, 2, 2, 2, 2);
a2: matrice de Integer;
i, j, Nach, Konech, maxKonech. integer;

începe
i: \ u003d0;
pentru i: \ u003d0 la Lungime (a) -1 do
începe
Writeln (a [i]);

Nach: \ u003d 0;
Konech: \ u003d 0;
maxKonech: \ u003d 0;

pentru i: \ u003d0 la Lungime (a) -1 do
începe
dacă (a [i] mod 2 \ u003d 0), atunci
începe
inc (Konech);
capăt
altfel
începe
if (Konech maxKonech) atunci
începe
maxKonech: \ u003d Konech;
Nach: \ u003d i - Konech;
se încheie;
Konech: \ u003d 0;
se încheie;
se încheie;

j: \ u003d0;
Setlength (a2, Lungime (a) - maxKonech);
pentru i: \ u003d0 la Lungime (a) -1 do
începe
if ((i \ u003c Nach) sau (i \ u003d (Nach + maxKonech))) atunci
începe
a2 [j]: \ u003d a [i];
inc (j);
se încheie;
se încheie;
Writeln (u0027u0027);
Writeln (array u0027new: u0027);
Writeln (u0027u0027);

pentru i: \ u003d0 la lungime (a2) -1 do
începe
Writeln (a2 [i]);
se încheie;
Writeln (u0027u0027);
Writeln (u0027endu0027);

vbcnthw (oaspeți) 3 ani în urmă