Страница 3 из 3
Re: Pascal задачко.....
Добавлено: 16 дек 2008, 11:53
Хыиуду
1. Завести две переменные, скажем, orderasc и orderdesc, дать им значение true. Пройти в цикле по слову, на каждом шагу сравнивать s с s[i+1]. Если s<s[i+1], то orderdesc:=false. Если наоборот больше, то orderasc:=false. После цикла проверить значение этих двух переменных.
Re: Pascal задачко.....
Добавлено: 20 дек 2008, 13:32
PUAZN
Методом касательных вычислить с точностью е корень уравнения 1.8х^4-sin10х=0. Начальное приближение корню равно 0.22.
Циклы с неустановленным числом поторений...
Re: Pascal задачко.....
Добавлено: 20 дек 2008, 13:56
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
Re: Pascal задачко.....
Добавлено: 23 дек 2008, 01:08
Naeel Maqsudov
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
Код: Выделить всё
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.
Re: Pascal задачко.....
Добавлено: 23 дек 2008, 23:03
PUAZN
