Pascal задачко.....

[Хыиуду]

1. Завести две переменные, скажем, orderasc и orderdesc, дать им значение true. Пройти в цикле по слову, на каждом шагу сравнивать s с s[i+1]. Если s<s[i+1], то orderdesc:=false. Если наоборот больше, то orderasc:=false. После цикла проверить значение этих двух переменных.

[PUAZN]

Методом касательных вычислить с точностью е корень уравнения 1.8х^4-sin10х=0. Начальное приближение корню равно 0.22.
Циклы с неустановленным числом поторений...

[PUAZN]

type
name1= (IVANOV, PETROV, KONNOV, JAKOVLEV,CHERNOV, HITROV);
name2= (Vasiliy, Uriy, Igor, Mihail, Oleg, Victor);
var
NIN2: array [name1] of name2;
ESTTEZKY: boolean;
Переменной ESTTEZKY присвоить значение true, если в МАССИВЕ NIN2 есть одинаковые имена, и ЗНАЧЕНИЕ false в ПРОТИВНОМ СЛУЧАЕ.
Имена нужно вводить самому.... тема: оджномерные массивы.
тоесть как я понял, нужно вводить только 6 имен, и только те которые в name2

[Naeel Maqsudov]

type
name1= (IVANOV, PETROV, KONNOV, JAKOVLEV,CHERNOV, HITROV);
name2= (Vasiliy, Uriy, Igor, Mihail, Oleg, Victor);
var
NIN2: array [name1] of name2;
ESTTEZKY: boolean;
Переменной ESTTEZKY присвоить значение true, если в МАССИВЕ NIN2 есть одинаковые имена, и ЗНАЧЕНИЕ false в ПРОТИВНОМ СЛУЧАЕ.
Имена нужно вводить самому.... тема: оджномерные массивы.
тоесть как я понял, нужно вводить только 6 имен, и только те которые в name2

Код: Выделить всё

type
name1= (IVANOV, PETROV, KONNOV, JAKOVLEV,CHERNOV, HITROV);
name2= (Vasiliy, Uriy, Igor, Mihail, Oleg, Victor);
var
NIN2: array [name1] of name2;
ESTTEZKY: boolean;

var
  i,j:name1;

begin

 NIN2[IVANOV]:=Vasiliy;
 NIN2[PETROV]:=Uriy;
 NIN2[KONNOV]:=Igor;
 NIN2[JAKOVLEV]:=Mihail;
 NIN2[CHERNOV]:=Oleg;
 NIN2[HITROV]:=Oleg;//Victor;

 ESTTEZKY := false;

for i:=IVANOV to pred(HITROV) do begin
  for j:=succ(i) to HITROV do begin
    ESTTEZKY := ESTTEZKY or (NIN2[i]=NIN2[j]);
  end;
end;

if ESTTEZKY then writeln('Åñòü') else writeln('Íåò');
end.

[PUAZN]

ООООО спсибо огромное!!!!!! всем спасибо что помогли кагда буду большим и умным програмистом тоже буду здесь людям помогать