Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
irina_yurevna
0 / 0 / 1
Регистрация: 26.05.2013
Сообщений: 21
#1

Построить файл данных, компонентами которого являются целые числа - Pascal ABC

26.05.2013, 15:06. Просмотров 504. Ответов 1
Метки нет (Все метки)

Построить файл данных, компонентами которого являются целые числа.
Заменить в этом файле все четные числа на 0.

Помогите
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 15:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить файл данных, компонентами которого являются целые числа (Pascal ABC):

Построить файл данных, компонентами которого являются вещественные числа. Вывести на экран все числа этого фай
Построить файл данных, компонентами которого являются вещественные числа....

Сформировать файл, компонентами которого являются целые числа, определяемые по формуле
Дано натуральное n. Сформировать файл G, компонентами которого являются целые...

Дан файл G, компонентами которого являются вещественные числа
Дан файл G, компонентами которого являются вещественные числа. Найти сумму...

Дан файл F, компонентами которого являются действительные числа
Дан файл F, компонентами которого являются действительные числа. Найти разность...

Создать файл f, компонентами которого являются символьные массивы
Создать файл f, компоненты которого являются символьные массивы s1...s15....

Задан файл F, компонентами которого являются численные массивы X [15]. Найти минимальные элементы каждого из массивов и вывести в выходной файл.
добрый день. нужен текст программы к задаче в Pascal. Задан файл F,...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
26.05.2013, 15:24 #2
Лучший ответ Сообщение было отмечено irina_yurevna как решение

Решение

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
Var
  f: File of Integer;
  i,n,x: Integer;
BEGIN
Write('Введите кол-во чисел: ');
Readln(n);
Assign(f,'1.dat');
Rewrite(f);
For i:=1 to n do
Write(f,Random(100));
Reset(f);
Writeln('Исходный файл:');
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
end;
Writeln;
Writeln('Полученный файл: ');
For i:=0 to FileSize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x mod 2=0 Then
  begin
    x:=0;
    Seek(f,i);
    Write(f,x);
  end;
  Write(x,' ');
end;
Close(f);
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 15:24
Привет! Вот еще темы с решениями:

Типизированный файл: Создать файл F1, компонентами которого являются "m" одинаковых чисел, а именно "min" элемент из файла F
Создать типизированный файл F, содержащий последовательность целых чисел....

Дан файл, компонентами которого являются n-мерные векторы. Векторы с наибольшим модулем перенести в конец файла
Дан файл, компонентами которого являются n-мерные векторы. Векторы с наибольшим...

Дан файл F (компонентами являются действительные числа). Найти произведение компонент файла
Нужно составить схему алгоритма и программу. Создать файл в текстовом...

Создать новый файл, компонентами которого являеются числа исходного, кратные 3
Создать типизированный файл Р содержащий последовательность целых чисел....


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

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

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