Предмет: Информатика,
автор: 3yvv5666
нужно написать программу,
Помогите пожалуйста
Приложения:
VYOSO:
Тебе надо программу только для номера 1?
и 2
Программа на каком языке должна быть?
program test; // Название программы test
var
k,t:real; // переменные
begin // Начало кода
WriteLn('Введите значение t'); // Выводим текст
ReadLn(t); // Считываем значение в переменную
if t>0 then k:= sqr(t)+7*t; // sqrt корень.
if t=0 then k:=3;
if t<0 then k:= sqrt(-t);
WriteLn(k);
end.
var
k,t:real; // переменные
begin // Начало кода
WriteLn('Введите значение t'); // Выводим текст
ReadLn(t); // Считываем значение в переменную
if t>0 then k:= sqr(t)+7*t; // sqrt корень.
if t=0 then k:=3;
if t<0 then k:= sqrt(-t);
WriteLn(k);
end.
жаль 2 выводит с лишними знаками.
Ответы
Автор ответа:
0
Пишу на языке PASCAL.
№1
program name1; // Название программы name1
var a: integer; // Объявляем переменные
begin
WriteLn('Введите число: ');
ReadLn(a);
if a>0 then writeln('Число положительное');
if a=0 then writeln('Число равно 0')
else writeln('Число отрицательное');
end.
Номер 2.
program test; // Название программы test
var
k,t:real; // переменные
begin // Начало кода
WriteLn('Введите значение t'); // Выводим текст
ReadLn(t); // Считываем значение в переменную
if t>0 then k:= sqr(t)+7*t; // sqrt корень.
if t=0 then k:=3;
if t<0 then k:= sqrt(-t);
WriteLn(k);
end.
var
k,t:real; // переменные
begin // Начало кода
WriteLn('Введите значение t'); // Выводим текст
ReadLn(t); // Считываем значение в переменную
if t>0 then k:= sqr(t)+7*t; // sqrt корень.
if t=0 then k:=3;
if t<0 then k:= sqrt(-t);
WriteLn(k);
end.
Похожие вопросы
Предмет: Литература,
автор: faraonic777
Предмет: История,
автор: nikita99rus
Предмет: Биология,
автор: alina659016
Предмет: Литература,
автор: Аноним
Предмет: Геометрия,
автор: Ikutaru