Страница 4 из 7
Re: Помогите решить задачу...
Добавлено: 07 май 2007, 17:25
Anton_XXX
а... все не надо... я понял...
Код: Выделить всё
program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
write('Сумма отрицательных элементов: ');
for i:=1 to k do
begin
read(f,n);
if n.i<0 then {Помогите!}
x:=x+n.i;
end;
write(x);
readln;
end.
Re: Помогите решить задачу...
Добавлено: 07 май 2007, 17:25
Anton_XXX
а... все не надо... я понял...
Код: Выделить всё
program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
write('Сумма отрицательных элементов: ');
for i:=1 to k do
begin
read(f,n);
if n.i<0 then
x:=x+n.i;
end;
write(x);
readln;
end.
Помогите с функцией...
Re: Помогите решить задачу...
Добавлено: 07 май 2007, 17:33
Anton_XXX
program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
for i:=1 to k do
begin
read(f,n);
if n.i<0 then
x:=x+n.i;
end;
writeln('Cумма отрицательных элементов',x);
readln;
end.[/CODE]
Помогите с Функцией...
Re: Помогите решить задачу...
Добавлено: 07 май 2007, 19:45
Anton_XXX
помогите с функцией плиззз!
Re: Помогите решить задачу...
Добавлено: 08 май 2007, 10:17
somewhere
Вот из этого участка кода сделай функцию
" писал(а):for i:=1 to k do
begin
read(f,n);
if n.i<0 then
x:=x+n.i;
end;
назови ее вроде GetSumm:Integer;
там где
" писал(а):write('Сумма отрицательных элементов: ');
добавь вызов функции.
Вообще тип dann абсолютно не нужен. Можно свободно объявить как
Никто тебе за это и слова не скажет, так как отличий нет никаких.
Re: Помогите решить задачу...
Добавлено: 08 май 2007, 18:09
Anton_XXX
можете мне написать функцию, плиззз! чет у меня не получается... у меня вообще проблемма с процедурами и функциями... буду изучать...
Re: Помогите решить задачу...
Добавлено: 09 май 2007, 17:08
Anton_XXX
ну помогите, пожалуйста...!
напишите функцию, для этой программы...
Re: Помогите решить задачу...
Добавлено: 09 май 2007, 21:04
Колядин Максим
Код: Выделить всё
uses crt;
type foi= file of integer;
var
x,i,k:integer;
f: foi;
n: integer;
[b][i]
function getsum(var tfile: foi):integer;
var sum: integer;
begin
sum:=0;
reset(tfile);
for i:=1 to k do
begin
read(tfile,n);
if n<0 then inc(sum);
end;
getsum:=sum;
end;
[/b][/i]
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n:2);
end;
readln;
x:=0;
write('Сумма отрицательных элементов: ', getsum(f));
close(f);
readln;
end.
Re: Помогите решить задачу...
Добавлено: 09 май 2007, 21:10
Anton_XXX
Большое спасибо!
Re: Помогите решить задачу...
Добавлено: 09 май 2007, 21:20
Anton_XXX
только мне надо было не счетчик отрицательных элементов, а сумму отрицат элементов... все равно спасибо... я сам исправлю...)))