Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
1

Дан файл целых чисел. Подсчитать сумму чисел, больших числа N

15.10.2012, 17:53. Просмотров 1433. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program p1;
var fx:text;
s,k,n:real;
c:integer;
begin
assign(fx,'C:\Users\Пользователь\Documents\аипас.txt');
reset (fx);
S:=0;
while not Eof(fx) do
begin
read (fx,c);
If c >n then S:=S+k;
end;
close (fx);
writeln('S=',S);
end.
Не получается. Можно пожалуйста с пояснениями.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.10.2012, 17:53
Ответы с готовыми решениями:

Дан файл целых чисел. Подсчитать произведение чисел большее 5
program primer; var fx: text; s,c:integer; begin assign(fx,'F:\0001.txt'); reset (fx); S:=0;...

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50
В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50. Вывести...

Дан массив целых чисел. Найти сумму элементов массива, больших данного числа А
Задание 6. Составить программы по обработке элементов массива:Дан массив целых чисел. Найти сумму...

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

1
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.10.2012, 19:19 2
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
program p1;
var
   fx:text;
   c,i,s,n:integer;
begin
assign(fx,'0001.txt');
rewrite (fx);
writeln('Кол-во цифр в файле');
readln(i);
for c:=1 to i do {Заполняем файл}
    begin
    writeln(fx,random(100));
    end;
S:=0;
writeln('n= ');
readln(n);
reset(fx);
while not Eof(fx) do
      begin
     readln (fx,c); {Считываем элемент из файла}
     If c >n then S:=S+c; {Находим сумму элементов бол n}
     write(c:3); {Выводим файл на экран}
     end;
close (fx);
writeln(#13,'S=',S); {Выводим сумму}
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.10.2012, 19:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан файл, элементами которого являются целые числа. Подсчитать сколько в байте содержится четных чисел и найти их сумму.
Помогите пожалуйста решить! Дан файл, элементами которого являются целые числа. Подсчитать...

Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение элементов,больших заданного числа М
Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение элементов,больших заданного...

Дан файл целых чисел. Преобразовать его, удалив нечетные числа. Порядок следования четных чисел сохранить. И блок схемы к ним.
Мне задали задание, но у меня после сессии голова не работает Если кому не трудно решите , очень...

Дан двухмерный массив целых чисел. Определить сумму элементов больших 30
Дан двухмерный массив целых чисел. Определить сумму элементов больших 30

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30.

Дан двумерный массив целых чисел. Определить сумму элементов массива, больших 30
Дан двумерный массив целых чисел. Определить сумму элементов массива больших 30.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.