PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Цикл: Если средний балл учеников по новой программе превышает средний балл учеников по старой, вывести YES https://www.cyberforum.ru/ pascalabc-net/ thread2414737.html D. Циклы. Строим город - 12.1 0 Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по времени 2 секунды Ограничение по памяти 64 мегабайта	PascalABC.NET Цикл: Вывести сообщение YES в случае, если количество зубцов у всех шестеренок оказалось одинаковым C. Циклы. Строим город - 11.1 0 Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по времени 2 секунды Ограничение по памяти 64 мегабайта
PascalABC.NET Цикл: Программа должна определять, есть ли такой соискатель среди n желающих https://www.cyberforum.ru/ pascalabc-net/ thread2414735.html B. Циклы. Строим город - 10 0 Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по времени 2 секунды Ограничение по памяти 64 мегабайта	PascalABC.NET Цикл: Рассчитать, сколько сентиннеалей у вас будет через х лет A. Циклы. Строим город - 9.1 1 Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по времени 2 секунды Ограничение по памяти 64 мегабайта https://www.cyberforum.ru/ pascalabc-net/ thread2414734.html
Форма почему-то исчезает PascalABC.NET Пишу прогу WinForms, при попадании левого верхнего угла за пределы экрана, вся форма исчезает, почему и как исправить?	PascalABC.NET Вместо суммы выдаёт NaN https://www.cyberforum.ru/ pascalabc-net/ thread2414515.html Задача: вычислить значение суммы \sum_{n=1}^{N}{a}_{n}(x) при изменении аргумента в диапазоне h = \frac{b-a}{10}. Сумма приблизительно равна функции y = f(x), поэтому при вычислении суммы для сравнения необходимо вычислить и эту функцию. (Сумма равна -\frac{{(2x)}^{2}}{2}+...+{(-1)}^{n} \cdot \frac{{(2x)}^{2n}}{(2n)!}, 0.1 \leq x \leq 1, n = 15, y = 2({cos}^{2}(x)-1)). Код программы: var a,...
PascalABC.NET Задача с графиками Напишите два варианта программы, которая вводит координаты на плоскости и определяет, попала ли эта точка в заштрихованную область. Никак не могу разобраться с этим заданием. https://www.cyberforum.ru/ pascalabc-net/ thread2414410.html	Нужно найти ошибку :( PascalABC.NET Господа, не понимаюч в чём заключается ошибка, буду благодарна зв помощь! label lab_notation, lab_operation; var notation: byte; decimal1: integer; binary1, octal1, hexa1: string; decimal2: integer; binary2, octal2, hexa2: string; decimal_res: integer; binary_res, octal_res, hexa_res: string; operation: char;
PascalABC.NET Есть код этой процедуры, а как дополнить ее одной функцией? https://www.cyberforum.ru/ pascalabc-net/ thread2414289.html есть код: readln(c,n); for i:=1 to c do begin k:=0; for j:=1 to n do begin a:=random(199)-99; write(a:5); if a>0 then inc(k);	PascalABC.NET Массив: Определить одномерный массив, который имеет наибольшее кол-во отриц элементов в строке... https://www.cyberforum.ru/ pascalabc-net/ thread2414277.html Дан массив M*N (допустим 5 на 5). Сформировать (отдельно) 4 одномерных массива из первых четырех строк. И самое главное - Определить тот одномерный массив , который имеет наибольшее кол-во отриц элементов в строке и написать номер этого массива. Выручайте, пожалуйста!
PascalABC.NET Найти и распечатайте максимальные значения элементов в каждой строке данной матрицы Найти и распечатайте максимальные значения элементов в каждой строке данной матрицы. Разделить элементы каждого столбца данной матрицы на последний элемент. Полученную матрицу напечатать.	PascalABC.NET Найти количество положительных элементов в каждой строке матрицы https://www.cyberforum.ru/ pascalabc-net/ thread2414067.html Найти кол-во положительных элементов каждой строки массива 10*10, написанного с клавиатуры Выручайте!

Sun Serega

2309 / 1420 / 516

Регистрация: 07.04.2017

Сообщений: 4,723

08.03.2019, 19:16

Встречено 'i', а ожидалось ';' - PascalABC.NET - Ответ 13387080

08.03.2019, 19:16. Показов 4956. Ответов 45

Метки (Все метки)

Ответ

Сообщение от ololo111

with n[i] do

Сообщение от ololo111

x[i],y[i],z[i]

Что то вы не всё доправили. По крайней мере в программе, которую скинули.

Раз вы получили ошибку времени выполнения - я так понимаю вы скинули снова не ту программу.

Сообщение от ololo111

мда, а если так сделать

Pascal

1	read(n[i].x,n[i].y,n[i].z);

то какая-то херня получается

Объясняйте нормально, и без ругательств, пока у меня ещё осталось желание вам помогать. Что именно "получается"?

Добавлено через 57 секунд

Сообщение от ololo111

как сделать чтоб вводилось в строчку а не в столбик

А в чём проблема? Просто вводите через пробел.

Вернуться к обсуждению:
Встречено 'i', а ожидалось ';' PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.03.2019, 19:16

Готовые ответы и решения:

Встречено 'else', а ожидалось ';'
var a,b,c,D, x1, x2: real; begin writeln('Дано уравнение вида ax^2+bx+c=0'); writeln...

Встречено '.', а ожидалось ';'
Привет, форум. Не могу найти ошибку, поможете? function Chr(arg : integer) : char; function...

Встречено ';', а ожидалось ')'
Program2.pas(19) : Str (r:integer; buf:string); ошибка Встречено ';', а ожидалось ')'

Встречено 'else', а ожидалось ';'
program Nikita; var A, B, N, x : integer; d, F :real; Function Cos(X : integer): Real;...

	08.03.2019, 19:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.03.2019, 19:16

Помогаю со студенческими работами здесь

Встречено 'until', а ожидалось ';'
Program calculator; //v1.1 var a,b,rez:real;oper,calc:string;flag_start:boolean; Begin...

Встречено else, а ожидалось ';'
var a1,b1,a,b: real; begin Writeln('Введите А'); readln(a); Writeln('Введите B'); readln(b);...

Встречено '.', а ожидалось ';'
На 169 строке возникает ошибка "Встречено '.', а ожидалось ';'". Помогите, пожалуйста, решить ее. ...

Встречено 'else', а ожидалось ';'
program lol; uses crt; const nmax = 20; type matr = array of integer;

Наверх