Помощь - Поиск - Пользователи - Календарь
Полная версия: Текстовый файл, содержащий числа
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
forMator
Задача: Дан текстовый файл, содержащий числовую информацию. Создать одномерный массив по правилу: количество элементов массива считываются с первой позиции второй строки файла, а элементы массива считываются из файла начиная с первой позиции третьей строки. Из элементов кратных первому элементу массива A создать массив B и вывести его в другой текстовый файл.
Подскажите пожалуйста что я неправильно делаю...

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var t1,t2:textfile;
i,j,n:integer;
a,b:array[1..10] of integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
assignfile(t1,'C:\iii.txt');
assignfile(t2,'C:\lll.txt');
reset(t1);
rewrite(t2);
readln(t1);
for i:=1 to n do read(t1,a[i]);
j:=0;
for i:=1 to n do
if a[i] mod a[1] = 0 then begin j:=j+1; b[j]:=a[i];
end;
for i:=1 to j do write(t2,b[i],' ');
closefile(t1);
closefile(t2);
readln;
end.

Lapp
Цитата(forMator @ 19.04.2007 22:20) *

Подскажите пожалуйста что я неправильно делаю...

Ты забываешь считать количество чисел, которое по условию на второй строке. Вставь строчку тут:

readln(t1);
ReadLn(t1,n); { <<== Здесь читать число элементов }
for i:=1 to n do read(t1,a[i]);


forMator
Спасибо большое!!
Подскажите пожалуйста, а как считывать количество элементов с четвертой позиции второй строки??
Lapp
Цитата(forMator @ 20.04.2007 7:08) *

а как считывать количество элементов с четвертой позиции второй строки??

Ну, можно так:
var c:char;
...
Read(t1,c); Read(t1,c); Read(t1,c);
ReadLn(t1,n);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.