0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 178
1

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

26.03.2013, 17:04. Показов 2000. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
program viweglavnoidiagonaali;
var f:file of integer;
i,bi,k,d,z,z1,a,b,x,y:integer;
begin
writeln('x ');
for I:=1  to 2 do begin
readln(x);
 
Assign(f,'D:\3.txt');
end;
reset(f);
rewrite(f);
 
write(f,x);
 
close(f);
reset(f);
 
read(f,a);
 
for i:= 1 to x do
If a>0 then write(a:3);
close(f);
end.
for I:=1 to 2 do begin
readln(x); вот тут я встрял где поставить end; чтоб работала правильно
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2013, 17:04
Ответы с готовыми решениями:

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

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

Переписать все положительные числа файла в массив в том же порядке
Записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке.

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

3
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
26.03.2013, 18:47 2
Какой-то бред написан. Лучше все заново переписать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var
  f: File of Integer;
  x: Array[1..18] of Integer;
  a,b: Integer;
BEGIN
Assign(f,'1.dat');
Reset(f);
While not Eof(f) do
begin
  Read(f,a);
  If a>0 Then
  begin
    Inc(b);
    x[b]:=a;
  end;
end;
Close(f);
For a:=1 to b do
Write(x[a],' ');
END.
1
0 / 0 / 1
Регистрация: 19.12.2012
Сообщений: 178
26.03.2013, 19:09  [ТС] 3
Спасибо ну да
как мог))

Добавлено через 20 минут
Цитата Сообщение от Kodzaev Посмотреть сообщение
Какой-то бред написан. Лучше все заново переписать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var
  f: File of Integer;
  x: Array[1..18] of Integer;
  a,b: Integer;
BEGIN
Assign(f,'1.dat');
Reset(f);
While not Eof(f) do
begin
  Read(f,a);
  If a>0 Then
  begin
    Inc(b);
    x[b]:=a;
  end;
end;
Close(f);
For a:=1 to b do
Write(x[a],' ');
END.
Мне нужно сделать чтоб я сам вводил 18 чисел
0
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
26.03.2013, 19:29 4
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
Var
  f: File of Integer;
  x: Array[1..18] of Integer;
  i,a,b: Integer;
BEGIN
Assign(f,'1.dat');
Rewrite(f);
Writeln('Введите 18 чисел: ');
For i:=1 to 18 do
begin
  Readln(a);
  Write(f,a);
end;
Reset(f);
Writeln('Файл: ');
While not Eof(f) do
begin
  Read(f,a);
  Write(a,' ');
  If a>0 Then
  begin
    Inc(b);
    x[b]:=a;
  end;
end;
Close(f);
Writeln;
Writeln('Массив: ');
For i:=1 to b do
Write(x[i],' ');
END.
0
26.03.2013, 19:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2013, 19:29
Помогаю со студенческими работами здесь

Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный файл
Дан типизированный файл целых чисел. Переписать содержимое файла в новый типизированный...

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

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

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

Записать все числа массива в типизированный файл в том же порядке
Дан массив из двадцати вещественных чисел. Записать все числа массива в типизированный файл в том...

Записать все числа массива в типизированный файл в том же порядке
дан массив из 20 вещественных чисел. Записать все числа массива в типизированный файл в том же...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru