Максимальная длина строки в Паскаль 255 символов. Строки называются динамическими, потому что могут иметь меньшую длину в пределах объявленных границ. Строка объявляется в разделе VAR:
var имя: STRING [длина];
Длину строки указывать необязательно, тогда будет объявлена строка длиной 255 символов.
При попытке записать в переменную строку длиннее, чем объявлена, лишняя часть будет отсечена.
Значением строки может быть любая последовательность символов, заключенная в апострофы.
Строки можно сливать, присваивать и сравнивать.
Строки соединяются с помощью знака «+».
Строки равны, если имеют одинаковую длину и посимвольно эквивалентны.
| Процедуры и функции | Назначение |
| Редактирование строк | |
| LENGTH(S) | Выдает текущую длину строки Например: S:=’магазин’; n:=LENGTH(S); |
| COPY(S,N,L) | Возвращает подстроку длиной L, начинающуюся с позиции N строки S Например: S:=’автоматизация’; S1:=COPY(S,3,5); |
| DELETE(S,N,L) | Удаляет подстроку длиной L, начинающуюся с позиции N строки S Например: S:=’автоматизация’; DELETE(S,8,6); |
| INSERT(SUB,S,N) | Вставляет подстроку SUB, начиная с позиции N строки S Например: S1:=’пока’; S2:=’лом’; INSERT(S2,S1,3); |
| POS(SUB,S) | Ищет первое вхождение подстроки SUB в строку S и возвращает номер первого символа SUB в S или 0, если S не содержит SUB Например: S:=’магазин’; n:=POS(‘а’,S); m:=POS(‘газ’,S); p:=POS(‘о’,S); |
Конференция «PascalABC.NET 2023» – день 1, часть 2
Написать программу, которая делает из слова «строитель» слова «тир» и «тело».
Источник: megalektsii.ru
Презентация на тему ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ
Слайд 1ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ
Слайд 2Ключевые слова
while ( цикл-ПОКА)
repeat (цикл-ДО)
for (цикл с параметрами)
Слайд 3Программирование циклов с заданным условием продолжения работы
Общий вид оператора:
while
do
Здесь:
— логическое выражение; пока оно истинно, выполняется тело
цикла;
— простой или составной оператор, с помощью которого записано тело цикла.
Урок 19. Оператор FOR — цикл с параметром. Программирование на Pascal / Паскаль
Слайд 4program n_14;
var x, y, q, r: integer;
begin
writeln (‘Частное
и остаток’);
write (‘Введите делимое x>>’);
readln (x);
write (‘Введите
делитель y>>’);
read (y);
r:=x;
q:=0;
while r>=y do
begin
r:=r-y;
q:=q+1
end;
writeln (‘Частное q=’, q);
writeln (‘Остаток r=’, r)
end.
Слайд 5Программирование циклов с заданным условием окончания работы
Общий вид оператора:
repeat
оператор2; …; > until
Здесь:
; ; … — операторы, образующие
тело цикла;
— логическое выражение; если оно ложно, то выполняется тело цикла.
Слайд 6program n_15;
var i: integer; x: real;
begin
writeln (‘График тренировок’);
i:=1;
x:=10;
repeat
i:=i+1;
x:=x+0.1*x;
until x>=25;
writeln (‘Начиная с
‘, i, ‘-го дня спортсмен будет пробегать 25 км’)
end.
Слайд 7Программирование циклов с заданным числом повторений
Общий вид оператора:
for :=
to
do
Здесь:
— переменная целого типа;
и — выражения
того же типа, что и параметр;
— простой или составной оператор — тело цикла.
Слайд 8Программирование циклов с заданным числом повторений
Общий вид оператора:
for :=
to
do
После каждого выполнения тела цикла происходит увеличение на единицу
параметра цикла; условие выхода из цикла – превышение параметром конечного значения.
Слайд 9program n_16;
var i,n:integer;a,y:real;
begin
writeln (‘Возведение в степень’);
write (‘Введите
основание a>>’);
readln (a);
write (‘Введите показатель n>>’);
readln (n);
y:=1;
for i:=1 to n do y:=y*a;
writeln (‘y=’, y)
end.
Слайд 10Различные варианты программирования циклического алгоритма
Для решения одной и той же
задачи могут быть созданы разные программы.
Организуем ввод целых чисел
и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль.
В задаче в явном виде задано условие окончания работы.
Воспользуемся оператором repeat.
Слайд 11program n_17;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
write (‘Введите целое число>>’);
readln (n);
if
n>0 then k1:=k1+1;
if n
Слайд 12Ввод осуществляется до тех пор, пока не будет введён ноль.
продолжается, пока n 0.
Воспользуемся оператором while:
program n_18;
var
n, k1, k2: integer;
begin
k1:=0;
k2:=0;
n:=1;
while n<>0 do
begin
writeln (‘Введите целое число>>’);
read (n);
if n>0 then k1:=k1+1;
if n
Слайд 13Самое главное
В языке Паскаль имеются три вида операторов цикла:
while
(цикл-ПОКА)
repeat (цикл-ДО)
for (цикл с параметром).
Если число повторений тела цикла известно,
то лучше воспользоваться оператором for; в остальных случаях используются операторы while и repeat.
Слайд 14Вопросы и задания
1. Дана последовательность операторов:
a:=1;
b:=2;
while a+b
раз будет повторен цикл и какими будут значения переменных a,
b, s после исполнения этой последовательности операторов?
Слайд 15Вопросы и задания
2. Требовалось написать программу вычисления факториала числа n
(факториал числа n есть произведение всех целых чисел от 1
до n).
Программист торопился и написал программу неправильно.
Ниже приведён фрагмент его программы, в котором содержится пять ошибок:
k:=1;
f:=0;
while k
Слайд 16Вопросы и задания
3. Дана последовательность операторов:
a:=1;
b:=1;
repeat
a:=a+1;
b:=b*2;
until b>8;
s:=a+b
Сколько раз будет повторён цикл и какими будут значения переменных a, b, s после исполнения этой последовательности операторов?
Слайд 17Вопросы и задания
4. Напишите программу, в которой осуществляется ввод целых
чисел (ввод осуществляется до тех пор, пока не будет введён
ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел.
Используйте оператор repeat.
Слайд 18Вопросы и задания
5. Напишите программу, в которой осуществляется ввод целых
чисел (ввод осуществляется до тех пор, пока не будет введён
ноль) и определение максимального (наибольшего) из введённых чисел.
Используйте оператор repeat.
Слайд 19Вопросы и задания
6. Напишите программу вычисления наибольшего общего делителя двух
целых чисел:
а) используйте оператор repeat;
б) используйте оператор while.
Слайд 20Вопросы и задания
7. Сколько раз будет выполнен цикл?
а) for i:=0
to 15 do s:=s+1;
б) for i:=10 to 15 do s:=s+1;
в)
for i:=-1 to 1 do s:=s+1;
г) for i:=10 to 10 do s:=s+1;
д) k:=5;
for i:=k-1 to k+1 do s:=s+1;
Слайд 21Вопросы и задания
8. Напишите программу, которая 10 раз выводит на
экран ваши имя и фамилию.
Слайд 22Вопросы и задания
9. Напишите программу, выводящую на экран изображение шахматной
доски, где чёрные клетки изображаются звёздочками, а белые — пробелами.
Слайд 23Вопросы и задания
10. Напишите программу, которая вычисляет сумму:
а) первых n
натуральных чисел;
б) квадратов первых n натуральных чисел;
в) всех чётных чисел
в диапазоне от 1 до n;
г) всех двузначных чисел.
Слайд 24Вопросы и задания
11. Напишите программу, которая генерирует 10 случайных чисел
в диапазоне от 1 до 20, выводит эти числа на
экран и вычисляет их среднее арифметическое.
Слайд 25Вопросы и задания
12. Напишите программу, которая выводит на экран таблицу
степеней двойки (от нулевой до десятой).
Рекомендуемый вид экрана после
выполнения программы представлен ниже:
Таблица степеней двойки:
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
Источник: theslide.ru
Составьте программу, которая позволяет переставить местами, введенные с клавиатуры через пробел, Вашу фамилию и имя.
Максимальная длина строки в Паскаль 255 символов. Строки называются динамическими, потому что могут иметь меньшую длину в пределах объявленных границ. Строка объявляется в разделе VAR:
var имя: STRING [длина];
Длину строки указывать необязательно, тогда будет объявлена строка длиной 255 символов.
При попытке записать в переменную строку длиннее, чем объявлена, лишняя часть будет отсечена.
Значением строки может быть любая последовательность символов, заключенная в апострофы.
Строки можно сливать, присваивать и сравнивать.
Строки соединяются с помощью знака «+».
Строки равны, если имеют одинаковую длину и посимвольно эквивалентны.
| Процедуры и функции | Назначение |
| Редактирование строк | |
| LENGTH(S) | Выдает текущую длину строки Например: S:=’магазин’; n:=LENGTH(S); |
| COPY(S,N,L) | Возвращает подстроку длиной L, начинающуюся с позиции N строки S Например: S:=’автоматизация’; S1:=COPY(S,3,5); |
| DELETE(S,N,L) | Удаляет подстроку длиной L, начинающуюся с позиции N строки S Например: S:=’автоматизация’; DELETE(S,8,6); |
| INSERT(SUB,S,N) | Вставляет подстроку SUB, начиная с позиции N строки S Например: S1:=’пока’; S2:=’лом’; INSERT(S2,S1,3); |
| POS(SUB,S) | Ищет первое вхождение подстроки SUB в строку S и возвращает номер первого символа SUB в S или 0, если S не содержит SUB Например: S:=’магазин’; n:=POS(‘а’,S); m:=POS(‘газ’,S); p:=POS(‘о’,S); |
Написать программу, которая делает из слова «строитель» слова «тир» и «тело».
Источник: poisk-ru.ru