Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.51/88: Рейтинг темы: голосов - 88, средняя оценка - 4.51
0 / 0 / 0
Регистрация: 03.01.2019
Сообщений: 10

Встречено := а ожидался оператор

12.05.2019, 10:46. Показов 17777. Ответов 6

Студворк — интернет-сервис помощи студентам
Встречено := а ожидался оператор:
Условие:

Дан массив заполненный по формуле cos(x/3), определить количество его положительных
элементов кратных 3
Программа

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Fa;
var a: array [1..10] of integer;
i, n: integer;
begin
writeln('введи элементы массива? ');
for i := 1 to 5 do 
begin 
writeln('a[',i,']='); readln(a[i]);
end;
for i := 1 to 5 do if (a[i]:=cos(a[i]/3))= 0 then inc(n);
writeln('кратных 3:', n);
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.05.2019, 10:46
Ответы с готовыми решениями:

Встречено 'uses', а ожидался оператор
Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 = class(Form) procedure...

Встречено Procedure а ожидался оператор
var a: Array of longint; b, i, n, g: longint; begin Read(b, n, g); begin for i := 1 to 5 do

Встречено 'procedure', а ожидался оператор
Встречено 'procedure', а ожидался оператор uses graphABC; var i: integer; KeyPressed: boolean; Procedure KeyDown(key:...

6
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
12.05.2019, 10:53
a[i]:=cos(a[i]/3) Уберите двоеточие.
0
0 / 0 / 0
Регистрация: 03.01.2019
Сообщений: 10
12.05.2019, 10:55  [ТС]
операция boolean не применена
помогите пожалуйста
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
12.05.2019, 11:05
Вы пытетесь решить неразрешимую задачу, у которой неполное условие или ее Вам дал какой-то придурок.
Числа вида cos(x/3) не могут быть кратными чему либо, их диапазон [-1..1].

Добавлено через 5 минут
Кстати Ваш код вообще не соответствует заданию.
0
0 / 0 / 0
Регистрация: 03.01.2019
Сообщений: 10
12.05.2019, 11:08  [ТС]
там полная формула такая
y=cos(x/3)
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
12.05.2019, 11:26
Вообще-то в отличие от Вас я читать умею.
И что все элементы массива одинаковые? Вы разберитесь со своим заданием.
0
0 / 0 / 0
Регистрация: 03.01.2019
Сообщений: 10
12.05.2019, 11:56  [ТС]
Спокойнее можно объяснить же, молодец что умеете читать еще нормально общаться научились бы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.05.2019, 11:56
Помогаю со студенческими работами здесь

Встречено 'procedure', а ожидался оператор
program lab5; type arr=array of integer; const n=3; var a:arr; i1,j1,k1,sum:integer; m:boolean; procedure...

Встречено 'procedure', а ожидался оператор
При попытке компиляции выдаёт: Встречено 'procedure', а ожидался оператор. Вроде все проверил, вроде все правильно. Подскажите, пожалуйста,...

Встречено array, а ожидался оператор
В 26 строке выдает ошибку. Program lab8_Smirnov_var10_2; uses crt; const n=3; m=4; var k,i,j:integer; a:array of integer; ...

Ошибка: встречено procedure, а ожидался оператор
uses GraphABC,System; var Q: array of String = ('Запуск', 'О программе', 'Выход'); windowGame: string; //mainMenu - главное...

Program1.pas(12) : Встречено 'else', а ожидался оператор
Program jg; Label 1; Var y,x:integer; Begin y:=6; Write('Введите число '); 1:Readln(x); if x < y then writeln('Мало'); ...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru