Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 03.12.2014, 19:35   #1 (permalink)
Эд123
Новичок
 
Регистрация: 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)='а'
а дальше как остальные гласные не знаю как написать
Эд123 вне форума   Ответить с цитированием

Старый 03.12.2014, 19:35
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Отправлю вам список похожих обсуждений

Составьте программу в Паскаль
Составить программу, которая выделяет отдельные слова и числа
Составьте программу вычисления объема правильной треугольной пирамиды
Составьте программу, определяющую...
Составьте программу вычисления длины наибольший биссектрисы

Старый 03.12.2014, 20:54   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,167
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

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,167
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

Наверное я не правильно понял второе задание.
Вероятно так правильнее:
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
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:42.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.