Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 19.01.2016
Сообщений: 16

Не пойму в чем ошибка, вроде все просто, но не работает

15.06.2018, 18:50. Показов 1076. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
 x,y,i:real;
 
begin
i := 0;
x := 3;
y := -2;
readln(x);
   
if x > 0 then
             begin
               y := 5;
             end;
//[B]Ругается на эту строку, не пойму, что не так[/B]
if ((x>-7) and (x<=-3)) then y:= sqrt(4-sqr(x));
 
writeln('otvet = ',y);
 
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.06.2018, 18:50
Ответы с готовыми решениями:

Не пойму ,в чём ошибка . Всё компилируется
Я создал функцию поиска по заданном ключу , ключ вводится с клавиатуры . int Poisk(int *arr,int size,int key) { for(int...

Вроде всё легко, но происходит ошибка. В чём дело?
import discord from discord.ext import commands from discord.ext.command import Bot Bot = commands.Bot(command_prefix='!') ...

Не пойму в чем ошибка.как не смотрел , все правильно
Допустим, нужно найти среднее арифм. чисел которые заканчиваются на 4 в интервале от 1 до 100 procedure TForm1.Button1Click(Sender:...

8
Aimez-vous les baguettes?
193 / 26 / 27
Регистрация: 25.10.2017
Сообщений: 165
15.06.2018, 19:37
Вы бы хоть скинули, как интерпретатор "ругается". При вводе случайных данных (однозначных и двузначных) у меня всё в штатном режиме, а в Вашей 14 строке нет кода, хотя написано ,что на неё и ругается.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.06.2018, 20:04
Цитата Сообщение от Doger11132 Посмотреть сообщение
if ((x>-7) and (x<=-3)) then y:= sqrt(4-sqr(x));
Если например х=-6, то 4-х*х<0, корень не определен
0
1 / 1 / 0
Регистрация: 19.01.2016
Сообщений: 16
15.06.2018, 20:14  [ТС]
Puporev, да, как это можно исправить?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.06.2018, 20:24
Это или формулу неправильно написали или в задании опечатка, задание же секретное.
,
0
1 / 1 / 0
Регистрация: 19.01.2016
Сообщений: 16
15.06.2018, 22:01  [ТС]
Нету задания, это формула окружности, выражение y через Х и радиус. Формула вроде бы правильная
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.06.2018, 22:06
Цитата Сообщение от Doger11132 Посмотреть сообщение
Нету задания,
Ну нету, значит и ответа нету.
Цитата Сообщение от Doger11132 Посмотреть сообщение
Формула вроде бы правильная
Формула чего? Задания же нет.
0
1 / 1 / 0
Регистрация: 19.01.2016
Сообщений: 16
15.06.2018, 22:13  [ТС]
Формула окружности, я же сказал
Мне не нужен правильный ответ задания или решения, мне просто нужно исправить ошибку
0
Заблокирован
16.06.2018, 09:03
Pascal
1
if (x>-7) and (x<=-3) then y:= sqrt(4-sqr(x+5));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.06.2018, 09:03
Помогаю со студенческими работами здесь

вроде все просто
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;ctime&gt; using namespace std; int main() { int mas, a; srand...

Вроде-бы все просто, но путаюсь с константыми методами
В чем разница где поставить модификатор const const void Metod(); void Method()const; В каком случаем использовать один из их? ...

Нужно разобраться ,не могу понять в чём ошибка, вроде всё правильно(условие задачи:на фотке вложенной, 5 сверху)!
type mass = array of Integer ; TForm1 = class(TForm) lbl1: TLabel; lbl2: TLabel; lbl3: TLabel; btn1:...

На цикл Пока - вроде все просто, а что-то не врублюсь
Вычислить сумму 1/3-5/7+7/9-9/11+... Число слагаемых задаётся с клавиатуры. Общей формулы нет, её надо ещё и написать. ну и программу саму....

HTML-форма, вроде просто, а вроде и нет
Уважаемые форумчане, помогите пожалуйста! Есть HTML-таблица с формой: |______|_A______|_B______| |_Вася_|_input_A_|_input_B_| ...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru