Выполнение практических заданий из различных предметных областей с использованием символьных и строковых переменных
Составить программу, которая предлагает ввести с клавиатуры две строки s и t и выводит на экран более длинную строку.
b then writeln(s) else writeln(t); end . Пример" width="640"
Program sravnenie;
var s,t: string ; a,b:integer;
begin
write( 'Введите первую строку ' );
read(s);
write( 'Введите вторую строку ' );
read(t);
a:=Length(s);
b:=Length(t);
if ab then writeln(s) else writeln(t);
end .
Пример
Составить программу, которая находит позицию пробела в строке s , состоящей из двух слов, разделенных пробелом. Строка вводится с клавиатуры.
Составить программу, которая находит позицию пробела в строке s , состоящей из двух слов, разделенных пробелом. Строка вводится с клавиатуры.
Program poisk;
var s,t: string ;
begin
t:= ‘ ‘ ;
writeln( 'Введите строку состоящую из двух слов ' );
read(s);
writeln(Pos(t,s);
end .
Пример
Составить программу, которая позволяет вывести на экран первое слово строки s , состоящей из двух слов, разделенных пробелом. Строка вводится с клавиатуры.
Program poisk2;
var s,n: string ; t:char; a:integer;
begin
t:=( ' ' );
writeln( 'Введите строку состоящую из двух слов ' );
read(s);
a:=Pos(t,s);
n:=copy(s,1,a-1);
writeln(n);
end .
Пример
Решите задачи
Задача 1.
Составить программу, которая определяет, равны ли длины строк s и t . Строки вводятся с клавиатуры. Ответ должен быть в виде «Да» или «Нет».
Задача 2.
Составить программу, которая находит позицию запятой в строке s , состоящей из двух слов, разделенных запятой. Строка вводится с клавиатуры.
Задача 3.
Составить программу, которая позволяет вывести на экран второе слово строки s , состоящей из двух слов, разделенных пробелом. Строка вводится с клавиатуры.
Домашнее задание
§ 5 примеры 1, 2