В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
You666
You666
06.11.2020 04:00 •  Информатика

Задачу написать на MASM32 Используя счетчик LOOP написать программу, которая находит сумму значений функции y = x2 + 7 – 2x в диапазоне от 1 до 12 с шагом 1

Показать ответ
Ответ:
настюшанастя1200
настюшанастя1200
06.03.2020 07:44
//1.
const god1=1626;
      god2=2015;            bank=0.07;      var
summa:real;
begin
summa:=24;
for var  i:=god1 to god2 do
summa:=summa+(summa*bank);
writeln(summa);
end.
//2.
var
a,b:integer; 
begin
read(a);
b:=0;
for var i:=1 to length(inttostr(a))  do begin
b:=b*10+a mod 10; a:=a div 10;
end;
writeln(b);
end.
//3.
const s=0.05;
var 
d:integer;
z:real;
begin
read(z);
d:=0;
repeat
inc(d);
z:=z-z*s;
until z<=30;
writeln(d);
end.
//4.
var
b,c:integer;
a:real;
begin
writeln('Кол-во $ и какой проц. годовых?');
readln(a,b);
c:=0;
while a<1000000 do begin
a:=a+a*(b/100);
inc(c);
end;
writeln(c);
end.
//5.
const max=100;var
a,b,c,d:integer;
begin
b:=0;
writeln('Кол-во машин?');
read(d);
writeln('Перечислите вес груза');
read(a);
c:=a;
for var i:=1  to d-1 do begin
read(a);
while c<=max do begin
inc(b);
c:=c+a;
end;
end;
writeln(b);
end.
//ABC Pascal
0,0(0 оценок)
Ответ:
Nady2106
Nady2106
28.05.2020 07:05
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
  текст определения этой функции. В противном случае удалите все комментарии }
 
{
function sign(x:real):integer;
begin
  if x<0 then sign:=-1
  else
    if x>0 then sign:=1 else sign:=0
end;
}

var
  x1,x2,y1,y2:real;
begin;
  Write('Введите через пробел координаты точки 1: ');
  Read(x1,y1);
  Write('Введите через пробел координаты точки 2: ');
  Read(x2,y2);
  if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
  then Writeln('Точки находятся в одной четверти')
  else Writeln('Точки находятся в разных четвертях')
end.

Тестовое решение:
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота