Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
login_abk
0 / 0 / 0
Регистрация: 11.02.2016
Сообщений: 3
1

Генератор VCF, контакты для телефона - нужна критика

11.02.2016, 21:15. Просмотров 1753. Ответов 5
Метки нет (Все метки)

Pascal
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
procedure Номера;
var
  i, j, a, s: integer;
  f: text;
 
begin
  writeln('Введите код оператора(Без нуля)');
  read(a);
  
  writeln('Введите первый номер (Без нуля и кода)');
  read(s);
  
  writeln('Введите количество VCF контактов');
  i := 1;
  read(j);
  assign(f, 'Второй запуск.pas');
  append(f);
  writeln(f, 'begin');
  
  begin
    
    while i <= j do
    begin
      writeln(f, 'assign', '(', 'a', i, ',', '''', i, '.vcf', '''', ');');
      writeln(f, 'rewrite', '(', 'a', i, ');');
      writeln(f, 'writeln', '(', 'a', i, ',', '''BEGIN:VCARD''', ');');
      writeln(f, 'writeln', '(', 'a', i, ',', '''VERSION:2.1''', ');');
      writeln(f, 'writeln', '(', 'a', i, ',', '''TEL;CELL;VOICE:''', ',', '''0''', ',', a, ',', s + i, ');');
      writeln(f, 'writeln', '(', 'a', i, ',', '''END:VCARD''', ');');
      writeln(f, 'close', '(', 'a', i, ');');
      writeln(f, '');
      
      i := i + 1;
    end;
    writeln(f, 'end.');
  end;
end;
 
procedure Переменные;
var
  a, b, i: integer;
  f: text;
 
begin
  writeln('Введите количество переменных(Условие: колич.Переменные = колич.VCF )');
  assign(f, 'Второй запуск.pas');
  rewrite(f);
  write(f, 'var ');
  
  
  begin
    read(b);
    i := 1;
    a := b - 1;
    
    while i <= a do
    begin
      write(f, 'a', i, ',');
      i := i + 1;
    end;
    begin
      if i = b then
        write(f, 'a', b, ' ');
    end;
    writeln(f, ': text;');
    close(f);
  end;
end;
 
begin
  Переменные;
  Номера
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2016, 21:15
Ответы с готовыми решениями:

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

Как достать контакты с телефона
Блин ребят всем привет!!!! В общем я новичек и не знаю что делать накрылся сенсор на телефоне...

Как перенести контакты с телефона на новый
Добрый день. Есть телефон старый, s5830, сегодня перестал брать зарядку, думал...

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

Перенести контакты с одного андроид телефона на другой
Как можно перенести контакты с одного андроид телефона на другой?

5
JuriiMW
2914 / 1484 / 1807
Регистрация: 10.12.2014
Сообщений: 5,936
12.02.2016, 08:27 2
Мой комментарий будет таков: Никому ненужная фигня!
1
login_abk
0 / 0 / 0
Регистрация: 11.02.2016
Сообщений: 3
12.02.2016, 16:20  [ТС] 3
Это фигня рабочая! и это моя первая фигня(первая программа)!
0
JuriiMW
2914 / 1484 / 1807
Регистрация: 10.12.2014
Сообщений: 5,936
15.02.2016, 07:30 4
login_abk, не обижайся!
Просто, такие программы обычно пишутся на формах с более изощрённым функционалом…

А это — ну написал, так написал (Возьми с полочки пирожок ;–)
Проще открывать в любом редакторе и править… К примеру, я использую FAR. В нём нормальный встроенный текстовый с настраиваемой подсветкой.
0
login_abk
0 / 0 / 0
Регистрация: 11.02.2016
Сообщений: 3
15.02.2016, 07:39  [ТС] 5
Этот FAR, что она умеет делать? ну так, в двух словах можешь написать?
0
JuriiMW
2914 / 1484 / 1807
Регистрация: 10.12.2014
Сообщений: 5,936
15.02.2016, 07:48 6
В Википедии посмотри FAR Manager
0
15.02.2016, 07:48
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2016, 07:48

Как перенести контакты из одного телефона в другой?
Здравствуйте! Есть Highscreen Spark, у которого сломался экран, телефон включается, но не реагирует...

Как вынести контакты с телефона, у которого не работает экран?
Добрый день. Как вынести контакты с телефона, у которого не работает экран (тачскрин)? Телефон не...

Схема данных для базы данных аварийных ситуаций: нужна ваша критика
Здравствуйте! Составил для курсового проекта схему базы данных для аварийных ситуаций: можете...


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

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

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