Задание №3. Машинистка ,перепечатывая текст делового письма, допустила ошибки: а)название российской фирмы ЛЕНД напечатала английскими буквами LEND; б)слово "фирма" по ошибке заменила на "ферма". Внесите в письмо исправления. При выполнении однотипных команд используйте команды редактора (поиск и замена) Президенту фермы "Элитар" Дангулову В.П. Господин Дангулов В.П. Фирма LEND воспринимает любые публикации на свой счёт,в том числе и негативные.Сожалеем,что вы не заметили ничего положительного в работе фирмы LEND.В отличии от других ферм в Москве, ферма LEND выполняет "жёсткие" условия заказчика в сжатые сроки. Ферма LEND не скрывает ни своих цен,ни поставщиков,ни методов работы с заказчиком.При трогательном расставании с фермой LEND были даны гарантии,что в случае неудовлетворительной работе аппаратуры Вы сможете заменить её на любую другую или Вашей ферме будут возвращены деньги. Всем заказчикам фермы LEND желаем более благосклонного отношения к " болезням" роста и становления российских компаний на российском рынке.Ферма LEND имеет возможность продавать ежедневно по 200-300 компьютеров по самым низким ценам,обеспечивая пользователей в России и за её пределами техникой нужного качества.
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}