Написать программу суммирования всех положительных элементов заданного файла

@Foxich · Регистрация: 25.12.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Нужна помощь в написании вот какой программы:

Написать программу суммирования всех положительных элементов заданного файла (файл содержит в каждой записи два числа разделенных пробелом).
Найти сумму двух первых и двух последних элементов заданного файла.

На форуме нашёл подобные темы, но корректно работающей программы - нет. Спасибо.

@JokeR.BY · 10.01.2015, 22:17

Pascal

var
    s : Word;
    x, y, sFL : Integer;
    f : Text;
begin
    Assign(f, 'input.txt'); Reset(f);
    ReadLn(f, x, y);
    sFL := x + y;
    s := 0 + Ord(x > 0) * x + Ord(y > 0) * y;
    while Not(Eof(f)) do
    begin
        ReadLn(f, x, y);
        s := s + Ord(x > 0) * x + Ord(y > 0) * y;
    end;
    Close(f);
    sFL := sFL + x + y;
    WriteLn('Full sum: ', s);
    WriteLn('2 first + 2 last: ', sFL);
end.

Добавлено через 2 минуты
если паскаль будет ругаться на строки с Ord()

Pascal

function Ord(b : Boolean) : Byte;
var
    Result : Byte;
begin
    if b
    then
        Result := 1
    else
        Result := 0;
    Ord := Result;
end;

@Foxich 0 / 0 / 0 Регистрация: 25.12.2014 Сообщений: 32
		1
	Написать программу суммирования всех положительных элементов заданного файла 10.01.2015, 22:01. Показов 1229. Ответов 1 Метки нет (Все метки) Доброго времени суток. Нужна помощь в написании вот какой программы: Написать программу суммирования всех положительных элементов заданного файла (файл содержит в каждой записи два числа разделенных пробелом). Найти сумму двух первых и двух последних элементов заданного файла. На форуме нашёл подобные темы, но корректно работающей программы - нет. Спасибо. 0

	10.01.2015, 22:17

Написать программу суммирования всех положительных элементов заданного файла

Решение