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

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

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

Из типизированного файла, который содержит несколько целых чисел, вывести на экран монитора целое число с определенным порядковым номером.
http://www.cyberforum.ru/turbo-pascal/thread875680.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 15:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Из типизированного файла, который содержит несколько целых чисел, вывести на экран монитора целое число с определенным порядковым номером. (Turbo Pascal):

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

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

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

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

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

1
Kodzaev
3002 / 1891 / 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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