сервис вопросов и ответовВопрос на 50 балов. Напечатайте программу на языке Turbo Pascal,заранее спасибо
5-9 класс|
|
Прикрепленные изображения
ВикаКраева
11 янв. 2014 г., 9:07:46 (10 лет назад)
Juilyarym
11 янв. 2014 г., 10:23:35 (10 лет назад)
var
f, x: Real;
begin
write('X = ');
Readln(x);
if Abs(x) <= 1 then f:=Abs(x)
else if Abs(x) <= 2 then f:=Sqr(x)
else f:=4;
Writeln('F(x) = ', f:4:2);
Readln;
end.
Ответить
Другие вопросы из категории
Ребята, помогите пожалуйста!!!
Составить программу вычисляющую периметр ромба, если известны его диагонали.(Pascal)
Ребяяят дам 55 балов!!!!
в общем дан массив а :var a,b,c,d:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
{readln (a[i])};
a[i]:=random(100);
end;
for i:=1 to 10 do begin
write (a[i]:4);
end;
и мне надо заполнить массив d элементами массива а НО В ОБРАТНОМ ПОРЯДКЕ как это сделать!!!!!!
составьте программу которая заполняет массив а [1..8] случайными числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными
значениями и сумму элементов массива с нечётными значениями
Читайте также
1.Какое значение переменной S будет напечатано после выполнения фрагмента программы,записанной на языке программирования TURBO PASCAL:A:=2В: = 3;
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
Написать программу на языке Turbo Pascal .
Вычисления площади равнобедренной трапеции.
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
Вы находитесь на странице вопроса "Вопрос на 50 балов. Напечатайте программу на языке Turbo Pascal,заранее спасибо", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.