20.05.2009, 10:47 | #31 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
N=8; M=10; VAR A:ARRAY[1..N,1..M] of INTEGER; ColNum,ColSum:ARRAY[1..M] of INTEGER; i,j,Ncur,p,Number_Neg, Number_Pos:INTEGER; BEGIN Randomize; FOR i:=1 TO N DO FOR j:=1 TO M DO A[i,j]:=Random(100)-50; Number_Neg:=0; FOR j:=1 TO M DO BEGIN p:=0; i:=0; REPEAT INC(i); IF A[i,j]<0 THEN p:=1; UNTIL (p=1) OR (i=N); IF p=1 THEN BEGIN INC(Number_Neg); ColNum[Number_Neg]:=j; ColSum[Number_Neg]:=0; FOR i:=1 TO N DO ColSum[Number_Neg]:=ColSum[Number_Neg]+A[i,j]; END; END; Number_Pos:=0; j:=0; REPEAT INC(j); p:=0; FOR i:=1 TO N DO IF A[i,j]>0 THEN p:=1; IF p=0 THEN Number_Pos:=j; UNTIL (p=0) OR (j=M); FOR i:=1 TO N DO BEGIN FOR j:=1 TO M DO Write(A[i,j]:4); Writeln; END; Write('Column number '); FOR i:=1 TO Number_Neg DO Write(ColNum[i]:6); Writeln; Write(' Column Sums '); FOR i:=1 TO Number_Neg DO Write(ColSum[i]:6); Writeln; IF Number_Pos=0 THEN WriteLn('The matrix contains no negative columns') ELSE Writeln('First negative column number is ',Number_Pos:2); ReadLn; END. |
|
20.05.2009, 12:26 | #32 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Max_Number_of_Words=200; VAR L:ARRAY[1..Max_Number_of_Words] of BYTE; i,Number_of_Words,Min_Lng:Integer; file_inp, file_out, file_interm, file_inf:TEXT; Ch_bef,Ch_aft:Char; S:STRING; BEGIN Assign(file_inp,'D:\x1'); ReSet(file_inp); Assign(file_interm,'D:\x2'); ReWrite(file_interm); Ch_bef:=' '; REPEAT Read(file_inp, Ch_aft); IF ((Ch_bef=' ') AND (Ch_aft<>' ')) OR ((Ch_bef<>' ') AND (Ch_aft<>' ')) OR ((Ch_bef<>' ') AND (Ch_aft=' ')) THEN Write(file_interm, Ch_aft); IF ((Ch_bef<>' ') AND (Ch_aft=' ')) OR (EOLN(file_inp)) THEN WriteLn(file_interm); Ch_bef:=Ch_aft; UNTIL EOLN(file_inp); Close(file_inp); Close(file_interm); ReSet(file_interm); i:=0; REPEAT INC(i); ReadLn(file_interm, S); L[i]:=Length(S); UNTIL EoF(file_interm); Close(file_interm); Erase(file_interm); Number_Of_Words:=i; Min_Lng:=255; FOR i:=1 TO Number_Of_Words DO IF L[i]<Min_Lng THEN Min_Lng:=L[i]; Writeln('The shortest word length is ', Min_Lng); Readln; END. Анализируемая строка должна находится в файле с именем "x1". Впрочем, имена файлов и пути можно изменить. Файл "х2" - временный. |
|
20.05.2009, 14:59 | #33 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
ACC=3; VAR x1,x2,Step,x,y:REAL; Nt:INTEGER; FUNCTION X2np(X:Extended; n:INTEGER):Extended; Var i:INTEGER; Y:Extended; BEGIN IF n=0 THEN X2np:=1 ELSE IF n=1 THEN X2np:=X ELSE BEGIN Y:=X; FOR i:=2 TO n DO Y:=Y*X; X2np:=Y; END; END; PROCEDURE ATG(Xa:REAL; VAR AT:REAL; VAR AN:INTEGER); VAR SUM, a:REAL; i:INTEGER; BEGIN SUM:=Pi/2; i:=-1; REPEAT INC(i); a:=X2np(-1,i+1)/(2*i+1)/X2np(Xa,(2*i+1)); SUM:=SUM+a; UNTIL ABS(a)<1/X2np(10,ACC+1); AT:=SUM; AN:=i+1; END; BEGIN Write('x1 = '); ReadLn(x1); Write('x2 = '); ReadLn(x2); Write('Step = '); ReadLn(Step); Writeln('Argument',' Result ', 'Number of terms ', ' Arctan '); x:=x1-Step; REPEAT x:=x+Step; ATG(x,y,Nt); Writeln(x:7:4,y:8:4,Nt:12,Arctan(x):12:4); UNTIL x>x2; ReadLn; END. Константа АСС - количество значащих цифр после запятой. В последней колонке для сравнения выводится точное значение функции арктангенс. |
|
21.05.2009, 09:09 | #35 (permalink) | |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Цитата:
Var a:array[1..n,1..n] of integer; i,j,S:integer; BEGIN S:=0; For i:=1 to n do begin For j:=1 to n do readln(a[i,j]); end; For i:=2 to n do begin For j:=1 to n do If (i=j+1)or(i=j+2)or(i=j+3)or(i=j+4) then S:=S+a[i,j]; end; writeln('S=',S); END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.05.2009, 10:12 | #38 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Решение, конечно, правильное, и даже в чем-то оригинальное, но не проще ли так: Вместо Цитата:
For j:=1 to i-1 do S:=S+a[i,j]; |
||
21.05.2009, 10:32 | #39 (permalink) | |
Member
Регистрация: 03.03.2009
Сообщений: 87
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 187
|
Цитата:
2. "Получить переменную по ёё имени" в этом задании значит "получить адрес переменной по ёё имени"? |
|
21.05.2009, 11:51 | #40 (permalink) | |
Member
Регистрация: 03.03.2009
Сообщений: 87
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 187
|
Цитата:
Код:
go:-go(state(east,east,east,east),state(west,west,west ,west)). Код:
go:-go(state(east,east,east,east,east,east),state(west,west,west ,west,west,west)). Как досчитает - напишу результат выполнения, совпал ли он с правильным. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
Опции темы | |
Опции просмотра | |
|
|