ПОЖАЛУЙСТА ПОМОГИТЕ!! Начертить схему, записать алгоритм и программу на языке программирования Паскаль для вычисления таблицы значений функции
5-9 класс
|
Для x=1,2,3,4,5,6,7,8,9,10.
{5x, если x >= 0} {4x+2, если x < 0}
Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):
var
x, y: real;
begin
writeln('*********************');
writeln('* X * Y *');
writeln('*********************');
for x := 1 to 10 do
begin
if x>=0 then y:=5*x else y:=4*x+2;
writeln('* 'x,' * ',y,' *');
end;
writeln('*********************');
end.
Но лучше сделать ввод значений х с клавиатуры:
var
y: real; i:integer;
mas: array[1..10] of real;
begin
for i := 1 to 10 do
begin
write ('Введите ',i,'-е значение ');
readln (mas[i]);
end;
writeln('*********************');
writeln('* X * Y *');
writeln('*********************');
for i := 1 to 10 do
begin
if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
writeln('* ',mas[i],' * ',y,' *');
end;
writeln('*********************');
end.
Другие вопросы из категории
лампочек должно находится на табло, чтобы с его помощью можно было передать 50 различных сигналов?ПОМОГИТЕ!!!ПЛИЗ!!!ОЧЕНЬ БЛАГОДАРЕН БУДУ!!!!
операторов присваивания:
б) x := 17.5
x : = - 2 * x
Читайте также
ЗАДАЧА - Составить программу решения задачи: Z = m/(m-1)
ЗАДАЧА - Составить программу определения четных (нечетных) чисел
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
(for i := 1 to ... do ...).
радиуса R ввести с клавиатуры), полученный ответ вывести на экран.