Исследовательско-практическая работа. Программы

1.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «Магнитофон»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ паровоз
❛ ели кашу
Program P_26;
Var Stroka: String [15];
i: Integer;
Begin
ClrSCr;
Write(’Введите строку’);
ReadLn(Stroka);
For i:=Length(Stroka) DownTo 1 Do Write(Stroka[i]);
WriteLn;
ReadKey
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ My name is PiT.
❛ ели кашу
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];
i: Integer;
Begin
Write(’Введите строку’);
ReadLn(Stroka);
Rez:=’ ’;
For i:=1 to Length(Stroka) Do
If Stroka[i]< > ’ ’
Stroka[i];
WriteLn(Rez);
End.
Then
Rez:=
Rez
+

2.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «электростанция»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ 567890986
❛ My_program
❛ станция
Program P_33;
Var Stroka: String [15];
i: Integer;
Begin
ClrSCr;
Write(’Введите строку’);
ReadLn(Stroka);
For i:=Length(Stroka) DownTo 1 Do Write(Stroka[i]);
WriteLn;
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ Мы решаем задачу.
❛ ели кашу
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];
i: Integer;
Begin
Write(’Введите строку’);
ReadLn(Stroka);
Rez:=’а’;
For i:=1 to Length(Stroka) Do
If Stroka[i]< > ’ ’
Stroka[i];
WriteLn(Rez);
End.
Then
Rez:=
Rez
+

3.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «кавалергард»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ паровоз
❛ карамель
Program P_26;
Var Stroka: String [15];
i: Integer;
Begin
ClrSCr;
Write(’Введите строку’);
ReadLn(Stroka);
For i:=Length(Stroka) DownTo 1 Do
Begin
m:= copy(stroka,i,1);
If m=’а’then k:=k+1;
End;
Write(k);
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ My name is PETER.
❛ жизнь
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];
i: Integer;
Begin
Write(’Введите строку’);

4.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
ReadLn(Stroka);
Rez:=’ ’;
For i:=1 to Length(Stroka) Do
If Stroka[i]< > ’ ’ Then Rez:= stroka[i] + Rez;
WriteLn(Rez);
End.
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «лингвистика»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ информатика
❛ паровоз
❛ sportmen
Program P_26;
Var Stroka: String [15];
i: Integer;
Begin
ClrSCr;
Write(’Введите строку’);
ReadLn(Stroka);
For i:=Length(Stroka) DownTo 1 Do
Begin
m:= copy(stroka,i,1);
If m = ’о’then k:=k+1;
End;
Write(k);
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ мамалыга
❛ My name is PETER.
❛ У Маши панама
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];

5.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
i: Integer;
Begin
Write(’Введите строку’);
ReadLn(Stroka);
Rez:=’ ’;
For i:=1 to Length(Stroka) Do
If Stroka[i]< > ’ма’ Then Rez:= Rez + Stroka[i]
Else Rez:= Rez + ’ко’ ;
WriteLn(Rez);
End.
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «филология»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ Computer click
❛ Самолет паровоз
Program P_26;
Var Stroka1, Stroka2,s: String [15];
i: Integer;
Begin
Write(’Введите 1 строку’);
ReadLn(Stroka1);
Write(’Введите 2 строку’);
ReadLn(Stroka2); s:=’’;
For i:= 1 To Length(Stroka1) Do s:=s+stroka1[i]+
stroka2[i]);
WriteLn (s);
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ колокол
❛ forever.
❛ Анатомия
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];

6.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
i: Integer;
Begin
Write(’Введите строку’);
ReadLn(Stroka);
Rez:=’ ’;
For i:=1 to Length(Stroka) Do
If Stroka[i] = ’о’ Then Rez:= Rez + Stroka[i]+’а’
else Rez:= Rez + Stroka[i];
WriteLn(Rez);
End.
Исследовательско-практическая работа.
1. Cоставить 4 новых слова из строки «карамелька»
2. Что выполняет данная программа?
Проверьте на следующих строках:
❛ computer
❛ паровоз
❛ ели кашу
Program P_26;
Var Stroka1, Stroka2,s: String [15];
i: Integer;
Begin
Write(’Введите 1 строку’);
ReadLn(Stroka1);
Write(’Введите 2 строку’);
ReadLn(Stroka2); s:=’’;
For i:= 1 To Length(Stroka2) Do s:=stroka1[i]+
stroka2[i] + s);
WriteLn (s);
End.
3. Что выполняет данная программа?
Проверьте на следующих строках:
❛ длинношеее
❛ forever.
❛ Анатомия

7.

Котова Галина Петровна, учитель информатики МОУ СОШ № 10, Новопокровский район,
Краснодарский край
Program P_27;
Uses Crt;
Var Stroka, Rez: String [25];
i: Integer;
Begin
Write(’Введите строку’);
ReadLn(Stroka);
Rez:=’ ’;
For i:=1 to Length(Stroka) Do
If Stroka[i] = ’e’ Then Rez:= Rez +’р’+Stroka[i]
else Rez:= Rez + Stroka[i];
WriteLn(Rez);
End.