Арифметические действия с элементами файла

@ням ням · Регистрация: 08.12.2015

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

вот задача: Для заданного файла вычислить
a1*2a2 – 3a3*4a4 + 5a5*6a6 +… (здесь ai — последовательно прочитанные элементы файла, причём нумерация начата с 1)

вот код:

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
27
var
arr: array of integer;
i: integer;
f: text;
 
begin
Assign(f, 'Input.txt');
Reset(f);
i := 0;
while not eof(f) do
begin
i += 1;
SetLength(arr, i);
Read(f, arr[i - 1]);
end;
Close(F);
var sum := 0;
var m := -1;
i := 0;
while i < High(arr) do
begin
m *= -1;
sum += (((i + 1) * arr[i] * (i + 2) * arr[i + 1])) * m;
i += 2;
end;
WriteLn(sum);
end.

почему преподаватель сказал, что данный код написан не на pascal abc? Если он прав, то что "это" тогда?

@TonyWinter · 11.01.2016, 16:30

просто pascal abc(наверняка еще какой-нибудь древний стоит, верно?), не pascal abc.net?
1.

Операторы += и *=

2. Все переменные описываются в var

Pascal
1
2
3
4
5
6
var
arr: array of integer;
i: integer;
f: text;
sum:integer;
m:integer;

3. Насчет динамических массивов - не помню, были ли они до .net или нет.

@ням ням · 11.01.2016, 18:41 **[ТС]**

а как переделать это в вид pascal abc?

Добавлено через 1 час 22 минуты
помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!

@Puporev · 11.01.2016, 20:39

Надо просто не ням-нямать, а самому писать такие элементарные программы и не срамиться перед преподом, который конечно же понял что это не твое.

@ням ням · 11.01.2016, 21:16 **[ТС]**

Если бы было все так просто, то я сама бы написала эту программу уже давно, и не обращалась бы к вам за помощью. Логично?!

@Cyborg Drone · 12.01.2016, 05:26

Сообщение от ням ням

Логично?!

Проанализируем. Ваше задание относится к простейшим. Предпосылка Вашего умозаключения гласит, что задание не простое. А это не так. И, так как Ваше умозаключение следует из ложной предпосылки, всё Ваше умозаключение является ложным.

@кот Бегемот · 12.01.2016, 10:02

Сообщение от Cyborg Drone

И, так как Ваше умозаключение следует из ложной предпосылки, всё Ваше умозаключение является ложным.

А вот и неверно. Из лжи вполне может следовать истина. И это истина.
Вот из истины ложь следовать не может.

@ням ням · 12.01.2016, 10:10 **[ТС]**

А можно здесь хоть у кого-то попросить помощи нормально, не выслушивая в свой адрес оскорблений?! Просто помогать я вижу здесь не умеют, ведь тут одни гении "безошибочные во всем", им не свойственно чего-то не знаю. Так вот, "боги программирования", "холоп" встает перед вами на коленях и слезно умоляет решить эту задачу.

Такая просьба о помощи вам по душе???

@Puporev · 12.01.2016, 10:34

Вообще здесь массив не нужен, можно решить так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var f:text;
    a1,a2,i,s:integer;
begin
assign(f,'input.txt'); //в файле записано четное число целых чисел
reset(f);              //файл в папке с программой
s:=0;
i:=0;
while not seekeof(f) do
 begin
  read(f,a1,a2);
  i:=i+1;
  if odd(i) then s:=s+a1*a2
  else s:=s-a1*a2;
 end;
close(f);
write('S=',s);
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@ням ням 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 41
	11.01.2016, 18:41 [ТС]
	а как переделать это в вид pascal abc? Добавлено через 1 час 22 минуты помогите пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.01.2016, 20:39
	Надо просто не ням-нямать, а самому писать такие элементарные программы и не срамиться перед преподом, который конечно же понял что это не твое. 0

@ням ням 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 41
	11.01.2016, 21:16 [ТС]
	Если бы было все так просто, то я сама бы написала эту программу уже давно, и не обращалась бы к вам за помощью. Логично?! 0

@ням ням 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 41
	12.01.2016, 10:10 [ТС]
	А можно здесь хоть у кого-то попросить помощи нормально, не выслушивая в свой адрес оскорблений?! Просто помогать я вижу здесь не умеют, ведь тут одни гении "безошибочные во всем", им не свойственно чего-то не знаю. Так вот, "боги программирования", "холоп" встает перед вами на коленях и слезно умоляет решить эту задачу. Такая просьба о помощи вам по душе??? 0

Арифметические действия с элементами файла

Решение