Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 35
1

Описать процедуру, которая выделяет из текста предпоследний элемент

24.11.2012, 13:36. Просмотров 752. Ответов 8
Метки нет (Все метки)

Помогите написать программу, пожалуйста. type=текст file of char;
описать процедуру, которая выделяет с текста tпредпоследний елемент
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 13:36
Ответы с готовыми решениями:

Описать процедуру, возвращающую предпоследний элемент типизированного файла
Дан файл из вещественных чисел. Описать процедуру, возвращающую предпоследний элемент файла (если...

Файл: Описать процедуру predlast(f), значением которой является предпоследний элемент файла f...
Описать процедуру predlast(f), значением которой является предпоследний элемент файла f, имеющего...

Описать процедуру, которая заменяет букву текста t на с
Програма. Type текст=file of char; Описать процедуру replace (t,c), которая заменяет последнюю...

Описать процедуру, которая вставляет в список А новый элемент К1
через стек или очередь!!!! Описать процедуру, которая вставляет в список А новый элемент К1 перед...

8
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
24.11.2012, 13:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
type filechar=file of char;
.........
Procedure P(f:filechar;Var t:char);
Begin
    if FileSize(f)>1 then 
    Begin
      Seek(f,FileSize(f)-2);
      read(f,t);
    End
    else t:=#0;
End;
0
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 35
24.11.2012, 14:32  [ТС] 3
Цитата Сообщение от Artem7 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
type filechar=file of char;
.........
Procedure P(f:filechar;Var t:char);
Begin
    if FileSize(f)>1 then 
    Begin
      Seek(f,FileSize(f)-2);
      read(f,t);
    End
    else t:=#0;
End;
во 2 строке writeln(tekst); ?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
24.11.2012, 14:37 4
Цитата Сообщение от xhatex Посмотреть сообщение
во 2 строке writeln(tekst); ?
ты там должен описать файл потом после процедуры заполнить его и вызывать уже саму процедуру...
0
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 35
24.11.2012, 14:41  [ТС] 5
Цитата Сообщение от Artem7 Посмотреть сообщение
ты там должен описать файл потом после процедуры заполнить его и вызывать уже саму процедуру...
понял, но проблема в том, что я в паскале не бум бум, поможешь?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
24.11.2012, 14:49 6
Цитата Сообщение от xhatex Посмотреть сообщение
понял, но проблема в том, что я в паскале не бум бум, поможешь?
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
type filechar=file of char;
Var f:filechar;
    i,n:byte;
    m,t:char;
Procedure P(f:filechar;Var t:char);
Begin
     Reset(f);
     Seek(f,FileSize(f)-2);
     read(f,t);
End;
Begin
    write('Введите кол-во символов для заполнения: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
    Begin
      write(i,'-ый символ: ');
      readln(m);
      write(f,m);
    End;
    if n>1 then 
    Begin
      P(f,t);
      writeln('Препоследний = ',t);
    End
    else writeln('Файл из одного элемента');
    Close(f);
    readln;
end.
1
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 35
24.11.2012, 15:17  [ТС] 7
Pascal
1
2
3
[QUOTE]
Procedure P(f:filechar;Var t:char);
[/QUOTE]
в этой строчке ошибка... Error 126: Files must be var parameters. в чем проблема? что не пробовал все равно выбивает ошибку
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
24.11.2012, 15:24 8
Цитата Сообщение от xhatex Посмотреть сообщение
в этой строчке ошибка... Error 126: Files must be var parameters. в чем проблема? что не пробовал все равно выбивает ошибку
Pascal
1
Procedure P(Var f:filechar;Var t:char);
0
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 35
24.11.2012, 15:34  [ТС] 9
Цитата Сообщение от Artem7 Посмотреть сообщение
Pascal
1
Procedure P(Var f:filechar;Var t:char);
спасибо большое!)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2012, 15:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Описать процедуру, которая удаляет из списка L второй элемент
Описать процедуру, которая удаляет: из списка L второй элемент, если такой есть. Заранее спс)

Описать процедуру, которая вставляет в конец списка L элемент E
Описать процедуру, которая вставляет в конец списка L элемент E. Можете подредактировать, а то...

Описать процедуру, которая удаляет из списка L первый отрицательный элемент
Описать процедуру, которая удаляет из списка L первый отрицательный элемент, если такой есть...

Описать процедуру, которая удаляет из непустого списка L первый элемент
Описать процедуру, которая удаляет из непустого списка L первый элемент.


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

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

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