Задание по теме:
«Оператор
присваивания, ввод и вывод данных»
Задание №1
Var y: real;
n: integer;
Определите какие из следующих операторов
присваивания правильные, а какие – нет?
А)
Y:=n+1;
Б)
N:=y-1
В)
N:=4.0
Г)
Y:=trunc(y)
|
Д)Y:=n div 2
Е) Y:=y div 2
Ж) N:=n/2
З) N:= sqr(sqrt(n))
|
Задание
№2
Введите программу из примера 1:
} Program Multiply;
}
vara, b, ab: integer;
} Begin
} write(‘A= ‘); Readln(A);
} write(‘B= ‘); Readln(B);
} AB:=A*B;
}
writeln ( A, ‘*’, B , ‘=‘, AB);
} End.
Задание №3
Введите программу из примера 2:
} ProgramSumCifr;
} varx,
Sum: integer;
} Begin
} write(‘Введите трехзначное число: ‘); Readln(x);
} Sum:=0
} Sum:=Sum + X mod 10;
} x:=x div 10;
} Sum:=Sum + X mod 10;
} x:=x div 10;
} Sum:=Sum + X ;
} write ( ‘Сумма цифр= ’, Sum);
} End.
Протестируйте
программу для чисел 368, 129, 427.
Дополните
программу, чтобы она работала для пятизначных чисел.
Задание
№4
Напишите
программу на Паскале, которая:
1. вычисляет длину окружности(С) и
площадь круга (S) одного и того же радиуса R.
Комментариев нет:
Отправить комментарий