Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Считать файл в строку Вопрос в том, почему я не могу читать файл строкой. То есть в программе я читаю строками (переходя каждый раз на новый). Как сделать, чтобы можно было читать значения в строке, стоящие через пробелы....??? type list=^lanka; lanka=record x:integer; next:list; end; var h:text; s:list; procedure Print_list_1( var p:list); var temp:list; https://www.cyberforum.ru/ pascalabc/ thread1379462.html	Посчитать количество слов в строке Pascal ABC Строка содержит предложение. Нужно определить количество слов в этом предложении. Помогите с этой траблой пожалуйста. PS. Я совсем тугой, если не могу это сделать? 9 класс уже как-никак, занимаюсь по "Песням...";
Pascal ABC Вычислить значение функции https://www.cyberforum.ru/ pascalabc/ thread1379341.html f(x)=\begin{cases} \sqrt{x} & \text{ , } x\leq 1 \\ e^{ax}+ln(x+sin\,x) & \text{ , } x \gt 1 \end{cases}, где a=1.42	Pascal ABC Ошибка: попытка разыменовать нулевой указатель Прошу помоч. Написал прогу для такой задачки :" Все числа, упоминаемые в задачах данной группы, являются целыми. Все указатели имеют тип PNode и указывают на записи типа TNode. Типы PNode и TNode описаны следующим образом: type Код Pascal PNode = ^ TNode; TNode = record Data: integer; Next: PNode; end; https://www.cyberforum.ru/ pascalabc/ thread1379316.html
Вычислить значение выражения Pascal ABC	Pascal ABC Найти все числа Армстронга на отрезке [a, b] https://www.cyberforum.ru/ pascalabc/ thread1379311.html Помогите пожалуйста! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K -ю степень (где K – количество цифр в числе) равна самому числу. Например, 153 = 1 3 + 5 3 + 3 3 . Напишите программу, которая находит все числа Армстронга на отрезке .
Pascal ABC Вывести на экран N псевдослучайных целых чисел на заданном отрезке https://www.cyberforum.ru/ pascalabc/ thread1379301.html Помогите пожалуйста! Напишите программу, которая вводит натуральные числа a , b и N , и выводит на экран N псевдослучайных целых чисел на отрезке . Вот мой код program a1; var a, b, N, s:integer; begin readln(a, b, N); randomize; while (N<>0) do	Помочь Робин Гуду забросить камень с посланием узнику в окно замка Pascal ABC никак не могу решить задачу,бьюсь несколько дней, но знания паскаля у меня мизерные, думаю знающим пользователям ее решить не составит труда , задача дана была на практической работе в 9 классе :( зараннее благодарю,жду ваших решений или любой другой помощи
Pascal ABC Как сделать два двигающихся шарика Как сделать в "pascalABC" два двигающихся шарика? помогите, пожалуйста https://www.cyberforum.ru/ pascalabc/ thread1379262.html	Pascal ABC Получить цифры числа, равного разности заданных чисел https://www.cyberforum.ru/ pascalabc/ thread1379257.html Даны цифры двух двузначных чисел ,записываемых в виде и где - число единиц - число десятков.Получить цифры числа, равного разности заданных чисел (известно, что это число двузначное). Число уменьшаемое, число вычитаемое и число разность не определять.
Pascal ABC Найти и вывести количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000 Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 0 до 100 включительно. Опишите на алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000. Под парой подразумевается два подряд идущих элемента массива. const N=40; var a: array of integer; i, j, k: longint; begin for...	Pascal ABC Приведите пример такого числа x, что, несмотря на ошибки, программа печатает правильный ответ Помогите сделать Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число x, не превосходящее 1000, и выводится количество единиц в двоичной записи этого числа. Программист торопился и написал программу неправильно. var x,cnt: integer; begin https://www.cyberforum.ru/ pascalabc/ thread1379218.html

Max Dark

шКодер самоучка

2260 / 1942 / 939

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

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

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

21.02.2015, 01:28

Встречено Else а ожидался оператор - Pascal ABC - Ответ 7253566

21.02.2015, 01:28. Показов 59923. Ответов 1

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

Ответ

begin и end забыли...

Pascal

program klxz3;
var
x,y,z1,z2:real;
begin
writeln('Введите x и y');
readln(x,y);
if (sqr(x)-y<-2) and (x>0) then begin
z1:=sqrt(exp(x))-5;
z2:=sin(sqr(x)-y)-sqr(y);
writeln(z1,z2); end
else 
z1:=(2/3*ln(x))-exp(y*ln((abs(sin(x)))));
writeln('z1=',z1:2:3);
end.

второе "забытое" место подправьте самостоятельно

Вернуться к обсуждению:
Встречено Else а ожидался оператор Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.02.2015, 01:28

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

Встречено 'else', а ожидался оператор
В 44 строчки ошибка: Встречено 'else', а ожидался оператор. Помогите разобраться что не так....

Встречено array, а ожидался оператор
ошибка в 26 строке Program lab8_Smirnov_var10_2; uses crt; const n=3; m=4; var...

Встречено 'array', а ожидался оператор
Выдает ошибку в строчке c:array of integer; Как её исправить? uses crt; var k:...

Ошибка "встречено else, а ожидался оператор"
Пишет в откладке yes но всеровно неправильно

	21.02.2015, 01:28

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.02.2015, 01:28

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

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

Встречено 'case', а ожидался идентификатор
При компиляции пишет: "Встречено 'case', а ожидался идентификатор." В чем может быть ошибка? Const...

Program1.pas(34) : Встречено 'begin', а ожидался идентификатор
34 строка uses GraphABC, events; var a,i: integer; B:array of string; // B - это массив для...

Ожидался оператор
У меня такая проблема: пишет на последней строке "ожидался оператор" Вот код: program kBaDPaT;...

Наверх