Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
2-D
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 48
1

Составить программу, которая создает файл, состоящий из N значений типа integer.

02.06.2013, 11:06. Просмотров 1539. Ответов 3
Метки нет (Все метки)

Составить программу, которая создает файл, состоящий из N значений типа integer. Прочитать файл и выведите только четные элементы. и вот что есть осталось только чётныые елемены вывести
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
program zadacha9;
var
a:array [1..10] of integer;
b,c,d,e,n,i,j,z:integer;
fl:text;
l:longint;
begin
assign(fl,'D:\45\qwe.txt');
rewrite(fl);
close(fl);
write('vedite n ');
readln(n);
rewrite(fl);
e:=0;
for i:= 1 to n do
begin
write('vvediyte znach ');
readln(a[i]);
     write(fl,a[i] );
     e:=e+1;
     write(fl,' ');
     e:=e+1;
     end;
     close(fl);
    {rewrite(fl);}
     for i:= 1 to e do
 
 
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2013, 11:06
Ответы с готовыми решениями:

Составьте программу, которая создает файл 'F1.DTA' из 10 элементов типа integer
Составьте программу, которая создает файл 'F1.DTA' из 10 элементов типа...

Составьте программу, которая создает файл из элементов типа Char
Составьте программу, которая создает файл из элементов типа Char с помощью...

Составьте прогамму, которая создает файл, состоящий из 10 значений типа integer
Завтра сдавать экзамен, не могу сделать, помогите! Составьте прогамму,...

Составить программу, создающей файл, состоящий из 10 значений типа int.
Составить программу, создающей файл, состоящий из 10 значений типа int....

Составить процедуру для ввода данных в массив A(n) типа integer. Данные вводятся из типизированного файла типа integer, начиная с k-ой по n-ую
Составить процедуру для ввода данных в массив A(n) типа integer. Данные...

3
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,757
Записей в блоге: 1
02.06.2013, 11:33 2
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
program zadacha9;
var
a:array [1..10] of integer;
b,c,d,e,n,i,j,z:integer;
fl:text;
l:longint;
begin
assign(fl,'D:\45\qwe.txt');
rewrite(fl);
close(fl);
write('vedite n ');
readln(n);
rewrite(fl);
e:=0;
for i:= 1 to n do
begin
write('vvediyte znach ');
readln(a[i]);
     write(fl,a[i] );
     e:=e+1;
     write(fl,' ');
     e:=e+1;
     end;
     close(fl);
     Reset(fl);
For i:=1 to n do
Begin
  read(fl,z);
  if z mod 2 = 0 then write(z,' ');
End;
end.
0
2-D
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 48
03.06.2013, 09:57  [ТС] 3
работае файл сохдёт но не выводит чётные
0
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,757
Записей в блоге: 1
03.06.2013, 10:02 4
Цитата Сообщение от 2-D Посмотреть сообщение
работае файл сохдёт но не выводит чётные
добавь перед последним
Pascal
1
End.
Pascal
1
readln;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2013, 10:02

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

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

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


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

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

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