Цикл с предусловием имеет следующий вид:
While <логическое выражение> do <тело цикла>
Цикл выполняется до тех пор, пока истинно логическое выражение.
Практический материал:
Задание 1.
Составьте программу вычисления произведения трехзначных чисел. Используйте цикл while.
Задание 2.
Составить программу, вычисляющую произведение нечетных чисел, входящих в интервал [2; 15].
Задание 3.
Во дворце 20 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.
1. Используя фрагмент программы, вычисляющую параметры одного зала, вычислите площадь и объем для 20 залов.
2. Составьте программу на языке Паскаль.
Readln (dlina, shirina, visota);
S:= dlina*shirina;
V:= S*visota;
Writeln ('объем =' ,V);
Writeln ('площадь=', S);
Теоретический материал:
Функции и процедуры работы со строками
Copy . Функция Copy (s: string; start, len: integer): string; выделяет из строки s подстроку длиной len символов, начиная с позиции start.
Delete . Процедура Delete (var s: string; start, len: integer); удаляет из строки s подстроку длиной len символов, начиная с позиции start.
Insert . Процедура Insert (subs: string; var s: string; start: integer); Позволяет вставить в строку s другую строку subs, начиная с позиции start.
Pos . Функция Pos(subs, s: string):Byte; Позволяет определить, входит ли подстрока subs в строку s. Эта функция возвращает число, соответствующее позиции, начиная с которой subs входит в s. Если subs не входит в s, то возвращается ноль. Если subs входит в s несколько раз, то функция Pos вернет число, соответствующее первому слева вхождению.
|
|
|
Length . Функция Length(s: string): Byte; Возвращает число, соответствующее текущей длине строки s.
Concat. Функция Concat(s1,s2,s3,…,sn: string);
объединяет строки s1,…,sn в одну.
Char.Функция возвращает символ
Ord. Функция возвращает код символа.
Практический материал:
Задание 1.
Закончите оформление программы, образующую из трех строк одну. Третья строка содержит Ваше имя.
Program ……….
………. s1, s2, s3, s4: string;
……….
s1:= 'Меня'
s2:= 'зовут'
s3:= ' '
s4:= s1+s2+s3
……….
Задание 2.
Составьте программу на языке Паскаль, удаляющую из слова 'полночь' первые три буквы.
Задание 3.
Составьте программу на языке Паскаль, которая удаляет все цифры из строки.
Задание 4.
Составьте программу, которая добавляет букву а к слову 'полк'.
Задание 5.
Закончите оформление текста программы, которая определяет код введенного символа.
Program symbol;
………. ch: char;
kod: integer;
……….
………. ('Введите букву');
………. (…);
kod:=ord(ch);
………. ('Символ: ',ch, 'имеет код', kod);
……….
Задание 6.
Составьте программу на языке Паскаль, определяющую букву по соответствующему ей коду.
Задание 7.
Составьте программу на языке Паскаль, заменяющую в строке букву а на букву о.
|
|
|
Дата добавления: 2019-03-09; просмотров: 68; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!