Регистрация
Ficksik12345
16.11.2022 18:29
Информатика
Есть ответ 👍

Qbasic написать программу много четырёхугольников

246
407
Посмотреть ответы 2

Ответы на вопрос:

Lucky0ne
Lucky0ne
4,6(77 оценок)
Screen 7h = 10for k = 1 to 10    x1 = 160 - 10*k      x2 = 160 + 10*k    y1 = 40 + h*k    y2 = y1 + h    line (x1, x2, y2), 1, bnext k
михалыч676
михалыч676
4,7(55 оценок)
1. program tt; var   a,b,c,d: real; begin       writeln ('введите массу воды в граммах.'); readln(a);       writeln ('введите массу соли в граммах.'); readln(b);   d : = b+a; c : = b/a; writeln ('массовая доля соли в раствворе - ',c,'.'); end.     2.program tt; var   a,b,pl,per: real; begin       writeln ('введите длинну первого катета.'); readln(a);       writeln ('введите длинну второго катета.'); readln(b);   pl : = (b*a)/2; per : = sqrt(b*b+a*a)+a+b; writeln ('площадь - ',pl,'.'); writeln ('периметр - ',per,'.'); end.    

Популярно: Информатика