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

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


textual

Код к задаче: «Если S является допустимым именем файла, то создать пустой файл с именем и вывести True - Pascal ABC»

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.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.385 из 5



Похожие ответы
  1. Напишите программу. В массиве слов найти пару слов,из которых одно является обращением другого.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь

  1. Составить программу, которая вводит с клавиатуры произвольный символ, вычисляет его десятичный код в кодовой таблице и определяет, является ли данный символ буквой русского алфавита, буквой латинского алфавита или цифрой.

  1. Является ли число 6-значтным и выполняется ли следующие условие: сумма первой и четвертой цифр равна сумме второй и пятой и равна сумме третей и шестой

  1. Дано натуральное число n (n 1999). Определить, является ли оно палиндромом («перевертышем»), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 0440. Подсказка. Так как число четырехзначное, то переменная оператора For изменяется от 1 до 4. В переменной с именем m хранится «остаток» числа, в первоначальный момент времени он равен введенному числу. В переменной с именем r формируем значение числа – «перевертыша». Основными операциями являются: r:=10*r + m mod 10 (добавление очередной цифры к числу «перевертышу») и m:=m div 10 (изменение проверяемого числа). Изменения переменных i, m и r см. в таблице.imr–3994013990*10+3994 mod 10=0+4=42394*10+399 mod 10=40+9=493349*10+39 mod 10 =490+9=49940499*10+3 mod 10=4990+3=4993

  1. вводит натуральное число n выводит слово 'yes' если число является степенью 2 иначе 'no'

  1. вводит трехзначное число и проверяет является ли суммая его цифр равная 9

  1. Определить, является ли заданная целая квадратная матрица шестого порядка симметричной (относительно главной диагонали).

  1. Напечатать на экране True, если введенное натуральное число является совершенным, т.е. равным сумме всех своих положительных делителей, кроме самого этого числа (например, число 6 совершенно: 6=1+2+3).

  1. Задание: Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE, - в противном случае (использовать условный оператор нельзя). Уровень 1 1. Треугольник со сторонами a,b,c является равносторонним. 2. Целое число N является четным двузначным числом. 3. Треугольник со сторонами a,b,c является равнобедренным. 4. Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел.