<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var
x,y,L:array[1..4] of real;
begin
Writeln('Введите координаты четырех точек (парами х,y)');
for var i:=1 to 4 do Read(x[i],y[i]);
for var i:=1 to 3 do
L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
L[4]:=Len(x[4],y[4],x[1],y[1]);
var s:=0.0;
for var i:=1 to 4 do s+=L[i];
Writeln('P=',s)
end.
<u>Пример</u>
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. Ответ совпадает.
Киберне́тика-наука об общих закономерностях получения, хранения, преобразования и передачи информации в сложных управляющих системах, будь то машины, живые организмы или общество
Ну, а если серьёзно, IT - это сокращение от information technology. Русский аналог ИТ - информационные технологии. То есть, это всё, что связано с процессами взаимодействия с информацией: поиск, сбор, хранение, обработка, представление (отчетность), распространение (передача).
С появлением компьютерной техники ИТ стали неразрывно связаны с компьютерными технологиями.
Информация может представляться в текстовом, числовом, графическом, видео, аудио виде. Для работы с информацией создаются программно-технические средства.
На основе анализа и обработки информации как правило принимаются решения о каких-либо действиях (управленческие решения).
IT-технологии объединяют руководителей проектов, системных аналитиков, постановщиков задач, программистов, системных администраторов, администраторов баз данных, технический персонал, специалистов по сопровождению работы программного обеспечения (например, 1-С-Предприятие) и др. Часто ряд позиций совмещается в одном лице.
Using System;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Drawing.Imaging;
using System.IO;
using System.Windows.Forms;
namespace WindowsFormsApplication1 {
public partial class Form1 : Form {
private readonly Pen mainPen_ = new Pen(Color.Blue, 4);
private Bitmap bmp_;
private Point currentPoint_;
private Graphics g;
private Point previousPoint_;
public Form1() {
this.InitializeComponent();
}
private void bOpen_Click(object sender, EventArgs e) {
// Описываем объект класса OpenFileDialog
var dialog = new OpenFileDialog {
Filter = "Image files (*.BMP, *.JPG, *.GIF, *.PNG)|*.bmp;*.jpg;*.gif;*.png"
};
// Задаем расширения файлов
// Вызываем диалог и проверяем выбран ли файл
if (dialog.ShowDialog() != DialogResult.OK) {
return;
}
// Загружаем изображение из выбранного файла
var image = Image.FromFile(dialog.FileName);
this.pictureBox1.Width = image.Width;
this.pictureBox1.Height = image.Height;
// Создаем и загружаем изображение в формате bmp84
this.bmp_ = new Bitmap(image);
// Записываем изображение в pictureBox1
this.pictureBox1.Image = this.bmp_;
// Подготавливаем объект Graphics для рисования
this.g = Graphics.FromImage(this.pictureBox1.Image);
this.g.SmoothingMode = SmoothingMode.AntiAlias;
}
private void pictureBox1_MouseDown(object sender, MouseEventArgs e) {
// Записываем в предыдущую точку текущие координаты
this.previousPoint_ = new Point(e.X, e.Y);
}
private void pictureBox1_MouseMove(object sender, MouseEventArgs e) {
// Проверяем нажата ли левая кнопка мыши
if (e.Button != MouseButtons.Left) {
return;
}
// Запоминаем текущее положение курсора мыши
this.currentPoint_ = new Point(e.X, e.Y);
// Соеденяем линией предыдущую точку с текущей
this.g.DrawLine(this.mainPen_, this.previousPoint_, this.currentPoint_);
// Текущее положение курсора - в previousPoint_
this.previousPoint_ = this.currentPoint_;
// Принудительно вызываем перерисовку
this.pictureBox1.Invalidate();
}
private void bSave_Click(object sender, EventArgs e) {
// Описываем и порождаем объект savedialog
var savedialog = new SaveFileDialog {
Title = "Сохранить картинку как...",
OverwritePrompt = true,
CheckPathExists = true,
Filter =
"Bitmap File(*.bmp)|*.bmp|" +
"GIF File(*.gif)|*.gif|" +
"JPEG File(*.jpg)|*.jpg|" +
"PNG File(*.png)|*.png"
};
// Показываем диалог и проверяем задано ли имя файла
if (savedialog.ShowDialog() != DialogResult.OK) {
return;
}
var format = ImageFormat.Jpeg;
switch (Path.GetExtension(savedialog.FileName)) {
case "bmp":
format = ImageFormat.Bmp;
break;
case "jpg":
format = ImageFormat.Jpeg;
break;
case "gif":
format = ImageFormat.Gif;
break;
case "tif":
format = ImageFormat.Tiff;
break;
case "png":
format = ImageFormat.Png;
break;
default:
break;
}
this.bmp_.Save(savedialog.FileName, format);
}
private void bChangePixels_Click(object sender, EventArgs e) {
// Циклы для перебора всех пикселей на изображении
for (var x = 1; x < this.bmp_.Width; x++) {
for (var y = 1; y < this.bmp_.Height; y++) {
var c = this.bmp_.GetPixel(x, y);
if (c.B >= 200 && (c.R + c.G) <= 200) {
this.bmp_.SetPixel(x, y, Color.Red);
}
}
this.Refresh();
}
}
}
}
Ответ:
using System;
namespace ConsoleApp18
{
class Program
{
static void Main(string[] args)
{
string s = Console.ReadLine();
int n = int.Parse(s.Split(' ')[0]), m = int.Parse(s.Split(' ')[1]), sum = 0;
int[,] a = new int[n,m];
for (int i = 0; i < n; i++)
{
s = Console.ReadLine();
for (int j = 0; j < m; j++)
{
a[i, j] = int.Parse(s.Split(' ')[j]);
sum += a[i, j];
}
}
Console.WriteLine(sum);
Console.ReadKey();
}
}
}
Объяснение:
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
