Дана таблица в режиме отображения формул. А. В 1. 4. =А1-1 2. =МАКС(А1:В1). Если (А1=А2;10:Сумма(А1:А2) 3.=И(А2<В1;В2>10. =Или(А2=1;В1=1;В1=4) 4.=Не(А1=В1). =СРЗНАЧ(А1:В2) Заполните эту таблицу в режиме отображения значений:
Программы проверены в интерпретаторе ByWater Basic Interpeter/Shell version 2.20 patch level2 for linux
Задание 1: 10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR 30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2) 60 pi=3.1415926 70 r=sqr(SR/pi) 80 if a>=r then print "Круг поместится в квадрат":goto 110 90 if r>=c then print "Квадрат поместится в круг":goto 110 100 print "Фигуры не поместятся друг в друга" 110 print "---------------------------------":print 120 end
Задание 2: 10 rem Три числа 20 print "Введите три числа" 30 input a, b, c 35 if a = b and b = c then print "Числа равны между собой" : goto 100 40 if a > b then swap a, b 50 if b > c then swap b, c 60 if a > b then swap a, b 70 if a > c then swap a, c 80 print "Минимум ", a 90 print "Максимум ", c 100 end
Задание 3: 10 rem Первая цифра - чётная? 20 input "Введите двузначное число ", a 30 if a < 10 or a > 99 then 20 33 me$ = "Начинается с чётной" 36 mo$ = "Начинается с нечётной" 40 if int(a / 10) mod 2 = 0 then print me$ else print mo$ 50 end
Задание 4: 10 rem Треугольник 20 input "Введите длину стороны а ", a 30 input "Введите длину стороны b ", b 40 input "Введите длину стороны c ", c 45 print "Составить такой треугольник "; 50 if a+b>c and a+c>b and b+c>a then 70 60 print "нельзя" 65 goto 90 70 print "можно" 83 if a=b and b = c then print "Треугольник равносторонний" : goto 90 86 if a=b or a=c or b=c then print "Треугольник равнобедренный" 90 end
Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace cool{ class main { static void Main(string[] args) { int u1 = 1, u2 = 2; int l1 = 1, l2 = 1; double a = 0, eps = 0.001; int i = 2; int U, L; double A;
U = u2 + u1; L = l2 + l1; A = (double)U / L;
while (Math.Abs(A - a) > eps || i < 5) { a = A; i++; l1 = l2; u1 = u2; l2 = L; u2 = U;
U = u2 + l2; L = l2 + l1; A = (double)U / L;
#if DEBUG Console.WriteLine("{0} -> {1}|{2}", i, U, L); #endif if (i == 5) Console.WriteLine("Пятый элемент: {0}", A); if (Math.Abs(A - a) < eps) Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps); } } } }
Задание 1:
10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR
30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2)
60 pi=3.1415926
70 r=sqr(SR/pi)
80 if a>=r then print "Круг поместится в квадрат":goto 110
90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end
Задание 2:
10 rem Три числа
20 print "Введите три числа"
30 input a, b, c
35 if a = b and b = c then print "Числа равны между собой" : goto 100
40 if a > b then swap a, b
50 if b > c then swap b, c
60 if a > b then swap a, b
70 if a > c then swap a, c
80 print "Минимум ", a
90 print "Максимум ", c
100 end
Задание 3:
10 rem Первая цифра - чётная?
20 input "Введите двузначное число ", a
30 if a < 10 or a > 99 then 20
33 me$ = "Начинается с чётной"
36 mo$ = "Начинается с нечётной"
40 if int(a / 10) mod 2 = 0 then print me$ else print mo$
50 end
Задание 4:
10 rem Треугольник
20 input "Введите длину стороны а ", a
30 input "Введите длину стороны b ", b
40 input "Введите длину стороны c ", c
45 print "Составить такой треугольник ";
50 if a+b>c and a+c>b and b+c>a then 70
60 print "нельзя"
65 goto 90
70 print "можно"
83 if a=b and b = c then print "Треугольник равносторонний" : goto 90
86 if a=b or a=c or b=c then print "Треугольник равнобедренный"
90 end
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace cool{
class main
{
static void Main(string[] args)
{
int u1 = 1, u2 = 2;
int l1 = 1, l2 = 1;
double a = 0, eps = 0.001;
int i = 2;
int U, L;
double A;
U = u2 + u1;
L = l2 + l1;
A = (double)U / L;
while (Math.Abs(A - a) > eps || i < 5)
{
a = A;
i++;
l1 = l2; u1 = u2;
l2 = L; u2 = U;
U = u2 + l2;
L = l2 + l1;
A = (double)U / L;
#if DEBUG
Console.WriteLine("{0} -> {1}|{2}", i, U, L);
#endif
if (i == 5)
Console.WriteLine("Пятый элемент: {0}", A);
if (Math.Abs(A - a) < eps)
Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps);
}
}
}
}