Операции со строками Паскаль 9 класс. S1:=ABCDEFGH; S2:=Мама мыла раму; k1:=length(s1); k2:=length(s2); Что получим в результате? S1:=ABCDEFGH; S2:=abcdefgh;

Презентация:



Advertisements
Похожие презентации
Оператор присваивания := Ввода Read(x1,x2,…) Readln(x1,x2,…) Вывода Writex(x1,x2,…) Writeln(x1,x2,…) Составной оператор begin …. End;
Advertisements

Решение задач. Вариант 1 1. Чему равна максимальная длина строки? 2. При помощи операций копирования и склейки из слова «жемчужина» составить слова: «чужие»,«муж».
Обработка символов строки. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.
Внесите в таблицы значения переменной Х, которые она принимает на k-м шаге цикла в программе stepen _A_n при заданных значениях А и n: 1)A = 2, n = 6 2)
Массивы в Паскале. Создание массива: var a:array [1..5] of integer; i:integer; begin for i:=1 to 5 do begin write ('a[',i,']='); readln(a[i]); end; end.
Процедуры и функции обработки строк Шутилина Л.А.
Program wr_text; var f: text; st: integer; i:integer; begin assign(f,'l1.TXT'); rewrite(f); write('вводите поочередно числа, после ввода очередного числа.
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Задача Разбить предложение по словам. В предложении могут быть знаки «.», «!», «?» и «,»
Шешель Анжелика. Значения: Символьная величина – 1 символ (буква, цифра, знак) Строковая величина – строка символов.
Program Summa; {Суммирование элементов в 1м массиве} Uses Crt; Type Massiv = Array [1..100] of Real; Var A : Massiv; i, N : Integer; S : Real; Begin Write('Введите.
Учитель математики МБОУ «СОШ 2» Перевезенцева Елена Николаевна Г.Новочебоксарск,2011.
АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)
Одномерный массив Turbo Pascal 9 класс. Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл? Var A : array [1..10] of.
СТРОКИ Строковой называется последовательность символов определённой длины. Идентификатор типа – слово String Примеры описания: Var Str1 : String[10];
Гражданин 1 марта открыл счет в банке, вложив 1000 рублей. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить сумму вклада.
Вложенные циклы. Если телом цикла является циклическая структура, то такие циклы называются вложенными.
Типовые алгоритмы обработки числовых данных. Генерация случайных чисел на заданном промежутке [a;b] b Randomize; х:= random(b – а) + а; a x.
Автор разработки: Камалова Нафиса Ахатовна, учитель информатики МАОУ «СОШ 5» МО «ЛМР» РТ 2012 – 2013 учебный год Автор разработки: Камалова Нафиса Ахатовна,
Учитель информатики "СОШ 6" г. Кирова Захарова Е.В. ЦИКЛЫ В ПАСКАЛЕ.
Транксрипт:

Операции со строками Паскаль 9 класс

S1:=ABCDEFGH; S2:=Мама мыла раму; k1:=length(s1); k2:=length(s2); Что получим в результате? S1:=ABCDEFGH; S2:=abcdefgh; S3:=copy(s1,4,3); Writeln(s3); Writeln(copy(s2,4,3)); S1:=ABCDEFGH; Delete(s1,3,4); Writeln(s1); S1:=ABCDEFGH; S2:=abcdefgh; Insert(s1,s2,3); S1:=cde; S2:=ABCDEFGH; K1:=pos(s1,s2); K2:=pos(s2,s1);

program z1; var a,b:string; i,k,r:integer; begin readln(a); readln(b); k:=0; r:=length(a); for i:=1 to r do if a[i]=b then k:=k+1; {if copy(a,i,1)=b then k:=k+1; - можно и так} writeln(k); Readln; end.

program z2; var a,b:string; i,k,r:integer; Begin writeln(введите слово); readln(a); for i:=1 to length(a) do if a[i]='m' then a[i]:='p'; writeln(a); Readln; end.

program z3; var st:string; I,k:integer; begin writeln(введите несколько слов); readln(st); for i:=1 to length(st) do if st[i]:= then k:=k+1; writeln(k); Readln; end.

program z4; var st:string; I:integer; begin writeln(введите строку); readln(st); for i:=1 to length(st) do begin writeln(st[i]); delay(10000); end; readln; end.

program z5; var st:string; Begin writeln(введите строку); readln(st); while (pos(,st)=1) and (length(st)>0) do delete(st,1,1); writeln(st); Readln; end.

program z6; var st:string; I,k:integer; begin writeln(введите строку); readln(st); for i:=1 to length(st) do writeln(copy(st,I,1)); readln; end.

program z7; var st:string; I,k:integer; begin repeat writeln(st=); readln(st); until length(st)>5; writeln(copy(st,1,2),,copy(a,3,length(st)-4),,copy(a,length(st)-1, 2)) ; readln; end.

program z8; var st:string; I,k:integer; begin readln(st); for i:=1 to length(st) do begin if copy(st,I,1)=a then k:=k+1; end; writeln(k); Readln; end.

program z9; var st,st1, St2:string; I,k:integer; begin readln(st); st1:= ; for i:=1 to length(st) do begin st2:=copy(st,I,1); if pos(st2, st1)=0 then st1:=st1+st2; end; writeln(st2); readln; end.