Dim a, b as integer
private Sub Command_click()
a=Val(text1.text)
b=Val(text2.text)
if a>b then label1 caption =a Else label1 coption=b
End Sub
там по подобию этой
1. Если будет южный ветер или не будет северного ветра, то будет дождливо и не будет холодно.
2. Если ветра южного не будет, то не будет пасмурно или пойдет дождь.
3. Если же все-таки будет южный ветер, то будет пасмурно, но дождя не будет.
4. Если не будет северного ветра или будет холодно, то задует южный ветер и будет пасмурно.
из 4. или северный ветер или южный, если задует северный ветер и будет холодно, то задует и южный ветер, а если задует южный то будет пасмурно.
из 3. известно, что если будет южный ветер, то будет пасмурно, но дождя не будет,
однако, из 1. видно, что если будет южный ветер, то будет дождливо и не будет холодно.
из 2. если не будет южного ветра (т.е. будет северный), то не будет пасмурно или пойдет дождь
#include <math.h>
#include <stdio.h>
const float eps=0.0001;
float F(double x){
return cos(2.0/x)-2*sin(1.0/x)+1.0/x;
}
float Func(double a, double b)
{
float x=(a+b)/2;
float y=F(x);
if (fabs(y)<eps) return x;
else if (F(a)*y<0) Func(a,x);
else Func(x,b);
}
int main()
{
float a, b;
printf("a = ");
scanf("%f",&a);
printf("b = ");
scanf("%f",&b);
if (F(a)*F(b)<0) printf("x = %f\n",Func(a,b));
else printf("Нет сходимости\n");
return 0;
}
Пример - в прилагаемом файле.
PS. Без анализа деления на 0.
СLS
INPUT a
INPUT b
INPUT c
IF a<b AND a<c THEN PRINT "наименьшее число"; a: END
IF b<a AND b<c THEN PRINT "наименьшее число"; b: END
IF c<a AND c<b THEN PRINT "наименьшее число"; c ELSE PRINT "наименьшего числа нет"