Паскаль,тоже очень надо...

[DjDeniels-61]

Паскаль,тоже очень надо...

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

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

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

 

[Vladimir_S]

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

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

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]

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

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

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,подскажи пожалуйста!

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

 

[DjDeniels-61]

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

 

[Vladimir_S]

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

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

 

[DjDeniels-61]

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

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

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

 

[Vladimir_S]

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

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

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);
END;
k:=0;
FOR i:=1 TO N DO
BEGIN
lng:=Length(SN);
IF (SN[lng-1]='о') AND (SN[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.

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

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=W2 THEN INC(K);
WriteLn('K = ',K:2);
ReadLn;
END.