eroare de operare Decizia a fost de așteptat să fie corectată - abc pascal

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 tip PTClient = ^ TClient; TClient = obiect; constructor crea (valoare: integer); Funcția get_id: întreg; ID privat: întreg; se încheie; constructor TClient.create (valoare: integer); începe ID: = valoarea; se încheie; Funcția TClient.get_id: întreg; începe get_id: = ID; se încheie; eroare: identificator de așteptat aici, în acest loc: constructor crea (aici valoare: număr întreg); Funcția get_id: întreg;

El scrie în stabilire da, dar vserovno greșit

Cifrul este format din două părți: un mesaj criptat și cheia pentru ea. Criptată cheie mesaj și combinate într-un singur mesaj, care este transmis la luna: primul mesaj matrice, apoi tasta. Au dimensiune N x N și dispuse unul în spatele celuilalt, fără lacune. Cheia este format din numere de la [0..9] și apoi literele alfabetului latin [ „A“ .. „Z“], care corespunde ordinii lexicografice. Necesar: stabilește modul de descifrare și scrie un program care permite o anumită postare, și să pună în aplicare decodare cheie.

Pascal1 2 3 4 5 6 7 8 9 10 di program; var x, y, z, t: real; Începe writeln ( 'Enter x'); readln (x); y: exp (3 * ln (x)) - cos (x + ln (abs (sqr (x) -5)) / ln (10)); z: exp (1/3 * ln (sqr (sin (x) / cos (x)) + 5)) - exp (3 * ln (sin ((sqr (x) + ln (x))))); t: (z + sqr (x) * z / (sqrt (sqr (y) + exp (x))) + sqr (y); writeln ( 't =' t); eroare end.Pishet "operator așteptat" că nu am scris aici y: exp (3 * ln (x)) - cos (x + ln (abs (sqr (x) -5)) / ln (10)); pzhl da o:

1-B: Crearea unui program care determină dacă o secvență de elemente ale diagonalei principale a matricei comandate de non-scădere (cu pro aspect din colțul din stânga sus al șirului). În cazul în care răspunsul care urmează să fie imprimat coordonatele primului element care rupe ASC-zannuyu prin care se dispune. Dacă introduceți un punct și virgulă, apoi prevede că, înainte de altceva nu

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 var a: array de matrice de Integer; n, x, i, j: integer; începe Write ( 'N ='); Readln (n); Setlength (a, n, n); x: = n; pentru i: = 0 la n-1 nu înceapă pentru j: = 0 până la n do începe if (x> n) apoi [i, j]: = 0 altfel începe o [i, j]: = x; x: = x + 1; se încheie; se încheie; x: = n-i-1; se încheie; pentru i: = 0 până la n-1 nu înceapă pentru j: = 0 până la n-1 se începe a scrie (a [i, j], ''); se încheie; writeln; se încheie; readln; end.

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Programul gKKMMf; var b, s, x, h: real; begin repeat Write ( 'Vvedite konez otrezka b'); Read (b); Până la b> 0; Se repetă Write ( 'Vvedite snah h'); Readln (h); x: = b; în timp ce x = -1) și (e programul nu funcționează sau nu se potrivește descrierii. Vă rugăm să ne dea despre acest lucru prin completarea unui formular simplu. Vă mulțumesc =) Asigurați-site-ul mai bine