Очакваше се решението грешка на оператора трябва да се коригира - Паскал абв

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 тип PTClient = ^ TClient; TClient = обект; конструктор създаде (стойност: число); функция get_id: цяло число; частен ID: цяло число; приключи; конструктор TClient.create (стойност: число); започне ID: = стойност; приключи; функция TClient.get_id: цяло число; започне get_id: = ID; приключи; грешка: Вместо идентификатор тук на това място: конструктор създаде (тук стойност: число); функция get_id: цяло число;

Той пише в полагане Да, но погрешно vserovno

Cipher се състои от две части: шифровано съобщение и ключът към него. криптиран ключ съобщение и комбинирани в едно съобщение, което се предава на луната: първо матрица съобщение, след това клавиша. Те промените размера, N х N и подредени една зад друга, без пропуски. Ключът се състои от номера от [0..9] и след това буквите от латинската азбука [ 'A' .. 'Z'], което съответства на лексикографски ред. Задължително: Определяне на начина, по който да се разшифрова и да напишете програма, която дава възможност за даден пост, и приложи ключ за декодиране.

Pascal1 2 3 4 5 6 7 8 9 10 програма ди; Var X, Y, Z, т: реално; Започнете writeln ( 'Enter х'); readln (х); Y: ехр (3 * LN (х)) - COS (х + LN (ABS (пл (х) -5)) / LN (10)); Z: ехр (1/3 * LN (пл (син (х) / COS (х)) + 5)) - ехр (3 * LN (син ((пл (х) + LN (х))))); т: (Z + пл (х) * Z / (SQRT (пл (у) + ехр (х))) + пл (у); writeln ( "т = 'т); end.Pishet грешка" очаква оператор "че не написано тук у: ехр (3 * LN (х)) - COS (х + LN (ABS (пл (х) -5)) / LN (10)); pzhl получава:

1-Б: Създаване на програма, която определя дали последователност от елементи от главния диагонал на масива подредени по не-намалява (с про-гледано в горния ляв ъгъл на масива). Ако отговорът трябва да бъде напечатана координати на първия елемент, който разгражда AUC-zannuyu поръчка. Ако поставите точка и запетая след това се предвижда, че преди още да не

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 на: масив от масив от цяло число; п, X, И, Й: цяло число; започне запис ( "N = '); Readln (п); SetLength (а, п, п); х: = N; защото: = 0 до п-1 да започне за к: = 0 до п се започне ако (х> п) след това [Ь, й]: = 0 друг започне [Ь, й]: = х; х: = х + 1; приключи; приключи; х: = п-и-1; приключи; защото: = 0 до п-1 да започне за к: = 0 до п-1 се започва записване (а [Ь, й], ''); приключи; writeln; приключи; readln; край.

Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 програма gKKMMf; Var б, а, х, ч: реален; започне повторение Write ( "Vvedite konez otrezka б"); Прочетете (б); До б> 0; Повторете Write ( "Vvedite snah ч '); Readln (Н); X: = б; докато х = -1) и (и програма не работи или не съответства на описанието. Моля, дайте ни за това, като попълните проста форма. Благодаря ви =) Направете сайта по-добър