Паскаль!Прога на файлы!

[vlad1991]

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

program main;
var
f1,f2:text;
g,x:real;
i,t,n,p,k:integer;
S:string;
begin
	assign(f1,'f1.txt');
	rewrite(f1);
	writeln('vvedite kol strok');
	readln(n);
	for i:=1 to n do
	begin
		readln(S);
		writeln(f1,S);
	end;
	close(f1);
	reset(f1);
	assign(f2,'f2.txt');
	rewrite(f2);
	while not eof(f1) do
	begin
		readln(f1,x);
		p:=0;
		while not eoln(f1) do
		begin
			k:=0;
			for t:=2 to round(sqrt(x)) do
			begin
			if x mod t=0 then k:=k+1
			if k=0 then p:=p+1;
			end;
			writeln(f2,p);
		end;
	end;
	close(f1,f2);
	writeln;
	reset(f2);
	while not eof(f2) do
	begin
		readln(f2,S);
		writeln(S);
	end;
	readln
end.

Не работает!Помогите решить до конца!

[Stilet]

Вот я например не понял что ты делаеш вторым while not eoln(f1) do...
Вот все вроде пучком, но проверять числа на простоту нужно по другому.

[Disel]

Простые числа, это те числа которые делятся только сами на себя. Вроде так, помойму.

[vlad1991]

Сообщение от Stilet

Вот я например не понял что ты делаеш вторым while not eoln(f1) do...
Вот все вроде пучком, но проверять числа на простоту нужно по другому.

Мне же надо найти количество в каждой строке=)
А eoln и служит для контроля конца строки!

[Stilet]

vlad1991

Да, но readln перед этим перевести должен строку на другую. Уловил?
Тебе нужно read просто.

[vlad1991]

Сообщение от Stilet

Да, но readln перед этим перевести должен строку на другую. Уловил?
Тебе нужно read просто.

я попробовал, но все равно не пашет=(
Ошибка в цикле по t=(

[Rus 47]

Вот, погляди на это.

[vlad1991]

Спасибо!вроде работает, но че-то до меня не доходит для чего операцию Case???Зачем она?

[puporev]

Текстовый файл целых чисел создается заранее в блокноте и сохраняется с именем f1.

program main;
uses crt;
function Prost(n:longint):boolean;{функция определения простых чисел}
var i:longint;
begin
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
  begin
   Prost:=false;
  end;
end;

var
f1,f2:text;
k,a:integer;
s:string;

begin
clrscr;
assign(f1,'f1.txt');
reset(f1);
assign(f2,'f2.txt');
rewrite(f2);
while not eof(f1) do {пока не конец файла}
  begin
    k:=0;
    while not eoln(f1) do{пока не конец строки}
	begin
        read(f1,a);{читаем числа}
        if (a>1) and Prost(a) then inc(k);{если число больше 1 и простое, считаем}
      end;
    writeln(f2,k);{записываем в новый файл}
    readln(f1,s);{пропускаем строку}
  end;
close(f1);{закрываем файлы}
close(f2);
readln
end.

[vlad1991]

Большое спасибо Пупорев, очень помог!