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

Pascal ABC

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

Вывести первый символ строки - Pascal ABC

24.02.2015, 17:26. Просмотров 1224. Ответов 2
Метки нет (Все метки)

Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки.
Входные данные: Выходные данные:
В единственной строке входного потока дана строка символов, длина которой не превышает 255.
В выходной поток вывести единственный символ.
Пример входного файла (input.txt):
KDSFJHGLKDJGHLSUIRH5HGUHG58HGLAHEJATI8...
Пример выходного файла (output.txt):
K
Помогите найти ошибку у меня
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
End.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2015, 17:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести первый символ строки (Pascal ABC):

Вывести первое слово строки, если первый символ строки-пробел - Pascal ABC
uses crt; var s1, s2, s3, s4 : string; k, n, i : byte; a : set of char; ch : char; begin s2 := ''; s4 := ''; a := ;

Вывести первый символ первой строки файла - Pascal ABC
(пожалуйста с процедурами и функциями) имеется текстовый файл. Написать первый символ первой строки.

Напечатать первый символ первой строки файла - Pascal ABC
Имеется текстовый файл. Напечатать: а) первый символ первой строки; б)пятый символ первой строки; в)первые 10 символов первой...

Напечатать первый символ каждой строки файла - Pascal ABC
Дан текстовый файл. напечатать первый символ каждой строчки.(заранее не извество какой длинной будет строчка и файл)

Удвоить первый символ строки, стоящий после каждого пробела - Pascal ABC
Ваша программа должна в заданном тексте удвоить первый символ, стоящий после каждого пробела.

Имеется текстовый файл. Напечатать: первый символ первой строки - Pascal ABC
Имеется текстовый файл. Напечатать: первый символ первой строки.

2
Cyborg Drone
Модератор
4723 / 2890 / 1126
Регистрация: 17.08.2012
Сообщений: 9,206
01.03.2015, 15:08 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Всё у Вас верно. Только в именах файлов ошибка: не "d:", а "d:\". Естественно, с такой неточностью во-первых, файл не будет найден, и во-вторых, даже если чудо нахождения случится, то не будет создан. Да, если наличие строки в файле гарантировано, то можно проще написать:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var t: Text;
    s: String;
Begin
  Assign(t, 'd:\input.txt');
  Reset(t);
  Read(t, s);
  Close(t);
  Assign(t, 'd:\output.txt');
  Rewrite(t);
  Write(t, s[1]);
  Close(t)
End.
Или так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var t: Text;
    s: Char;
Begin
  Assign(t, 'd:\input.txt');
  Reset(t);
  Read(t, s);
  Close(t);
  Assign(t, 'd:\output.txt');
  Rewrite(t);
  Write(t, s);
  Close(t)
End.
Вам, собственно, нужно, чтобы в файле был хотя бы один символ. Если с проверкой входных данных, то вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var t: File of Char;
    s: Char;
Begin
  Assign(t, 'd:\input.txt');
  Reset(t);
  if FileSize(t) > 0
    then begin
      Read(t, s);
      Close(t);
      Assign(t, 'd:\output.txt');
      Rewrite(t);
      Write(t, s)
    end
    else writeln('Error: zero length file.');
  Close(t)
End.
0
Demetro4ka
1 / 1 / 1
Регистрация: 12.10.2013
Сообщений: 243
09.12.2015, 12:42 #3
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Всё у Вас верно. Только в именах файлов ошибка: не "d:", а "d:". Естественно, с такой неточностью во-первых, файл не будет найден, и во-вторых, даже если чудо нахождения случится, то не будет создан. Да, если наличие строки в файле гарантировано, то можно проще написать:
Pascal
а если массив строк, то как вывести первый символ строки?

Добавлено через 2 минуты
ааа двойной массив s[][]
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2015, 12:42
Привет! Вот еще темы с ответами:

Дано символ С. Вывести два символа, первый из которых предшествует символу С в кодовой таблице, а второй – следует за символом С - Pascal ABC
Дано символ С. Вывести два символа, первый из которых предшествует символу С в кодовой таблице, а второй – следует за символом С.

Дано символ С. Вывести два символа, первый из которых предшествует символу С в кодовой таблице, а второй – следует за символом С - Pascal ABC
Ребят решите плииз! Дано символ С. Вывести два символа, первый из* которых предшествует символу С в кодовой таблице, а второй – следует за...

Вывести первый отрицательный элемент каждой строки матрицы - Pascal ABC
Ребят помогите пожалуйста, я составил почти программу мне надо только чучуть переделать... Задача в том, надо заполнить массивы, и...

Вывести на экран строки файла нечетной длины. в которых средний символ - цифра - Pascal ABC
Помогите пожалуйста решить три задачи\ 3.вывести на экран строки файла нечетной длины,в которых средний символ-цифра Заранее...


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

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

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