DjDeniels-61

1)Составить процедуру, "рисующую" по перемитру экрана рамку из символов "*"

2)написать рекурсивную функцию для расчета степени n вещественного числа а (n-натуральное число)

Спасибо большое!!!

Vladimir_S

USES CRT;
VAR
i,j:INTEGER;
BEGIN
GoToXY(1,1);
FOR j:=1 TO 79 DO
Write('*');
Writeln;
FOR i:=2 TO 24 DO
BEGIN
Write('*');
FOR j:=2 TO 78 DO
Write(' ');
WriteLn('*');
END;
FOR j:=1 TO 79 DO
Write('*');
READLN;
END.

Vladimir_S

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;

DjDeniels-61

Почему он выдает ошибку на ELSE,подскажи пожалуйста!

Vladimir_S

На каком именно ELSE (там их два)? Программу переносил через copy-paste или набивал? Во всяком случае, я сам пользуюсь этой функцией многие годы. Проверь еще раз, нет ли ошибки в набивке. Должна работать.

DjDeniels-61

В первом,два раза вбивал...

Vladimir_S

Выложи сюда через copy-paste свою набивку.

DjDeniels-61

Все пасибо разобрался!
Но появилась новая проблемка,поможешь?

1)определить,сколько фамилий в списке имеют окончание "ов".

2)Данны два слова одинаковой длины.
присвоить переменной К число,равное кол-ву попарно одинаковых букв.

Vladimir_S

CONST
N=10;
VAR
SN:ARRAY[1..N] of STRING;
k,lng:BYTE;
i:INTEGER;

BEGIN
FOR i:=1 TO N DO
BEGIN
Write('Enter the Surname ',i:2,' ');
ReadLn(SN[i]);
END;
k:=0;
FOR i:=1 TO N DO
BEGIN
lng:=Length(SN[i]);
IF (SN[i][lng-1]='о') AND (SN[i][lng]='в') THEN Inc(k);
END;
IF k=0 THEN Writeln('There are no surnames ending with "ов"') ELSE
Writeln('There are ',k:2,' surnames ending with "ов"');
ReadLn;
END.


VAR
W1,W2:STRING;
K,lng:BYTE;
i:INTEGER;

BEGIN
Write('Enter the first word ');
ReadLn(W1);
Write('Enter the second word ');
ReadLn(W2);
lng:=Length(W1);
K:=0;
FOR i:=1 TO Lng DO
IF W1[i]=W2[i] THEN INC(K);
WriteLn('K = ',K:2);
ReadLn;
END.