Total Error

[Kassper]

не понял

Добавлено спустя 15 минут 54 секунды:

[Little_Roo]

Как может знак + - * / быть целым числом?

[Kassper]

Ой забыл, спасибо, как вот вы так все замесаете?)

Добавлено спустя 39 минут 36 секунд:

Код: Выделить всё

program Summa_2;

uses crt;
var a, b, rezult
    : integer;
    c : char;


BEGIN
   clrscr;

   write('Введите первое число: ');
   readln(a);
   write('Введите второе число: ');
   readln(b);
   write('Введите знак +, -, *, или / ');
   readln(c);

   if c = + then
   rezult := a + b;
   write('Сумма чисел равна: ',rezult)
    else

   if c = - then
   rezult := a - b;
   write('Разность чисел равна: ',rezult)
    else

   if c = * then
   rezult := a * b;
   write('Произведение чисел равна: ',rezult)
    else


   if c = / then
   rezult := a / b;
   write('Частное чисел равна: ',rezult);


   readln;
   readln;

END.

Так сделал все равно пишет комплитион абортед

[AbakAngelSoft]

Поставьте кавычки вокруг + - / * !
например

Код: Выделить всё

if c = '-' then

А вообще неплохо бы книжку по паскалю почитать!

[Kassper]

ой да ладно еще книжки читать...

Добавлено спустя 7 минут 4 секунды:
все равно эта же ОшибкО скобки разные пробовал ставить и нифига пробовал и (с = /) и с = '/' один фиг

[AbakAngelSoft]

обрамляйте несколько операторов входящих в then операторными скобками begin -- end!

Код: Выделить всё

if c = + then begin
   rezult := a + b;
   write('Сумма чисел равна: ',rezult)
end


Код: Выделить всё

rezult := a / b;

Разделите в уме 5 на 4 и подумайте как компилятор вам результат в целое запишет?
КНИЖКУ В РУКИ СРОЧНО!!!

И в вопросе обязательно указывайте какие ошибки выдает компилятор!!!

[Kassper]

никаких ошибок нету а то что была ошибка: комплитион абортед то это я указал

Добавлено спустя 16 минут 25 секунд:


Что сейчас не так?
Толку от книжки если даже вы не можете исправить ничего...

[AbakAngelSoft]

Я скопировал ваш код вставил его в fp нажал alt+F9 и компилятор мне написал в первом случае - недопустимый оператор, во втором - наличие ; перед else, в третье несоответсвие типов. И каждый раз, умничка такой, сообщал в какой строке проблема!

Только мне пришлось совершать дополнительные действия для решения Вашей задачи.
Если бы вы привели сообщения компилятора и выделили строки где происходит ошибка - решение Ваших проблем было бы найдено намного быстрее.
А если бы Вы попробовали изучить азы языка перед тем как программировать на нем - вопросы заданные здесь просто не возникли бы!

Программа хоть работает?
Книжку взяли почитать?

[Kassper]

У меня компилятор не выдает ошибок кроме той что на скрине( иногда выдает например если ; гдето забыл а вообще щас только то что на скрине, не знаю работает или нет так как я эту программу уже сам делаю без урока, но по идее должна, если удастся скомпилировать.

Добавлено спустя 2 минуты 15 секунд:
С книжкой будут проблемы ибо я читать не умею

[AbakAngelSoft]

где кавычки вокруг литералов???
я бы мог отрпавить вам работающую программу - но боюсь эффекта от нее будет 0.

[Kassper]

Да я тоже сам хочу все писать и бо так легче запомнить, ах да ковычки эфекта не дают, могу скрин кинуть конечно но зачем один и тот же скрин 2 раза, если ошибка не исчезает :

Код: Выделить всё

if c = '+' then begin
   rezult := a + b;
   write('Сумма чисел равна: ',rezult:5:2);
    end;

[AbakAngelSoft]

Подскажите, как Вы добились того, что компилятор не выводит ошибки?
Мне не удается это повторить

[Odyssey]

Первая программа, которую рассматривали чуть выше в этой ветке, тоже не компилируется с сообщением Compilation Aborted? Если да, то проверяйте, удаляли ли вы старый FPC перед установкой нового, не осталось ли старого fpc.cfg, и т.п. Чтобы добраться до осмысленного обсуждения ошибок нужно сначала получить работающий компилятор.

[Kassper]

я незнаю, настройки не менял сегодня утром все выводил прекрасно а щас перестал

Добавлено спустя 5 минут 57 секунд:
Да старый компилятор точно полностью удалил!

Добавлено спустя 1 минуту 2 секунды:
ведь он выводит ошибки и скампелировал уже эту программу токо с 2 числами и задаными уже

[Odyssey]

я незнаю, настройки не менял сегодня утром все выводил прекрасно а щас перестал

Печально, но значит между "утром" и "сейчас" что-то произошло. И кроме вас никто не сможет понять что именно, поэтому на вас вся надежда. Что могло измениться? Если ничего -- то может подождать до завтра, у компьютера пройдёт хандра и всё снова начнёт компилироваться?

UPD:
Так, уточняю:
Утром программа 1 (простая сумма чисел, без строк) и программа 2 (сумма-2) компилировались. Сейчас - и та и другая выдают compilation aborted. Так? Если не так, напишите какая из программ сейчас работает, а какая нет.