Информатика -продвинутый курс
Составить программу, определяющую количество гласных
Рассмотрим несколько программ, в которых используются строковые величины.
1. Составить программу, определяющую количество гласных в русском тексте, содержащем не более 100 символов.
Здесь удобно определить констант-строку, состоящую из всех 18 строчных и заглавных русских букв, и в цикле проверить, будет ли очередной символ заданного текста элементом констант-строки.
Программа 11
program vowel;
const с:зtring[18]='аеиоуыэюяАЕИОУЫЭЮЯ' ;
var a :string[100]; k,n:integer;
begin
writeln('введите текст'); readln(a);n:=0;
for k:=l to length(a) do
if pos(a[k],c)>0 then n:=n+l;
writeln('кол. гласных=',n) end.
2. Заменить в арифметическом выражении функцию sqr на ехр. Замена выражения sqr на ехр достигается последовательным применением процедур delete и insert:
Программа 12
program stroka;
var a,b:string[40]; k:integer;
begin
writeln('введите строку <= 40 символов');
readin(a);b:=a;
repeat k:=pos('sqr',b);
if k>0 then
begin
delete(b,k,3);insert('ехр',b,k) ;
end
until k=0;
writein('старая строка=',a); writein('новая строка"',b);
end.
3. Ввести и упорядочить по алфавиту 10 латинских слов. В программе определим массив из 10 элементов-строк и упорядочим его элементы методом пузырька.
Программа 13
program order;
const s=10;
type word=string(20] ;
var i, j, k : 1. . s;
b:word; p:boolean; list :array[l..s] of word;
begin
clrscr;writeln<'введите список слов');
for i:=l to s do readln(list[i]);
repeat p:=true;
for i:=s downto 2 do
if list[i]<list[i-l] then
begin
b:list[i);list[i]:=list[i-l]; list[i-l]:=b;p:=false end
until p=true;
writein('упорядоченный список слов:');
for i:=l to s do writeln(list[i])
end.
Множество в Паскале имеет такой же смысл, как и в алгебре - это неупорядоченная совокупность отличных друг от друга однотипных элементов. Число элементов множества не должно превышать 255. В качестве типа элементов может быть любой скалярный тип, кроме типа integer и его интервалов, содержащих числа > 255.
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий