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

Мне нужно чтобы измененное слово выводилось не в столбик а заменялось новым
программа:
uses graphabc;
var i: integer;
const slovo = 'misha';
begin
for i: = 1 to 100 do
begin
setfontcolor(rgb(random(225),random(225),random(;
setfontsize (random (20));
setbrushcolor(rgb(random(225),random(225),random(;
writeln(slovo);
sleep (100);
end
end.

👇
Ответ:
Maria2005y
Maria2005y
02.07.2022

Uses GraphAbc;

Var i:integer;

const slovo = 'Misha';

begin

for i:= 1 to 100 do  

begin

SetFontColor(rgb(random(225),random(225),random(225)));

SetFontSize (random (20)+1);

SetBrushColor(rgb(random(225),random(225),random(225)));

textout(0,0,slovo);

sleep (100);

Clearwindow()

end

end.

P.s когда функция SetFontSize (random (20)) равно 0, то выходит ошибка, поэтому я написал "+1".

4,7(7 оценок)
Открыть все ответы
Ответ:

В ячейке B3 получится формула: =D$2+$D3  

20+30=50

ответ: 50

Объяснение:

По условию задачи из ячейки A2 скопировали формулу в ячейку В3, то есть мы переместились на позицию вниз и на позицию вправо, значит и значения в формуле: =C$2+$D2  должны изменить свое значения на позицию вниз и вправо: С2 заменилось бы на D3, но знак $ - означает абсолютную ссылку (неизменяемая при перемещении), значит меняется только значение столбца С на D а строка 2 остается неизменной: получается D$2. Аналогично и с $D2, столбец D не изменяется, а строка 2 меняется на 3 получаем  $D3

В итоге в ячейке B3 имеем формулу: =D$2+$D3


Дан фрагмент электронной таблицы. Из ячейки A2 в ячейку B3 была скопирована формула. При копировании
4,4(38 оценок)
Ответ:
vovan2002vovap0181f
vovan2002vovap0181f
02.07.2022
const  A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.

Объяснение:

sqr(x) -- квадрат x.

sqrt(x) -- квадратный корень x.

power(x, y) -- x в степени y.

real.IsNaN(x) -- x не является числом (условие).

В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).

Алгоритм можно написать по выше данному коду.

Пример работы:

"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."

4,5(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ