Практическая работа №3.
Тема: "Строковые и логические величины в языке Pascal»".
Цель: научиться работать со строковыми и логическими величинами в программе.
Ход работы:
Задание 1. Составить программу, определяющую длину введенного вами слова.
1. Откройте среду программирования Pascal.
2. Введите программу:
program dlina;
uses crt;
var s: string; t:integer;
begin
clrscr;
writeln (‘Введите произвольное слово’);
readln (s);
t:=length(s);
writeln (‘длина слова равна’,t);
readkey;
end.
3. Проверьте программу на наличие ошибок и запустите на выполнение.
Задание 2. Составить программу, определяющую истинность высказывания "Число n является четным"
program chetn;
uses crt;
var n: integer; a: boolean;
begin
clrscr;
write ('Введите исходное число');
readln (n);
a:=n mod 2=0;
writeln ('Число ', n,' является четным - ', a);
readkey;
end.
Самостоятельная работа
1. Склеить 2 произвольно введенных слова.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.