4 года назад

Объясните, что означает в Паскале for...to...do

1 ответ:

milkyway11 [6]4 года назад

0 0

Это арифметический цикл
<span>for переменная := (значение №1) to (значение №2) do (оператор)
</span>например если требуется возвести в куб какое-либо число, то удобно использовать данный цикл

<span>for x:=1 to 10 do WriteLn(x*x*х);
</span>
надеюсь, что понятно написала)

Читайте также

Ребята! Срочно! Нужна помощь с информативной 8 класс!!! Вот эти три задания

КАВКАЗАЛИМ

Ответ:

В приклепленом файле. Вроде все подробно

Объяснение:

0 0

3 года назад

Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300;300] и вывести его на экран в строчк

Saks1

Program help;
Uses Crt;
Const n = 10; (* Размер массива *)

Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;

Begin
Randomize;
ClrScr;

Writeln('Массив: ');

For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)

if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;

Writeln('Массив после изменения: ');

For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)

End.

0 0

4 года назад

Помогите пожалуйста. Что получится в результате действий исполнителя Чертежник по следующему алгоритму Перевели в точку(1,1) оп

Alexandru Motoc

Ну если я ничего не путаю то решается это так берёшь лист тетради в клетку ставишь точку она будет нулевой (тип система отсчёта) теперь выполняем алгоритм из точки (0,0) мы оказались в точке (1,1) при этом мы путь до этой точке не чертили так как это не написано в программе теперь начинается цикл в котором мы уже будем чертить путь передвижения так как у нас это заданно в программе
и если я ничего не напутал получаем такой рисунок

0 0

3 года назад

Напишите два варианта программы(2 не обязательно),которая вводит координаты на плоскости и определяет,попала ли эта точка в зашт

Марина Даньшина

Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.

0 0

4 года назад

В книге заклинаний на каждой странице 49 строк.Баба-яга помнит, что нужное ей заклинание находится в 833-ой строке( если вообще

Александр сидящий... [7]

Правельный ответ: 17 49.

0 0

4 года назад