Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Даны действительные числа c и d. Вычислить функцию a Даны действительные числа c и d. Вычислить функцию a: a=<((c+d)/2 , если c<d; иначе 3; https://www.cyberforum.ru/ turbo-pascal/ thread1182910.html	Turbo Pascal Определить общий заряд батареи конденсаторов Три параллельно соединенных конденсатора емкостью С1, С2, С3 подключены к источнику электрической энергии напряжением U. Определить общий заряд батареи конденсаторов. Qi = Ci*U, Q = Q1+Q2+Q3...
Turbo Pascal Создание программы с использованием процедур и функций модулей Graph и Crt https://www.cyberforum.ru/ turbo-pascal/ thread1182883.html построить график функции y=ln(x+a).пожалуйста помогите:cry:	Turbo Pascal Даны три числовые последовательности a,b, с. Сформировать две новые последовательности x и y по правилам https://www.cyberforum.ru/ turbo-pascal/ thread1182847.html Даны три числовые последовательности a,b и с. Сформировать две новые последовательности x и y в соответствии со следущим правилом: {x}_{i}=min({a}_{i},{b}_{i},r), {y}_{i}=min({b}_{i},{c}_{i},r),...
Жители планеты Х(поверхность которой мы будем считать абсолютно плоской)для перемещения пользуются транспортн Turbo Pascal Добрый день) помогите пожалуйста если не трудно) Жители планеты Х(поверхность которой мы будем считать абсолютно плоской)для перемещения пользуются транспортным средством- пепелац. На расстояние...	Turbo Pascal Написать программу, сравнивающую две рациональных дроби a и b. Использовать тип данных "структура" Написать программу, сравнивающую две рациональных дроби a и b. Использовать тип данных «структура». https://www.cyberforum.ru/ turbo-pascal/ thread1182720.html
Turbo Pascal Определить все слова максимальной длины https://www.cyberforum.ru/ turbo-pascal/ thread1182717.html При выполнении использовать процедуры и функции Написать программу, выполняющую следующие действия. • вводящую последовательность, содержащую от 2 до 50 слов, в каждом из которых от 3 до 8...	Turbo Pascal Найти наибольший элемент заштрихованной части матрицы размерности (на рисунке 1 цифра под буквой б) Найти наибольший элемент заштрихованной части матрицы размерности n*n(на рисунке 1 цифра под буквой б) https://pp.vk.me/c7004/c619617/v619617310/6e14/-RhO3cfpHhE.jpg
Turbo Pascal Вычислить сумму 1+1/1!+1/2!+...+1/n! https://www.cyberforum.ru/ turbo-pascal/ thread1182713.html Вычислить сумму 1+1/1!+1/2!+...+1/n! (через repeat)	Turbo Pascal Дан текстовый файл. Найти количество строк в нем Дан текстовый файл. Найти количество строк в нем. https://www.cyberforum.ru/ turbo-pascal/ thread1182710.html
Напечатать все заглавные латинские буквы, входящие в строку Turbo Pascal Дана строка. Напечатать все заглавные латинские буквы, входящие в нее.	Turbo Pascal Поэлементно сложить два массива размерностью [1..5] https://www.cyberforum.ru/ turbo-pascal/ thread1182703.html Поэлементно сложить два массива размерностью

Svager

399 / 378 / 408

Регистрация: 14.09.2013

Сообщений: 1,204

21.05.2014, 00:51

Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово - Turbo Pascal - Ответ 6202952

21.05.2014, 00:51. Показов 1365. Ответов 2

Метки (Все метки)

Сообщение было отмечено Umnyasha как решение

Решение

Pascal

uses crt;
var s:string;
    c:char;
begin
 write('Ââäèòå ñëîâî :');
  readln(s);
 if s[1] in ['a','e','y','i','o','u'] then
  writeln('Äà ñ ãëàñíîé ')
 else
  writeln('Íåò , íå ñ ãëàñíîé.');
 write('Ââåäèòå áóêâó :');
  readln(c);
 if s[1]=c then
  writeln('Ñîâïàäàåò .')
 else
  writeln('Íåò,íå ñîâïàäàåò.')
end.

Вернуться к обсуждению:
Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.05.2014, 00:51

Готовые ответы и решения:

Составить программу на языке паскаль, которая покажет начинается ли слово введенное с клавиатуры с буквы а
Составить программу на языке паскаль, которая покажет начинается ли слово введенное с клавиатуры с...

Если слово начинается с гласной буквы
Программа, которая считывает из файла 10 слов на англ. языке, и если слово начинается с гласной...

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

Составить программу, которая обращает введенное слово
2. Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.05.2014, 00:51

Помогаю со студенческими работами здесь

Составить программу, которая обращает введенное слово
3.Составить программу, которая обращает введенное слово, т.е. переставляет символы в обратном...

Составить программу, которая обращает введенное слово, т.е. переставляет символы в слове в обратном порядке
Например, мама – амам, Петя – ятеП.

Определить, является ли введенное слово идентификатором, т.е. начинается ли оно с английской буквы в любом регистре или
Определить, является ли введенное слово идентификатором, т.е. начинается ли оно с английской буквы...

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

Наверх