М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
allegron4567
allegron4567
12.09.2020 12:17 •  Информатика

Код есть, но там не то нужно получить. Можно переписать его
uses crt;
type complex=record
re,im:real;
end;
{вывод результата}
procedure Vyvod(var f:complex);
begin
if f.im<0 then writeln(f.re:9:5,' -',-f.im:0:5,'i')
else writeln(f.re:5:2,' +',f.im:0:2,'i');
end;
{умножение комплексного на целое}
procedure UmCh(f:complex;var z:complex;k:byte);
begin
z.re:=k*f.re;
z.im:=k*f.im;
end;
{деление комплексного на целое}
procedure DelCh(f:complex;var z:complex;k:byte);
begin
z.re:=f.re/k;
z.im:=f.im/k;
end;
{вычитание из комплексного целого}
procedure VchCh(var z:complex;k:byte);
begin
z.re:=z.re-k;
end;
{сложение комплексных}
procedure Summa(var f:complex;g:complex);
begin
f.re:=f.re+g.re;
f.im:=f.im+g.im;
end;
{вычитание комплексных}
procedure Razn(var f:complex;g:complex);
begin
f.re:=f.re-g.re;
f.im:=f.im-g.im;
end;
{умножение комплексных}
procedure Proizvedenie(f,g:complex;var z:complex);
begin
z.re:=f.re*g.re-f.im*g.im;
z.im:=g.re*f.im+f.re*g.im;
end;

var u,v,w,u1,u2,w1,r:complex;
begin
clrscr;
writeln('Vvedite deist. i mnim. chasti u:');
readln(u.re,u.im);
writeln('Vvedite deist. i mnim. chasti v:');
readln(v.re,v.im);
writeln('Vvedite deist. i mnim. chasti w:');
readln(w.re,w.im);
UmCh(u,u1,3);
DelCh(w,w1,2);
Proizvedenie(u1,w1,r);
Summa(r,w);
Razn(r,u2);
UmCh(u,u2,2);
Summa(r,u2);
VchCh(r,7);
write('2u+(3u*w/2+w-u)-7=');
Vyvod(r);
readln
end.

👇
Открыть все ответы
Ответ:
diana2010123456
diana2010123456
12.09.2020
Последовательность действий ученика при самостоятельном изучении параграфа учебника:
1) достать учебник
2) сесть за стол
3) открыть учебник
4) прочитать параграф
5) ответить на вопросы после параграфа
6) открыть тетрадь
7) сделать краткий конспект по вопросам в конце параграфа
8) закрыть тетрадь
9) закрыть учебник
10) убрать учебник

Последовательность действий мамы при варке манной каши:
1) взять кастрюлю
2) налить воду в кастрюлю
3) зажечь огонь на плите
4) поставить кастрюлю на огонь
5) достать крупу, молоко
6) добавить в кастрюлю молоко
7) когда вода и молоко закипят добавить крупу
8) взять ложку
9) мешать ложкой крупу
10) накрыть крышкой
11) выключить огонь под кастрюлей
4,8(73 оценок)
Ответ:
mslava150
mslava150
12.09.2020
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
4,8(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ