DELPHI. Слова. Даты.

[OKSANO4KA]

Пожалуйста помогите решить три задачки на делфи до 29 числа крайний срок


6) Лабораторная работа №2-01
Программа. Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.
(Сборник упражнений В.Н.Пильщиков 14.35а)

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 s: set of 'a'..'z';
 c: char;
begin
Writeln ('vvedite clova');
read (c);
s:=[];
 while c <> '.' do
  begin
    if c <>',' then
    s:=s+[c];
    read (c);
    end;
    for c:='a' to 'z' do
     if c in s  then
      write(c);
    readln;
    readln;
    readln;
   { TODO -oUser -cConsole Main : Insert code here }
end.

так эту задачу делала я но не получается, путаюсь при задании гласных и что там делать дальше

7) Лабораторная работа №2-02
type
day=1..31;
mon=1..12;
year=1..2000;
date=record
day;
m:mon;
y:year;
end;
{ считать все даты по новому стилю }
Написать программу, использующую функцию kolday(d), подсчитывающую, сколько дней прошло от 1 января 1 года до даты d. (Сборник упражнений В.Н.Пильщиков 13.19в)
9) Лабораторная работа №2-04
Найти самое длинное общее слово двух заданных предложений.


если нужна плата договоримся пишите сюда, в контакт http://vkontakte.ru/id2338883 или в асю 466740754

[Stilet]

6) Лабораторная работа №2-01

подсказываю:

  var a:array['A'..'z'] of char;
 s:string;i:integer;c:char;
begin
 s:='Hello World';
 for i:=1 to length(s) do if pos(s[i],'eyuioEYUIO')<>0 then a[s[i]]:=s[i];
 for c:='A' to 'z' do if a[c]<>#0 then write(a[c]);
 readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

[OKSANO4KA]

Сообщение от Stilet

подсказываю:

  var a:array['A'..'z'] of char;
 s:string;i:integer;c:char;
begin
 s:='Hello World';
 for i:=1 to length(s) do if pos(s[i],'eyuioEYUIO')<>0 then a[s[i]]:=s[i];
 for c:='A' to 'z' do if a[c]<>#0 then write(a[c]);
 readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

я не понимаю, я ж не программист, можно с комментарием??

[artemavd]

var a:array['A'..'z'] of char; //создаем массик букв
 s:string;i:integer;c:char; //s-строковая переменная, n-целочисленная, с-символ
begin
 s:='Hello World'; //наша строка
 //идет цикл от 1 до длины нашей строки s с поиском
 for i:=1 to length(s) do if pos(s[i],'eyuioEYUIO')<>0 then a[s[i]]:=s[i]; 
 //далее присваем поочереди каждую букву нашей символьной переменной с
 for c:='A' to 'z' do if a[c]<>#0 then write(a[c]);
 readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Если что не так, то поправьте.

[OKSANO4KA]

[QUOTE=artemavd;559560]

 for c:='A' to 'z' do if a[c]<>#0 then write(a[c]);
 readln;

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

[Stilet]

что за ноль?

Ну надо же как-то отличать символы, которые нужно вывести на экран от других?
Смысл в том что все гласные из строки помещаются в некий массив, на свои места согласно их символу, остальные места пустые, и имеют код #0
При выводе на экран, какие же гласные есть мы проходим по всему массиву, но отсекаем ячейки где символов нет(#0)

или это только кусок проги?

Нет это вся программа для одной строки.

[OKSANO4KA]

Сообщение от Stilet

Ну надо же как-то отличать символы, которые нужно вывести на экран от других?
Смысл в том что все гласные из строки помещаются в некий массив, на свои места согласно их символу, остальные места пустые, и имеют код #0
При выводе на экран, какие же гласные есть мы проходим по всему массиву, но отсекаем ячейки где символов нет(#0)

Нет это вся программа для одной строки.

а они будут по порядку через запятую выводиться??

[artemavd]

OKSANO4KA, тебе был дан ответ выше.

[OKSANO4KA]

Сообщение от Stilet

Ну надо же как-то отличать символы, которые нужно вывести на экран от других?
Нет это вся программа для одной строки.

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

[Stilet]

Все там правильно. Я же сказал - это только для одной строки.
Если тебе нужно разделить строку на слова то рекомендую:http://www.programmersforum.ru/showt...369#post398369
А далее в цикле по массиву слов проходись и проверяй.