В файле F поменять все нулевые компоненты значением суммы первой и
В файле F поменять все нулевые составляющие значением суммы первой и заключительной компонент файла; все отрицательные составляющие уменьшить на значение суммы, а также отыскать среднее арифметическое положительных компонент. Результаты отпечатать.
Задать свой вопрос
Куленко
Макс
на каком языке программирования нужно?
Диана
pascal abc
Леночка Каржанова
кстати а пример файла можно а то структура не извесна
1 ответ
Арина Шейина
Uses crt;
var ksl,ksm:longint;
a:array of integer;
i,sred,k:integer;
f:Text;
s:string;
BEGIN
clrscr;
Assign(f,'f1.txt');
Reset(f); //из файла
while not eof(f) do
begin
readln(f,s);
ksm:=ksm+length(s); //считаем все знаки
end;
writeln(ksm);
Reset(f); for i:=1 to ksm do
begin
if (s[i]=' ') then
ksl:=ksl+1;//считаем все слова
end;
writeln(ksl);
Reset(f); //из файла
setlength(a,ksl+1);
for i:=1 to ksl do
begin
read(f,a[i]);
end;
Close(f);
For i:=1 to ksl do
begin
If (a[i]=0) then a[i]:=a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и заключительней компонент файла''
if (a[i]gt;0) then
begin
sred:=sred+a[i]; // ''отыскать среднее арифметическое положительных компонент''
inc(k);
end;
if (a[i]lt;0)then a[i]:=a[i]- Абс( a[1]+a[ksl] ); // ''все отрицательные составляющие уменьшить на значение суммы''
end;
Rewrite(f); //в фаил
for i:=1 to ksl do
begin
write(f,a[i],' ');
end;
Close(f);
Writeln(' sred= ',sred/10:0:1);
END.
var ksl,ksm:longint;
a:array of integer;
i,sred,k:integer;
f:Text;
s:string;
BEGIN
clrscr;
Assign(f,'f1.txt');
Reset(f); //из файла
while not eof(f) do
begin
readln(f,s);
ksm:=ksm+length(s); //считаем все знаки
end;
writeln(ksm);
Reset(f); for i:=1 to ksm do
begin
if (s[i]=' ') then
ksl:=ksl+1;//считаем все слова
end;
writeln(ksl);
Reset(f); //из файла
setlength(a,ksl+1);
for i:=1 to ksl do
begin
read(f,a[i]);
end;
Close(f);
For i:=1 to ksl do
begin
If (a[i]=0) then a[i]:=a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и заключительней компонент файла''
if (a[i]gt;0) then
begin
sred:=sred+a[i]; // ''отыскать среднее арифметическое положительных компонент''
inc(k);
end;
if (a[i]lt;0)then a[i]:=a[i]- Абс( a[1]+a[ksl] ); // ''все отрицательные составляющие уменьшить на значение суммы''
end;
Rewrite(f); //в фаил
for i:=1 to ksl do
begin
write(f,a[i],' ');
end;
Close(f);
Writeln(' sred= ',sred/10:0:1);
END.
Элина Шильцина
да это изи, потому что массивом херачишь, операции с массивом делаешь, а надобно прям вывел файл и попер композиции с ним))
Adelina Hapenkova
без массива здесь наврятли, голову разбивать только
Anatolij
вот я и пытался, у меня ошибку выдает паскаль прям тупую
Наташка Пантюкина
условие тогда допиши, что без массивов необходимо, и удали ответ
Элина
щаас все будет
Kristina Berendeeva
это все условие)
Sashok Kiranov
так выложи для начала собственный код посмотреть.
Mashtalova Aljona
да все, сделал теснее, лодырь)
Viktorija Krejter
как обошёл массив?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов