|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
03.12.2014, 19:35 | #1 (permalink) |
Новичок
Регистрация: 03.12.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y
1. Составьте программу, выясняющую, встречается ли в слове Х первая буква слова Y. 2. Составьте программу подсчета различных гласных букв в слове Х. я начал делать program z52; var x:string; i,p: integer; begin writeln ('введите слово'); readln (x); p:=0; for i:=1 to length(x) do if copy(x,i,1)='а' а дальше как остальные гласные не знаю как написать |
03.12.2014, 19:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам список похожих обсуждений Составьте программу в Паскаль Составить программу, которая выделяет отдельные слова и числа Составьте программу вычисления объема правильной треугольной пирамиды Составьте программу, определяющую... Составьте программу вычисления длины наибольший биссектрисы |
03.12.2014, 20:54 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
1.
var s1,s2: string; n,i: byte; begin Write('Pervoe slovo : '); Readln(s1); Write('Vtoroe slovo : '); Readln(s2); n:=0; for i:=1 to Length(s1) do if s1[i]=s2[1] then Inc(n); if n>0 then Writeln('Da') else Writeln('Net'); Readln; end. 2. var s:string; c:char; i,n:integer; begin Write('Slovo : '); Readln(s); repeat Write('Glassnay ili probel-vihod : '); Readln(c); if c=' ' then break; n:=0; for i:=1 to Length(s) do if s[i]=c then Inc(n); Writeln(c,' = ',n); until c=' '; Readln; end. |
03.12.2014, 21:20 | #3 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Наверное я не правильно понял второе задание.
Вероятно так правильнее: var A:set of char; s:string; c:char; j,n:integer; begin A:=['a','e','i','o','u','y']; Write('Slovo : '); Readln(s); for c:='a' to 'z' do if c in A then begin n:=0; for j:=1 to Length(s) do if s[j]=c then Inc(n); if n<>0 then Writeln(c,' = ',n); end; Readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|