Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Алгоритм Флойда(модифицированный) https://www.cyberforum.ru/ delphi-beginners/ thread2239899.html
У меня виснет программа, и не работает алгоритм Флойда,брал его с вики и попытался реализовать. 160-183 строки - алгоритм. unit Unit1; interface uses Windows, Messages, SysUtils,...
Delphi Undeclared identificatror
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm)
Сетевой чат Delphi
procedure TForm1.FormCreate(Sender: TObject); begin name:=InputBox('ââåäèòå èìÿ ïîëüçîâàòåëÿ','Ëîãèí','Èìÿ ïîëüçîâàòåëÿ íà àíãëèéñêîì'); clntsckt1.Port:=28015; ...
Delphi Очищение массива у меня в массив записывается допустим текст из едита и выводится в label, потом я стираю текст из едита и хочу вывести другой текст в label ввожу другой текст, но у меня в первую очередь идет старый... https://www.cyberforum.ru/ delphi-beginners/ thread2239840.html
Delphi Отчеты в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread2239821.html
Здравствуйте. Подскажите пожалуйста почему у меня между строками большое расстояние и как сделать так, чтобы строки были вместе как таблица. я использовала QReport и компонент QRShape.
Нужна программа Delphi
Может у кого то есть диплом на тему АРМ для дизайнера или АРМ для полиграфии!?Можете скинуть кому не жалко Добавлено через 46 секунд точнее исходник
Delphi Регулярное выражение не работает
Всем привет! Собственно есть строки вида: "2700006 Рулетки измерительные металлические ВТ8М 171.35 •" В Notepad++ подобрал регулярку для поиска числа в конце строки: (?<= )(\d?){2}...
Delphi Как сделать горячую клавишу? например нажимаю сочетание клавиш ctrl+l открывается форма, как это сделать? https://www.cyberforum.ru/ delphi-beginners/ thread2239646.html
Delphi Excel обработка ошибок https://www.cyberforum.ru/ delphi-beginners/ thread2239637.html
Добрый день, писал программу которое копирует данные из одной книги excel в другой, при работе с excel иногда выдает ошибки типо (рисунок 1), подскажите пожалуйста как можно реализовать закрытия...
Delphi Сортировка В общем,нужно создать SDI-приложение,на главной форме будут кнопки выбора метода сортировки(как минимум 6),при нажатии должна открываться форма,там 2 кнопки: генерация и сортировка. Первоначальный... https://www.cyberforum.ru/ delphi-beginners/ thread2239634.html
25 / 0 / 1
Регистрация: 18.03.2018
Сообщений: 236
0

Задача с символьным файлом

04.05.2018, 20:59. Просмотров 794. Ответов 3
Метки (Все метки)


Добрый вечер. Сделал вот такую задачу, но с текстовым файлом, подскажите пожалуйста, как сделать СИМВОЛЬНЫЙ файл, который нормально работает с делфи? И ещё просьба, подскажите как доделать эту задачу, чтобы в случае если оба первых символа не являются числовыми он выдавал соответствующую ошибку?
Условие задачи: Дан символьный файл f. В файле f не менее двух компонент. Определить, являются ли два первых символа файла цифрами. Если да, то узнать, является ли число, образованное этими цифрами, четным.
Моя программа:

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
const
chisla = ['0','1','2','3','4','5','6','7','8','9'];
 
procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;
s,c: string;
i, l: integer;
begin
  Label3.Caption:=('Информация, записанная в файл:');
  AssignFile(f,'file.txt');
  reset(f);
  read(f,s);
  Edit1.Text:=s;
  l:=length(s);
    for i:=1 to l do begin
      if s[1] in chisla then begin
        if s[2] in chisla then begin
        c:=s[1]+s[2];
        end;
      end;
    end;
    Label1.Caption:=('Первые два числа файла : '+c);
    if StrToInt(c) mod 2 = 0 then Label2.Caption:=('Образованное число является четным')
    else Label2.Caption:=('Образованное число является нечетным');
    closefile(f);
  end;


Вернуться к обсуждению:
Задача с символьным файлом
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2018, 20:59
Готовые ответы и решения:

Работа с символьным файлом. Удаление элементов
Доброго времени суток! Помогите, пожалуйста, решить вот такую задачу: &quot;Дан символьный файл,...

Задача по символьным и строковым величинам
Первое слово заменяет последним .С клавиатуры вводится строка,состоящая из четырех слов.

Задача с файлом
Дан файл определить сколько раз встречается в нем слово вывести на экран номер строк где это слово...

Задача с файлом
Плиззззз сделайте задачку, уже незнаю как попросить чтоб сделали её.... Очень нужна ваша помощь. ...

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