// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
for var i := 1 to 10 do
Writeln(i, ') y = ', sqrt(i));
end.
Программа рисует узор (см. вложение), состоящий из 20 эллипсов, каждый из которых повёрнут на 9 градусов относительно предыдущего. Угол поворота задаётся переменной а, которая изменяется от 0 до 180 (так как 20*9=180). Cos(a) и Sin(a) задают положение эллипса.
Каждый эллипс рисуется с помощью 6280 точек (цикл по k) командой PutPixel? начиная с крайней левой точки эллипса. Cos(t) и Sin(t) задают отклонение каждой точки от "центра" эллипса.
PS Кстати, в программе есть ошибка - цвет надо задавать как "clWhite", a не "White" - хотя задавать белый вобще нет смысла - его не будет видно :)
Язык C++.
#include <iostream>
#include <cmath>
const double pi = 3.1415;
using namespace std;
int main() {
double r;
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Длина окружности = " << 2*pi*r << endl << "Площадь = " << pi*pow(r,2) << endl;
}
//PascalABC.Net 3.2
function f(n: integer):=3*n-1;
begin
var sum:=0;
for var i:=1 to 60 do sum+=f(i);
write (sum);
end.
Поля для ввода, иконки в средах программирования, кнопки и т.д
В них вводится текст. А также с помощью диалоговых окон можно осуществлять общение юзера и системы.