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

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

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

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

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

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

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

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

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

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

1
Kodzaev
3005 / 1894 / 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

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

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

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


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

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

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