Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Программа тестирования https://www.cyberforum.ru/ pascal/ thread2176485.html Скажу сразу,не прошу писать за меня программу,просьба подсказать пару пунктов. Я хочу на паскале сделать что-то типа тестера. Типа такого Writeln('Ok, ',a,' ','I have 1 test for you.Press ENTER to continue'); writeln (First question-Who are ...); writeln ('a: ')-тут варианты writeln ('b: ')-тут варианты writeln ('c: ')-тут варианты	Подскажите пожалуйста, нужно сделать так, чтобы х было не равно нулю Pascal Program Lab2; Const b=2.4; c=1.7; Var x, a, y: real; Begin write ('Введите значение x='); readln (x); a:=3.5b/(b+exp(3ln(c))); if x < 1 then y:=sqrt(a+b/x); if x > 1 then y:=sqr(ax+bx); writeln ('y=', y);
Pascal Введите элементы массива после следующего шага итерации сортировки простым выбором https://www.cyberforum.ru/ pascal/ thread2176423.html Массив , после 5 итераций сортировки методом пузырьком массива имеет вид 22 32 33 52 58 74 72 77 . Введите элементы массива после следующего шага разделив их точкой с запятой.	Pascal Подскажите, пишет неожиданный символ в строке write Program Lab2; Const b=2.4; c=1.7; Var x, a, y: real; Begin write (‘Введите значение x=’); readln (x); a:=3.5b/(b+exp(3ln(c))); if x < 1 then y:=sqrt(abc(a+b/x)); else if x > 1 then y:=sqr(ax+bx); writeln (‘y=’, y); https://www.cyberforum.ru/ pascal/ thread2176422.html
Введите элементы массива после следующего шага итерации сортировки простым выбором Pascal Массив , после 3 итераций сортировки простым выбором массива имеет вид 20 33 37 42 63 80 92 64 . Введите элементы массива после следующего шага разделив их точкой с запятой.	Pascal Хочу научиться понимать и программировать сам и поскорее дайте плиз источники по которым можно быстро научиться программировать и понимать на языке паскаль , так же как и ребята которые помогают здесь https://www.cyberforum.ru/ pascal/ thread2176418.html
Pascal Зеркально отразить элементы квадратной матрицы относительно побочной диагонали https://www.cyberforum.ru/ pascal/ thread2176179.html Данная квадратная матрица А порядка М. Зеркально отразить ее элементы относительно побочной диагонали (при этом элементы побочной диагонали останутся на прежнем месте, элемент A1,2 поменяется местами с АМ, M, элемент А1,2 - с АМ-1, M i т.д.). Вспомогательную матрицу не использовать.	Pascal Упорядочить строки матрицы по возрастанию первых элементов Данная матрица размера М × N. Упорядочить ее строки так, чтобы их первые элементы образовывали возрастающую последовательность.
Pascal Найти минимальный среди элементов тех строк матрицы, которые упорядочены https://www.cyberforum.ru/ pascal/ thread2176177.html Данная матрица размера М × N. Найти минимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию. если упорядоченные строки в матрице отсутствуют, то вывести 0.	Pascal Сформировать целочисленную матрицу размера М×N, у которой все элементы 7-го столбца имеют значение 5 × J Даны целые положительные числа М и N. Сформировать целочисленную матрицу размера М × N, у которой все элементы 7-го столбца имеют значение 5 × J (J = 1, ..., N). https://www.cyberforum.ru/ pascal/ thread2176176.html
Упорядочить последние k элементов по убыванию значений четных элементов Pascal Дан массив А размера N. Упорядочить последние k элементов по убыванию значений парных элементов.	Pascal Удалить из массива все одинаковые элементы, оставив их последние вхождения Дано целочисленный массив размера N. Удалить из массива все одинаковые элементы, оставив их последние вхождения. https://www.cyberforum.ru/ pascal/ thread2176174.html

bormant

Модератор

7771 / 4600 / 2824

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

Сообщений: 13,080

Записей в блоге: 1

18.01.2018, 22:10

Не могу найти ошибку в коде - Pascal - Ответ 12043166

18.01.2018, 22:10. Показов 595. Ответов 1

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

Ответ

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

Написал программу

Слишком смелое заявление.
У транслятора Паскаля на этот счет другое мнение:

Код

(28,4) Fatal: Syntax error, ";" expected but "." found

Pascal

const alpha=1e-2;
var s, e: Real; n: Integer;
begin
  e:=1; n:=1; {s:=0;}
  while Abs(e)>alpha do begin
    s:=s+e; Inc(n); e:=-e/n;
  end;
  WriteLn(s,' на шаге ',n-1);
  Write('Нажмите Enter...'); ReadLn;
end.

Вернуться к обсуждению:
Не могу найти ошибку в коде Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.01.2018, 22:10

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

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 считываются два...

Не могу найти ошибку в коде
Добрый день! Ранее пользовался подсказками форуме, и кое как сделал программу, но она не совсем...

не могу найти ошибку в коде програвммы
unit UNIT_L8; interface uses crt; type matr=array of real; procedure vvodmatr(a:matr;...

Не могу найти ошибку в коде
Вот задача: Найти произведение элементов линейного массива целых чисел, которые не кратны 5....

	18.01.2018, 22:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.01.2018, 22:10

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

Не могу найти ошибку в коде
PROGRAM LAB3a; { СЕЛЕКТИВНАЯ ОБРАБОТКА МАССИВОВ } USES CRT; CONST A=16; B=12; TYPE...

Не могу найти ошибку в коде
После запуска программа требует ввода данных с клавиатуры, хотя все данные должны считываться из...

Не работает процедура. Не могу найти ошибку в коде
procedure DeleteGroup; var groupname:string; begin countGroup:=0; ...

Не могу найти ошибку в коде
class genetic { typedef bool* chr; typedef vector<chr> vals; vals...

Наверх