Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 16.04.2012
Сообщений: 13
1

Если S является допустимым именем файла, то создать пустой файл с именем и вывести True

24.04.2012, 07:49. Показов 2241. Ответов 6
Метки нет (Все метки)

помогите решить. срочно надо сегодня сдавать.
Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем S создать нельзя, то вывести False.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 07:49
Ответы с готовыми решениями:

Если S является допустимым именем файла, то создать пустой файл с именем и вывести True
Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и...

Если строка является допустимым именем файла, то создать пустой файл с этим именем
Помогите решить Дана строка S. Если S является допустимым именем файла, то создать пустой файл с...

Регулярные выражения в Delphi: как проверить, является ли строка допустимым именем узла xml?
Доброго времени суток! Нужно определить корректность имени узла XML, вводимого пользователем....

Создать текстовый файл с консоли. Если файл с указанным именем уже существует, то произвести добавление
Создание текстового файла с консоли. Если файл с указанным именем уже существует, то произвести...

6
0 / 0 / 5
Регистрация: 15.06.2015
Сообщений: 9
16.09.2015, 11:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  s:string;
  i,k:integer;
  f:file;
 begin
 readln(s);
 k:=0;
  for i:=1 to length(s) do
    case ord(s[i]) of
     46:inc(k);
     48..57:inc(k);
     65..90:inc(k);
     97..122:inc(k);
    end;
 if k=length(s) then 
  begin
   assign(f,s);
   rewrite(f);
   close(f);
   writeln(true);
  end
  else writeln(false);
  end.
0
Puporev
16.09.2015, 12:44
  #3

Не по теме:

Цитата Сообщение от Евгений1240 Посмотреть сообщение
срочно надо сегодня сдавать.
Прошло всего 3 года...

0
0 / 0 / 5
Регистрация: 15.06.2015
Сообщений: 9
16.09.2015, 16:42 4
я запостил решение не для вышевопрашающего индивида, а для тех, кому надо будет решение задания File1 из задачника Абрамяна
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31243 / 20423 / 7960
Регистрация: 22.10.2011
Сообщений: 35,452
Записей в блоге: 6
16.09.2015, 16:45 5
Alex2341, нет, не допускаю. Это чистой воды набор постов на форуме. Достаточно было в одной теме ответить, а не поднимать все трехлетние темы. Причем решение - то, скажем так, бредовенькое (таким можно было и вообще не отвечать, ни один преподаватель его не зачтет, если он не совсем маразматик), все проще гораздо.
0
0 / 0 / 5
Регистрация: 15.06.2015
Сообщений: 9
18.09.2015, 04:32 6
Бредовенькое? Другого решения для данного задания на форуме да и вообще в интернете нет. Если вы имеете в виду решение через CanCreateFile, то PascalABC и интегрированный с ним задачник Абрамяна на его сайте такое решение не пропускает
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
18.09.2015, 07:10 7
Достаточно проверить есть ли в имени запрещенные символы.
https://msdn.microsoft.com/ru-... s.90).aspx
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2015, 07:10

Ошибка - "не является допустимым именем входа или отсутствует разрешение."
Здравствуйте, при выполнении вот этого скрипта /****** Object: Database Autovokzaly Script...

Проверить, является ли человек с именем b потомком человека с именем а
Считая уже описанными функции Папа (х), Мама (х), значениями которых являются имена соответственно...

saveFileDialog как создать новый файл с указанным именем, если его не существует
Добрый вечер! У меня на форме в меню есть пункт "Сохранить как...", я хочу, чтобы при нажатии на...

While4°. Дано целое число N (> 0). Если оно является степенью числа 3, то вывести true, если не является — вывести false.
While. Дано целое число N (> 0). Если оно является степенью числа 3, то вывести true, если не...


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

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

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