Алгоритмизация и программирование

I) Постановка задачи- корректна;

II) Математическая модель:

Исходные  данные: M є строка

Выходные  данные: є строка

Связь: =

 

III) Алгоритмизация.

 

 

 

 

 

 

 

V) Тестирование.

Исходные данные	Результат
M
()	0
)	-1
(	-1
@	ДСТ
*	ДСТ

V) Программный код

Var M,:String; x: integer; i:byte;                               

Begin

M:= edit1.Text;

:= edit2.Text;

X:=Length (M);

For i:=0 to -1 do

If M[i]=’правильно’ then

=’0’;

If M[i]=’нет’ then

=’-1’;

else

Show Message ();

End;

End.