1 Востаннє редагувалося galunka_malunka (08.07.2013 15:35:38)

Тема: Delphi робота з рядками

Ввести з клавіатури текст обсягом до 255 символів українською або  англійською мовою. Визначити, яких літер у тексті більше – голосних чи приголосних.
Літери голосні і приголосні треба задати через масив або якось інше, через множину не можна. Ось що в мене було, але викладач не прийняв.

Post's attachments

program Project2.docx 12.87 kb, 10 downloads since 2013-07-08 

2 Востаннє редагувалося koala (08.07.2013 15:30:34)

Re: Delphi робота з рядками

Якби мені роботу, яку треба в Delphi зробити, принесли в вордівському форматі - я б теж не прийняв.
В умові - текст українською. В тексті -
const h=['e','u','i','o','a'];
      p=['q','w','r','t','y','p','s','d','f','h','g','j','k','l','z','x','c','v','b','n','m'];
Щось на кирилицю не схоже.
Ну і не знаючи, що саме сказав викладач, важко вам допомогти. Може, йому щось інше потрібно, а не програма...

3 Востаннє редагувалося galunka_malunka (08.07.2013 15:41:11)

Re: Delphi робота з рядками

ні просто програми зараз на компютері на якому зараз сиджу не має і делфі тоже..
а викладач сказав  використати англійську, а не українську. я зробила так. а викладач сказав ще переробити не використовуючи множини. а я не розуміію як.

4

Re: Delphi робота з рядками

Нема делфі? Яка шкода... У мене теж. Але ж браузер маєш?
http://ideone.com/93x3il
Весь вивід в файл закоментував (його в умові, до речі, і не було).
Заміни множини на рядки - 'aeiou' і т.д. Тоді треба замість виразів a in b поставити пошук в циклі (внутрішньому) - так само, як ти зараз перебираєш літери в реченні, перебирай літери в цих рядках.
Ще бажано було б приводити літери до нижнього регістру (функція LowerCase), щоб великі літери теж відстежувалися.

Подякували: galunka_malunka1

5 Востаннє редагувалося Chemist-i (08.07.2013 16:17:07)

Re: Delphi робота з рядками

galunka_malunka

Прихований текст

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var ss:string;
    k1,k2:integer;
    f:textfile;
    i,j,k: Integer;
    h, p : String;
begin

  try
   assign(f,'o.txt');
   writeln('Wedit text:');
   readln(ss);
   rewrite(f);
   writeln(f,ss);

   h := 'euioaуиєюя';
   p := 'qwrtypsdfhgjklzxcvbnmбвгджзклмнпрстфхцчшщ'; {Множина приголосних літер}

   k1 := 0;
   for i := 0 to Length(h)-1 do
      for k := 0 to Length(ss)-1 do
        begin
          if ss[k] = h[i] then
            begin
              inc(k1);
              break;
            end;
        end;

   k2 := 0;
   for i := 0 to Length(h)-1 do
      for k := 0 to Length(ss)-1 do
        begin
          if ss[k] = p[i] then
            begin
              inc(k2);
              break;
            end;
        end;

    writeln;
    writeln('Kilkist golosnux=',k2);
    writeln('Kilkist prugolosnux=',k1);
    writeln(f,'Kilkist prugolosnux=',k1);
    writeln(f,'Kilkist golosnux=',k2);

    if k1>k2 then
     begin
      writeln('Pryholosnyh bilhe!!!');
      writeln(f,'Pryholosnyh bilhe!!!');
     end
    else
      if k1<k2 then
        begin
          writeln('Holosnyh bilhe!!!');
          writeln(f,'Holosnyh bilhe!!!');
        end
      else
       begin
          writeln('k1 = k2, Count is equal');
          writeln(f,'k1 = k2, Count is equal');
       end;
  Finally
   close(f);
   readln;
  end;

end.

x
Подякували: galunka_malunka1

6

Re: Delphi робота з рядками

дуже дякую...завтра попробую здати...може вже це прийме!!!!