ИНФОРМАТИКА, 9 КЛАСС. ТЕМА - ОПТИМИЗАЦИЯ. 3. Что можно сказать о рекламной фразе «Этот крем обеспечивает оптимальный цвет лица»? 4. Зачем нужны ограничения в задачее оптимизации?
Создать index.html с таким кодом: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> <title>Главная страница</title> </head> <body> <iframe src="iframe.html" width="100" height="100" align="left"> Фрейм загружен </iframe> </body> </html>
потом создать iframe.html с таким кодом: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> <title>Сама страница с фреймом</title> </head> <body> <b>Проверка работы фрейма</b> </body> </html>
Procedure P(A:integer); Var B:byte; S,Z:string; Begin if A = 0 then Write('Ноль') else Begin if A < 0 then Begin Z:='минус '; A:=-A; End; B:=A mod 100; if B div 10 = 1 then Case B mod 10 of 0:S:='десять'; 1:S:='одиннадцать'; 2:S:='двенадцать'; 3:S:='тринадцать'; 4:S:='четырнадцать'; 5:S:='пятнадцать'; 6:S:='шестнадцать'; 7:S:='семнадцать'; 8:S:='восемнадцать'; 9:S:='девятнадцать'; End else Begin Case B mod 10 of 1:S:='один'; 2:S:='два'; 3:S:='три'; 4:S:='четыре'; 5:S:='пять'; 6:S:='шесть'; 7:S:='семь'; 8:S:='восемь'; 9:S:='девять'; End; Case B div 10 of 2:S:='двадцать '+S; 3:S:='тридцать '+S; 4:S:='сорок '+S; 5:S:='пятьдесят '+S; 6:S:='шестьдесят '+S; 7:S:='семьдесят '+S; 8:S:='восемьдесят '+S; 9:S:='девяносто '+S; End; End; Case (A div 100) mod 10 of 1:S:='сто '+S; 2:S:='двести '+S; 3:S:='триста '+S; 4:S:='четыреста '+S; 5:S:='пятьсот '+S; 6:S:='шестьсот '+S; 7:S:='семьсот '+S; 8:S:='восеьсот '+S; 9:S:='девятьсот '+S; End; WriteLn(Z+S); End; End; Var A:longint; Begin Write('Введите целое число: ');ReadLn(A); P(A); End.
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Главная страница</title>
</head>
<body>
<iframe src="iframe.html" width="100" height="100" align="left">
Фрейм загружен
</iframe>
</body>
</html>
потом создать iframe.html с таким кодом:
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Сама страница с фреймом</title>
</head>
<body>
<b>Проверка работы фрейма</b>
</body>
</html>
Var
B:byte;
S,Z:string;
Begin
if A = 0 then Write('Ноль')
else
Begin
if A < 0 then
Begin
Z:='минус ';
A:=-A;
End;
B:=A mod 100;
if B div 10 = 1 then
Case B mod 10 of
0:S:='десять';
1:S:='одиннадцать';
2:S:='двенадцать';
3:S:='тринадцать';
4:S:='четырнадцать';
5:S:='пятнадцать';
6:S:='шестнадцать';
7:S:='семнадцать';
8:S:='восемнадцать';
9:S:='девятнадцать';
End
else
Begin
Case B mod 10 of
1:S:='один';
2:S:='два';
3:S:='три';
4:S:='четыре';
5:S:='пять';
6:S:='шесть';
7:S:='семь';
8:S:='восемь';
9:S:='девять';
End;
Case B div 10 of
2:S:='двадцать '+S;
3:S:='тридцать '+S;
4:S:='сорок '+S;
5:S:='пятьдесят '+S;
6:S:='шестьдесят '+S;
7:S:='семьдесят '+S;
8:S:='восемьдесят '+S;
9:S:='девяносто '+S;
End;
End;
Case (A div 100) mod 10 of
1:S:='сто '+S;
2:S:='двести '+S;
3:S:='триста '+S;
4:S:='четыреста '+S;
5:S:='пятьсот '+S;
6:S:='шестьсот '+S;
7:S:='семьсот '+S;
8:S:='восеьсот '+S;
9:S:='девятьсот '+S;
End;
WriteLn(Z+S);
End;
End;
Var
A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
P(A);
End.