Определить, все ли гласные содержатся в заданной строке - Pascal

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


textual

Код:

const gl='aeiou';
var s:string;
    i,k:integer;
begin
writeln('Введите строку из строчных латинских букв');
readln(s);
k:=0;
i:=1;
while(i<=length(gl))and(k=0) do
if pos(gl[i],s)=0 then k:=1
else inc(i);
if k=0 then write('Все гласные есть в строке')
else write('Не все гласные есть в строке')
end.

Блок-схема:

Блок-схема к задаче: Определить, все ли гласные содержатся в заданной строке - Pascal

Похожие ответы
  1. В заданной строке текста слова разделены произвольным числом пробелов. Выписать все слова, в которых отсутствуют буквы(б,в,г,д,с,л,м,н,р).

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

  1. Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами.

  1. Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

  1. В расписании движения поездов по станции Масловка указаны: номера поездов , пункты следования, время прибытия и отправления, направления следования (южное, северное, западное, восточное). Сколько поездов следует в каждом из направлений?

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

  1. Ребят,помогите пожалуйста,будьте добры. Надо составить программки в Паскале. Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач: Задано n точек. Определить, сколько из них находится внутри прямоугольника.

  1. Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы входящие в текст по одному разу.


Нашли ошибку?
Развитие проекта