Что не так с кодом?

@Владислава77777 · Регистрация: 08.11.2016

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

Вот условие:
Даны натуральные числа n, b0,b1,…,bn.Вычислить: f(b0)+f(b1)+…+f(bn), где
f(x)=x^2,если х кратно 3
f(x)=х,если х при делении на 3 дает остаток 1
f(x)=[х/3] в остальных случаях

Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=3;                                                                    
var                                                                           
b:array[1..n] of real;                                                        
    f,s,i:real;                                                                   
                                                                    
    begin                                                                     
    writeln('vvod elementov');                                               
    for i:=1 to n do                                                          
    readln(b[i]);                                                             
    s:=0;                                                                     
    for i:=1 to n do                                                          
    begin                                                                     
    if b[i] mod 3=0 then f:=sqr(b[i])                                         
    else  if b[i] mod 3=1  then f:=b[i]                                       
    else f:=b[i]/3;                                                           
    s:=s+f;                                                                   
    end;                                                                      
    writeln('cyma',s:2:2);                                                    
    end.

ошибка:[9,9] program.pas: Ordinal type expected

@Puporev · 10.11.2016, 19:43

Сообщение от Владислава77777

i:real;

Ты вообще хоть что-то понимаешь что и зачем пишешь???

@Владислава77777 · 10.11.2016, 19:46 **[ТС]**

представьте себе да, и что за наезды с кучей восклицательных знаков?

Добавлено через 44 секунды
Puporev, представьте себе да, и что за наезды с кучей восклицательных знаков?

@Puporev · 10.11.2016, 19:48

Где ты вычитал что счетчик цикла может быть вещественным числом? На тебя не наезжать нужно, а башкой об стену бить.

@Владислава77777 · 10.11.2016, 19:49 **[ТС]**

Puporev, во-первых, вычиталА, а во-вторых, тогда помогите мне ее решить

ФедосеевПавел · 10.11.2016, 20:47

Измените тип переменной цикла с параметром i на integer.

@Владислава77777 · 10.11.2016, 20:50 **[ТС]**

Не помогло, компилятор все равно ругается, проще с нуля написать новую. Но спасибо за подсказку

ФедосеевПавел · 10.11.2016, 21:03

Pascal
4
5
  f,s: real;
  i: integer

Добавлено через 8 минут

Не по теме:

Я ещё всех агитирую за форматирование кода.

Если вы используете PascalABC.NET, то у вас в меню Сервис есть пункт Форматировать код.
Если что-то другое, то можно использовать JEDI Code Format - https://www.cyberforum.ru/post7676189.html

Добавлено через 3 минуты
И ещё ошибка - тип элементов массива b должен быть целым (integer) иначе к нему неприменимы операции целочисленного деления.

@Владислава77777 · 10.11.2016, 21:13 **[ТС]**

там больше проблем, не только с объявлением типа переменных

ФедосеевПавел · 10.11.2016, 21:16

Да ладно?

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 MyProg;
 
const
  n = 3;
var
  b: array[1..n] of integer;
  f, s: real;
  i: integer;
 
begin
  writeln('vvod elementov');
  for i := 1 to n do
    readln(b[i]);
  s := 0;
  for i := 1 to n do
  begin
    if b[i] mod 3 = 0 then
      f := sqr(b[i])
    else if b[i] mod 3 = 1 then
      f := b[i]
    else
      f := b[i] / 3;
    s := s + f;
  end;
  writeln('cyma', s: 2: 2);
end.

Добавлено через 2 минуты
Вместо if при столь малом количестве исходов я бы применил case

Pascal
1
2
3
4
5
6
  case b[i] mod 3 of
  0: f:=...
  1: f:=...
  else
    f:=...
  end;

@Владислава77777 · 10.11.2016, 21:17 **[ТС]**

program.cpp:3:9: ошибка: too many decimal points in number
b:array[1..n] of real;
^
program.cpp:7:13: предупреждение: символьная константа слишком длинна для своего типа
writeln('vvod elementov');
^
program.cpp:18:13: предупреждение: многознаковая символьная константа [-Wmultichar]
writeln('cyma',s:2:2);
^
program.cpp:1:7: ошибка: «n» не является именем типа
const n=3;
^
program.cpp:2:1: ошибка: «var» не является именем типа
var
^
program.cpp:4:5: ошибка: «f» не является именем типа
f,s:real;
^
program.cpp:5:6: ошибка: found «:» in nested-name-specifier, expected «::»
i:integer;
^
program.cpp:5:5: ошибка: «i» не является именем типа
i:integer;
^
program.cpp:6:5: ошибка: «begin» не является именем типа
begin
^
program.cpp:8:5: ошибка: expected unqualified-id before «for»
for i:=1 to n do
^
program.cpp:10:5: ошибка: «s» не является именем типа
s:=0;
^
program.cpp:11:5: ошибка: expected unqualified-id before «for»
for i:=1 to n do
^
program.cpp:16:5: ошибка: «s» не является именем типа
s:=s+f;
^
program.cpp:17:5: ошибка: «end» не является именем типа
end;
^
program.cpp:18:12: ошибка: expected constructor, destructor, or type conversion before «(» token
writeln('cyma',s:2:2);
^
program.cpp:19:5: ошибка: «end» не является именем типа
end.
^

ФедосеевПавел · 10.11.2016, 21:18

Или этот код тоже для сайта?

@Владислава77777 · 10.11.2016, 21:19 **[ТС]**

Сообщение от ФедосеевПавел

Вместо if при столь малом количестве исходов я бы применил case
Pascal
1
2
3
4
5
6
* case b[i] mod 3 of
* 0: f:=...
* 1: f:=...
* else
* * f:=...
* end;

а это идея

опять же, проше заново написать, чем исправлять здесь ошибки

Добавлено через 1 минуту

Сообщение от ФедосеевПавел

Или этот код тоже для сайта?

Этот код для сайта, но я не преследую цели верного ответа, гораздо важнее понять алгоритм построения кода

ФедосеевПавел · 10.11.2016, 21:19

Оба на!

А в чём вы компилируете?
Почему исходники на Pascal имеют расширение cpp?

@Владислава77777 · 10.11.2016, 21:22 **[ТС]**

на сайте, встроенный компилятор.
да, я ошиблась в расширении. но ему что-то не нравитсяв этих двух строчках:
f,s:real;
i:integer;

ФедосеевПавел · 10.11.2016, 21:25

Вы целиком весь код приведите.

@Владислава77777 · 10.11.2016, 21:27 **[ТС]**

const n=3;
var
b:array[1..n] of real;
f,s:real;
i:integer;
begin
writeln('vvod elementov');
for i:=1 to n do
readln(b[i]);
s:=0;
for i:=1 to n do
begin
if b[i] mod 3=0 then f:=sqr(b[i])
else if b[i] mod 3=1 then f:=b[i]
else f:=b[i]/3;
s:=s+f;
end;
writeln('cyma',s:2:2);
end.

ФедосеевПавел · 10.11.2016, 21:30

ошибка - тип элементов массива b должен быть целым (integer) иначе к нему неприменимы операции целочисленного деления.

@Владислава77777 · 10.11.2016, 21:33 **[ТС]**

компилятор выдал - ошибка времени исполнения

ФедосеевПавел · 10.11.2016, 21:38

Какой компилятор?
Что вы вводили?

Добавлено через 1 минуту
Ошибка времени исполнения - это уже не компилятор, а ОС или диагностический код, незаметно для пользователя добавленный компилятором в итоговую программу.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 19:46 [ТС]
	представьте себе да, и что за наезды с кучей восклицательных знаков? Добавлено через 44 секунды Puporev, представьте себе да, и что за наезды с кучей восклицательных знаков? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.11.2016, 19:48
	Где ты вычитал что счетчик цикла может быть вещественным числом? На тебя не наезжать нужно, а башкой об стену бить. 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 19:49 [ТС]
	Puporev, во-первых, вычиталА, а во-вторых, тогда помогите мне ее решить 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 20:47
	Измените тип переменной цикла с параметром i на integer. 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 20:50 [ТС]
	Не помогло, компилятор все равно ругается, проще с нуля написать новую. Но спасибо за подсказку 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 21:13 [ТС]
	там больше проблем, не только с объявлением типа переменных 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 21:17 [ТС]
	program.cpp:3:9: ошибка: too many decimal points in number b:array[1..n] of real; ^ program.cpp:7:13: предупреждение: символьная константа слишком длинна для своего типа writeln('vvod elementov'); ^ program.cpp:18:13: предупреждение: многознаковая символьная константа [-Wmultichar] writeln('cyma',s:2:2); ^ program.cpp:1:7: ошибка: «n» не является именем типа const n=3; ^ program.cpp:2:1: ошибка: «var» не является именем типа var ^ program.cpp:4:5: ошибка: «f» не является именем типа f,s:real; ^ program.cpp:5:6: ошибка: found «:» in nested-name-specifier, expected «::» i:integer; ^ program.cpp:5:5: ошибка: «i» не является именем типа i:integer; ^ program.cpp:6:5: ошибка: «begin» не является именем типа begin ^ program.cpp:8:5: ошибка: expected unqualified-id before «for» for i:=1 to n do ^ program.cpp:10:5: ошибка: «s» не является именем типа s:=0; ^ program.cpp:11:5: ошибка: expected unqualified-id before «for» for i:=1 to n do ^ program.cpp:16:5: ошибка: «s» не является именем типа s:=s+f; ^ program.cpp:17:5: ошибка: «end» не является именем типа end; ^ program.cpp:18:12: ошибка: expected constructor, destructor, or type conversion before «(» token writeln('cyma',s:2:2); ^ program.cpp:19:5: ошибка: «end» не является именем типа end. ^ 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 21:18
	Или этот код тоже для сайта? 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 21:19
	Оба на! А в чём вы компилируете? Почему исходники на Pascal имеют расширение cpp? 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 21:22 [ТС]
	на сайте, встроенный компилятор. да, я ошиблась в расширении. но ему что-то не нравитсяв этих двух строчках: f,s:real; i:integer; 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 21:25
	Вы целиком весь код приведите. 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 21:27 [ТС]
	const n=3; var b:array[1..n] of real; f,s:real; i:integer; begin writeln('vvod elementov'); for i:=1 to n do readln(b[i]); s:=0; for i:=1 to n do begin if b[i] mod 3=0 then f:=sqr(b[i]) else if b[i] mod 3=1 then f:=b[i] else f:=b[i]/3; s:=s+f; end; writeln('cyma',s:2:2); end. 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 21:30
	ошибка - тип элементов массива b должен быть целым (integer) иначе к нему неприменимы операции целочисленного деления. 0

@Владислава77777 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 156
	10.11.2016, 21:33 [ТС]
	компилятор выдал - ошибка времени исполнения 0

ФедосеевПавел Модератор 8665 / 4502 / 1670 Регистрация: 01.02.2015 Сообщений: 13,928 Записей в блоге: 13
	10.11.2016, 21:38
	Какой компилятор? Что вы вводили? Добавлено через 1 минуту Ошибка времени исполнения - это уже не компилятор, а ОС или диагностический код, незаметно для пользователя добавленный компилятором в итоговую программу. 0