Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
РоМіK
0 / 0 / 0
Регистрация: 22.05.2013
Сообщений: 6
1

Из типизированного файла, который содержит несколько целых чисел, вывести на экран монитора целое число с определенным порядковым номером.

22.05.2013, 15:03. Просмотров 877. Ответов 1
Метки нет (Все метки)

Из типизированного файла, который содержит несколько целых чисел, вывести на экран монитора целое число с определенным порядковым номером.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 15:03
Ответы с готовыми решениями:

Из типизированного файла, который содержит несколько строк текста, вывести на экран монитора строку текста с определенным порядковым номером
1. Создать или открыть текстовый (типизированный, нетипизированный) файл. 2. Выполнить над...

Из типизированного файла вывести на экран монитора булевское значение с определенным порядковым номером
Из типизированного файла, который содержит несколько булевских (логических) значений, вывести на...

Из типизированного файла, который содержит несколько вещественных чисел, вывести на экран монитора
Из типизированного файла, который содержит несколько вещественных чисел, вывести на экран монитора...

Вывести на экран монитора булевское значение файла с определенным порядковым номером
С типизированного файла, содержащего несколько булевских (логических) значений, вывести на экран...

Записать в типизированный файл несколько целых чисел, после чего вывести эти целые числа из типизированного файла на экран монитора
1. Создать или открыть текстовый (типизированный, нетипизированный) файл. 2. Выполнить над...

1
Kodzaev
3008 / 1897 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
22.05.2013, 15:29 2
Лучший ответ Сообщение было отмечено РоМіK как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
Var
  f: File of Integer;
  i,n,a: Byte;
  x: Integer;
BEGIN
Write('Введите кол-во элементов для записи в файл: ');
Readln(n);
Assign(f,'1.dat');
Rewrite(f);
Randomize;
For i:=1 to n do
begin
  x:=Random(100);
  Write(f,x);
end;
Reset(f);
Writeln('Содержимое файла: ');
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
end;
Writeln;
Repeat
  Writeln('Введите порядковый номер элемента: ');
  Readln(a);
  If not (a in [1..FileSize(f)]) Then
  Writeln('Неверный индекс. Повторите ввод')
  Else
  begin
    Seek(f,a-1);
    Read(f,x);
    Writeln('Элемент с номером ',a,' = ',x);
  end;
until a in [1..FileSize(f)];
Close(f);
Readln
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 15:29

Создать типизированный файл, который содержит несколько вещественных чисел, после чего вывести эти вещественные числа из типизированного файла на эк
Создать типизированный файл, который содержит несколько вещественных чисел, после чего вывести эти...

Записать в типизированный файл несколько вещественных чисел, после чего вывести эти вещественные числа из типизированного файла на экран монитора.
Записать в типизированный файл несколько вещественных чисел, после чего вывести эти вещественные...

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


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

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

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