- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Обработка строковых данных. Решение задач
Содержание
- 1. Обработка строковых данных. Решение задач
- 2. №1. Требуется найти самую длинную непрерывную цепочку
- 3. Программаvar s:string[100]; i,k,m:integer;beginreadln(s);k:=0; m:=0;for i:=1 to length(s)
- 4. КругляшиНаписать программу, которая определяет, сколько кругляшей в числе. Входные данныецелое число N (0
- 5. Кругляшиvar i, c: integer; S: string; begin
- 6. Четырехзначный палиндромТребуется написать программу, определяющую, является ли
- 7. Решение №1Var s: string;beginreadln(s); If (s[1]=s[4]) and (s[2]=s[3]) then write('YES') else write('NO'); End.
- 8. Решение №2var x, x1, x2, x3, x4:
- 9. ПалиндромТребуется написать программу, определяющую, является ли натуральное
- 10. Решениеvar S: string; i, k, n: integer;
№1. Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. Входные данныеВ единственной строке записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100. Выходные данныеВ единственную строку нужно вывести
Слайд 1Обработка строковых данных
Паскаль АВС
Учитель информатики и ИКТ
МБОУ «Лицей «Дубна»
Жевтило Ирина Аскольдовна
Слайд 2№1. Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей
и единиц.
Входные данные
В единственной строке записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100.
Выходные данные
В единственную строку нужно вывести искомую длину цепочки нулей.
Входные данные
В единственной строке записана последовательность нулей и единиц (без пробелов). Суммарное количество цифр не превышает 100.
Выходные данные
В единственную строку нужно вывести искомую длину цепочки нулей.
Исполнить для
00101110000110
Слайд 3Программа
var s:string[100];
i,k,m:integer;
begin
readln(s);k:=0; m:=0;
for i:=1 to length(s) do
begin
if s[i]='0' then
begin inc(k);
if k >m then m:=k end
else k:=0;
end;
writeln(m);
end.
![Программаvar s:string[100]; i,k,m:integer;beginreadln(s);k:=0; m:=0;for i:=1 to length(s) do begin if s[i]='0' then begin inc(k);](/img/thumbs/39a006bb27889ffee11d511d517d852c-800x.jpg "Обработка строковых данных. Решение задач Программаvar s:string[100]; i,k,m:integer;beginreadln(s);k:=0; m:=0;for i:=1 to length(s) do begin if s[i]='0' then")
Слайд 4Кругляши
Написать программу, которая определяет, сколько кругляшей в числе.
Входные данные
целое число
N (0 <= N <= 10100).
Выходные данные
выведите одно число – количество кругляшей в числе N.
Выходные данные
выведите одно число – количество кругляшей в числе N.
Слайд 5Кругляши
var i, c: integer;
S: string;
begin
c:=0;
readln( s);
for
i:=1to length(s)do begin
if(s[i]='8') then c:=c+2;
if(s[i]='0') or (s[i]='6') or (s[i]='9') then c:=c+1;
end;
write(c);
end.
if(s[i]='8') then c:=c+2;
if(s[i]='0') or (s[i]='6') or (s[i]='9') then c:=c+1;
end;
write(c);
end.
![Кругляшиvar i, c: integer; S: string; begin c:=0; readln( s); for i:=1to length(s)do begin if(s[i]='8') then](/img/thumbs/bd3327f4fa479c368a12902861caa71b-800x.jpg "Обработка строковых данных. Решение задач Кругляшиvar i, c: integer; S: string; begin c:=0; readln( s); for")
Слайд 6Четырехзначный палиндром
Требуется написать программу, определяющую, является ли четырехзначное натуральное число N
палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево.
Входные данные
содержит натуральное число N (1000 ≤ N ≤ 9999).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
Входные данные
содержит натуральное число N (1000 ≤ N ≤ 9999).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
Слайд 7Решение №1
Var s: string;
begin
readln(s);
If (s[1]=s[4]) and (s[2]=s[3]) then write('YES')
else
write('NO');
End.
End.
![Решение №1Var s: string;beginreadln(s); If (s[1]=s[4]) and (s[2]=s[3]) then write('YES') else write('NO'); End.](/img/thumbs/33b819d99cae3a8485c301e09d48c08a-800x.jpg "Обработка строковых данных. Решение задач Решение №1Var s: string;beginreadln(s); If (s[1]=s[4]) and (s[2]=s[3]) then write('YES') else write('NO'); End.")
Слайд 8Решение №2
var x, x1, x2, x3, x4: integer;
Begin
readln(x);
x1 :=
x div 1000;
x2 := x div 100 mod 10;
x3 := x div 10 mod 10;
x4 := x mod 10;
If (x1=x4) and (x2=x3) then
write('YES') else write('NO');
End.
x2 := x div 100 mod 10;
x3 := x div 10 mod 10;
x4 := x mod 10;
If (x1=x4) and (x2=x3) then
write('YES') else write('NO');
End.
Слайд 9Палиндром
Требуется написать программу, определяющую, является ли натуральное число N палиндромом, т.е.
числом, которое одинаково читается слева направо и справа налево.
Входные данные
содержит натуральное число N (10 ≤ N ≤ 32000).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
Входные данные
содержит натуральное число N (10 ≤ N ≤ 32000).
Выходные данные
вывести слово «YES», если число N является палиндромом, или «NO» – если нет.
Слайд 10Решение
var S: string; i, k, n: integer;
Begin
readln(S);
n:=length (S);
For i:=1
to n div 2 do
if a[i]<>a[n-i+1] then k:=0;
if k=1 then write('YES') else write('NO');
End.
if a[i]<>a[n-i+1] then k:=0;
if k=1 then write('YES') else write('NO');
End.
![Решениеvar S: string; i, k, n: integer; Beginreadln(S); n:=length (S);For i:=1 to n div 2 doif a[i]a[n-i+1]](/img/thumbs/eb2a2fe51264f065d93ac4200cba4ce9-800x.jpg "Обработка строковых данных. Решение задач Решениеvar S: string; i, k, n: integer; Beginreadln(S); n:=length (S);For i:=1")
