Ответ:
Объяснение:
program PrevousAndNext;
var x: integer;
begin
WriteLn('Ввод');
ReadLn(x);
WriteLn ('Следующее число после ', x ,' это число ',x+1 );
WriteLn ('Предыдущее число от ', x ,' это число ',x-1 );
end.
Var a,b,c : real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник существует')
else writeln('Треугольника не существует');
end.
Пример:
<span>a= 3
b= 4
c= 5
Треугольник существует</span>
VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры АААА(), а вторую процедуру разместите в любом доступном модуле, хоть в той же форме.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub aaaa()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED
На языке Си:
#define n 10
int main()
{
int mn=1;
int mas[n];
for(int i=0; i<n;i++)
{
mas[i]=10+rand() % 100;
printf(" %d " ,mas[i]);
}
for(int j=0; j<n; j++)
{
if(mas[j] %2 ==0)
{
mn = mas[j]*mn;
}
}
printf(" Proizvedenie chetnix elementov ravno: ", mn);
return 0;
}
Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
Вот сам код:
program name;
var a, b, c, d, x1, x2, x3: real;
begin
writeln('Введите коэффициенты квадратного уравнения') ;
readln(a, b, c);
d:=sqr(b) - (4*a*c);
x1:= (-b-sqrt(d)) / 2*a;
x2:= (-b+sqrt(d)) / 2*a;
Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
readln(x3);
If x3 = x1 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else If x3 = x2 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else
Writeln('Число ', x3, ' не является корнем уравнения.') ;
End.
