Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
malvinaaa
0 / 0 / 0
Регистрация: 04.04.2011
Сообщений: 14
#1

проверьте пожалуйста (множества) - Delphi

26.06.2011, 14:32. Просмотров 295. Ответов 0
Метки нет (Все метки)

Дан файл. В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в этот текст.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type Mn=set of char;
   var f:textfile;
       B:Mn;
   i:byte;
          procedure formir(var f:textfile; var x:Mn);
   var s:string;
   begin
   x:=[];
   assignfile(f,'Mn.txt');
   reset (f);
   while not eof (f) do
   begin
   readln(f,s);
   for i:=1 to length (s) do
   if s[i] in ['а'..'п','р'..'я']
   then x:=x+[s[i]];
   end;
   closefile(f);
   end;
      procedure print (x:Mn);
      var k:char;
 begin
  for k:=chr(0) to chr (255) do
  if k in x then
  write(k);
   end;
 begin
 formir (f,B) ;
 print(B);
 readln;
 end.
почему то выдает не те буквы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2011, 14:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос проверьте пожалуйста (множества) (Delphi):

Проверьте пожалуйста программу - Delphi
Смотрите, программа должна находить корень уравнения 3-мя методами: дихотомии, хорд, Ньютона. Проблема в том что результаты разные, и я не...

Строка. Проверьте, пожалуйста решение - Delphi
Я помог человеку сделать программу. Но он утверждает, что я ошибся. Выкладываю условие задачи, скриншоты. Пожалуйста, выскажите свое мнение

Проверьте пожалуйста код программ, просто начинаю только изучать нужно проверить ту часть где построение граф - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type ...

TDCB.Flags: Проверьте функцию пожалуйста - Delphi
В общем, курил про установку флагов _DCB (TDCB). Решил написать функцию, которая по множеству флагов, которые необходимо установить, выдает...

Из множества целых чисел от 1 до 30 выделить два множества - Delphi
Помогите пожалуйста)) Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3.

Проверить являются члены множества классов потомками другого множества классов - Delphi
Как проверить являются ли члены множества классов потомками другого множества классов Например, есть четыре множества, являющиеся...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2011, 14:32
Привет! Вот еще темы с ответами:

Очень нужно пожалуйста пожалуйста - Delphi
Укажите ошибки в следущих описаниях

Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3 - Delphi
Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3.

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

Проверьте код - Delphi
Вот тема "Исключительные ситуации". То ли тут вообще написано или надо как-то по-другому? begin try a:=strtofloat (edit1.text); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru