Програмерам

[Decol1200]

поставив... вийшло ось що:
після бегін виставив райт виберіть дію, всьо як положено.. дальше іф /, зен /, іф +, зен + і тд а там еррор ін експрешн

[Rost]

Decol1200
кинь сам код

[Decol1200]

одразу після бегін:
write('vyberit diy');
if /, then /, if +, then +, if -, then -, if *, then *;
readln;
і далі нічого не міняв

[Rost]

if /, then /, if +, then +, if -, then -, if *, then *;

это, мягко говоря, неправильно.

[Decol1200]

а як правильно-то?

[Rost]

Decol1200
прийду - напишу свой вариант.

[Decol1200]

а коли прийдеш?

[Rost]

думаю, что ночью

[EvGaS]

думаю, что ночью

Тру овер никоггда не спит! ХЪ

[HighVoltageLP]

ночью прохладнее, можно гнать =) а вообще тру овер сидит и оверит и бенчит и оверит а не болтает на форуме, только когда просит подарить ему видяшку

[Ultrasound]

readln;

ФИОТ гавно-патамушта кады я хател туды поступать тама конкурс был 1:18

[HighVoltageLP]

надо было ЗНО сдавать хорошо))
я сам в последний день проскочил

[HighVoltageLP]

Кто-то шарит как в паскале работать с комплексными числами?) надо простенькую прогу сделать

[Rost]

HighVoltageLP
что именно сделать?

[HighVoltageLP]

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

я так понял числа в формате a+bi c+di и для суммы выводить (a+c)+(b+d)i, записывать вводимые числа в стринг и искать до плюса и после ну или а и б запрашивать отдельно

[Rost]

HighVoltageLP
элементарная прога. Чем можно пользоваться (к какой теме относиться прога)? Задача то учебная.

[HighVoltageLP]

сама задача на record

а так функции, модули, процедуры,массивы, строки...

[Rost]

HighVoltageLP
о, отлично. Я тебе напишу вариант, когда действительную и мнимую часть вводят отдельно. Если хочешь, можешь потом со строками поморочить себе голову.

Погоди минут 10-15. я свой модуль поворота пятиугольника допишу, потом сим займусь.

Код: Виділити все

uses crt;
type cnumb=record
     creal:integer;
     cimag:integer;
     end;
     c = array [1..2] of cnumb;
var
    i:byte;
    a:integer;
    b:cnumb;
    z:c;

begin
For i:=1 to 2 do
 begin
  clrscr;
  write ('введите действительную часть ',i, ' числа : ');
  readln(a);
  z[i].creal:=a;
  write ('введите комплексную часть ',i, ' числа : ');
  readln(a);
  z[i].cimag:=a;
 end;

write('вы ввели ');
for i:=1 to 2 do
 write(z[i].creal, '+i',z[i].cimag,' ');
readln;

write('сумма равна­ :');
for i:=1 to 2 do
 begin
  b.creal:=b.creal+z[i].creal;
  b.cimag:=b.cimag+z[i].cimag;
 end;
write(b.creal,'+i',b.cimag);
readln;
end.

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

[HighVoltageLP]

спс, снова выручаешь =)

[Rost]

HighVoltageLP
заранее обращаю внимание, что прога работает только с действительными числами для действительной и мнимой части.

еще бок в том, что отрицательные знаки некорректно выводятся. Надеюсь ты это исправил?