program z 3; usescrt; var i: integer; b: real; program z 1; begin usescrt; for i: =1 to 20 do var i: integer; s: longint; begin b: = sqrt(i); s: =0; writeln (i: 4, b: 7: 2); end; for i: =1 to 100 do end. s: =s+sqr(i); writeln (s); end.
Тема урока: Строковый тип данных. Program primer 1; Var a, b, c, s: string; Begin S: =‘Мистика’ A: =copy(S, 2, 4); A: =A+’на’; B: =‘где-то там’; delete(B, 7, 4); S: =‘рядовой’; C: =copy(s, 1, 4); C: =C+’м’ S: =A+’ ’+B+’ ’+C+’!’ writeln(S); End.
1. Функция Pos(S 1, S) - обнаруживает позицию подстроки S 1 в строке S k: =pos(‘as’, ‘assa’) k=1 m: =pos(‘as’, ‘miraspas’) m=4 l: =pos(‘r’, ‘site’) l=0 Чему равно x? x: = pos(‘Саша’, ‘Шла Саша по шоссе. ’) x=
2. Функция length(S) – длина строки k: =length(‘Идет урок’); k=9 k: =length(‘Информатика’); к=
3. Функция copy(S, Pos, N) – выделяет из строки S, начиная с позиции Pos, подстроку длиной n символов. Например, S: =’Информатика’ S 1: =copy(S, 3, 5) S 1=’форма’ Чему равна строка M? M: =copy(S, 1, 4) M=
4. Процедура delete(S, pos, N) – удаляет N символов из строки S, начиная с позиции pos. S: =’absdef’; delete(S, 3, 2); S=’abef’ delete(S, 2, 6); S=’a’ Чему станет равной строка M после выполнения операторов? М: =’Мой родной город’ delete(M, 5, 7) M=
5. Процедура insert(S 1, S, pos) – вставляет подстроку S 1 в строку S, начиная с позиции pos. S: =’мир’; insert(‘ку’, S, 1); S=’кумир’; Чему станет равной строка M после выполнения операторов? М: =’моток’ insert(‘ло’, M, 3) M=
6. Val(s, v, code) процедура s - string, v - integer, real, и code - integer преобразует строку s к числовому представлению и записывает результат в переменную v. Если преобразование возможно, то в переменной code возвращается 0, если невозможно, то в code возвращается ненулевое значение S: =’ 65’; Val(s, v, code) V=65 S: =’ 198’; Val(s, v, code) V=
Str(x, s) процедура s - string, x преобразует x к - integer, строковому real представлению X: =897; Str(x, s) S: =
Concat(s 1, . . . , sn) функция S 1: =‘инфор’; S 2: =‘матика’; S: =Concat(s 1, s 2) S: = s 1, . . . , sn - string возвращает строку, являющуюся результатом слияния строк s 1, . . . , sn. Результат тот же, что у выражения s 1+s 2+. . . +sn
Тема урока: Строковый тип данных. Program primer 1; Var a, b, c, s: string; Begin S: =‘Мистика’ A: =copy(S, 2, 4); A: =A+’на’; B: =‘где-то там’; delete(B, 7, 4); S: =‘рядовой’; C: =copy(s, 1, 4); C: =C+’м’ S: =A+’ ’+B+’ ’+C+’!’ writeln(S); End.
1. Функция соединения Concat (s 1, s 2, . . . , sn). Значение функции – результат соединения строк s 1, s 2, . . . , sn, не превышающая 255 символов. s: =s 1+s 2+…+sn; • Var • s, s 1, s 2, s 3: string; • begin – Readln (s 1, s 2, s 3); – s: =s 1+s 2+s 3; – Writeln (s); • end.
2. Функция определения длины строки Length (s), вычисляется количество символов, составляющее значение строки s: • var • s, s 1: string; • k: integer; • begin – Readln (s); – k: = Length (s); – Writeln (k); • end.
3. Функция выделения copy (s, i, k). Из строки s выделяются k символов, начиная с i-го символа: • Var s, s 1: string; • I, k: integer; • begin – Readln (s); – s 1: =copy (s, 4, 3); – Writeln (s 1); • end.
4. Функция определения позиции - pos (s, t). - вычисляется номер позиции, начиная с которого строка s первый раз входит в строку t; - результат « 0» , если строка s не обнаруживается в строке t: • var • s, t: string; • k: integer; • begin – Readln (t, s); – k: = pos (s, t); – Writeln (k); • end.
1. Процедура удаления delete(s, i, k). Из строки s удаляются k символов, начиная с i-го символа: • var • s, t: string; • k: integer; • begin – readln(s); – delete (s, 4, 3); – writeln(s); • end.
2. Процедура вставки – insert(s, t, i). Строка s вставляется в строку t, начиная с позиции i: • var • s, t, m: string; • k: integer; • begin – readln (s, t); – insert (t, s, 8); – writeln (s); • end.
3. Процедура преобразования числа в строку символов – str(k, s): • var • s, t, m: string; • k: integer; • begin – readln (k); – str (k, s); – writeln (s); • end.
4. Процедура преобразования строки из цифр в число - val(s, k, i). Значение i=0, если в строке s нет символов, отличных от цифр, в противном случае i= номер позиции первого символа, отличного от цифры: • var • s, t, m: string; • k, i: integer; • begin – readln (s); – val (s, k, i); – writeln (s, ‘ k: =’, k, ‘ i: =’, i ); • end.
• Задача № 1: Определить длину строки "Урок информатики". • Задача № 2: Получить из слова "математика" слово "тематика". • Задача № 3: Получить из слов "Язык", "Turbo", "Pascal" фразу "Язык Turbo Pascal". • Задача № 4: Какова позиция буквы "о" в слове "Слон". • Задача № 5: Получить из слова "Позитроника" слово "трон". • Задача № 6: Получить из слов "Интер", "нет" слово "Интернет". • Задача № 7: Преобразовать число 105 в строку, а "67" в число 67. • Задача № 8: Преобразовать "aлгебра" в «алжир» • Задача № 9: Получить из "Назарбаев Интеллектуальные Школы" слово "НИШ". • Задача № 10: Получить из слов "Колледж", "эффективный" слово "Коллектив". • Задача № 11: Преобразовать число 204 в строку, а "95" в число 95. • Задача № 12: Преобразовать «Информатика» в «формативка»
Үйге тапсырма 1. Аптаның күн номерін 1 -7 санаралығында енгізгенде номерге сәйкес келетін күннің атын шығару керек. 2. Сол күннің номерін дұрыс енгізгенге дейін қайталап енгізуді сұрап отыруы керек. 3. 1. . . 10 дейінгі сандардың көбейтіндісін табатын программа жазыңыз. 4. Атыңызды және тегіңізді жеке - жеке енгізіңіз. Әр қайсысының ұзындығын және біріктіріп жауапқа шығарсын
