от мне это очень надо Как вы думаете, можно ли использовать компьютерные презентации как самостоятельные документы? Почему? Обсудите этот во в классе.
2. Как вы считаете, нужно ли писать план (сценарий) презентации? ответ обоснуйте.
3. Почему не рекомендуют размещать на слайдах много текста? Согласны ли вы с этим мнением?
4. Как можно использовать заметки к слайдам?
5. Предложите варианты использования скрытых слайдов.
6. Проверьте, как готовые темы оформления в вашей программе для подготовки презентаций будут смотреться через проектор. Нравится ли вам результат?
7. Найдите в Интернете бесплатные презентации на интересующую вас тему, обсудите в классе, как они оформлены.
8. Выберите тему, на которую вы хотели бы сделать презентацию. Составьте план презентации из 5-6 слайдов, записав названия слайдов.
9. Выполните по указанию учителя задания в рабочей тетради.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
double x1, x2, x3, y1, y2, y3;
Console.WriteLine("Введите координаты:");
x1 = Double.Parse(Console.ReadLine());
y1 = Double.Parse(Console.ReadLine());
x2 = Double.Parse(Console.ReadLine());
y2 = Double.Parse(Console.ReadLine());
x3 = Double.Parse(Console.ReadLine());
y3 = Double.Parse(Console.ReadLine());
double dist12 = Math.Sqrt(Math.Pow((x2 - x1), 2) + Math.Pow((y2 - y1), 2));
double dist13 = Math.Sqrt(Math.Pow((x3 - x1), 2) + Math.Pow((y3 - y1), 2));
double dist23 = Math.Sqrt(Math.Pow((x3 - x2), 2) + Math.Pow((y3 - y2), 2));
double P = dist12 + dist13 + dist23;
double p = P / 2;
double Area = p * (p - dist12) * (p - dist13) * (p - dist23);
Console.WriteLine("Площадь {0}", Area);
Console.ReadKey();
}
}
}
Внимание! Если программа не работает, обновите версию!
function DecToa(n:string;k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
var s:='0123456789';
Result:='';
var PointPos:=Pos('.',n);
var IntPart:integer;
if PointPos>0 then begin // есть дробная часть
var FracPart:=Frac(n.ToReal);
var m:=0;
while True do begin
var r:=FracPart*k;
Result+=s[Trunc(r)+1];
FracPart:=Frac(r);
m+=1;
if (m=15) or (FracPart=0) then break
end;
IntPart:=n[:PointPos].ToInteger;
end
else IntPart:=n.ToInteger;
if Result<>'' then Result:='.'+Result;
while IntPart>0 do begin
Result:=s[IntPart mod k+1]+Result;
IntPart:=IntPart div k
end;
if Result='' then Result:='0';
if Result[1]='.' then Result:='0'+Result
end;
begin
var n:=ReadlnString('Какое число перевести?');
var p:real;
if not real.TryParse(n,p) then Writeln('Такая запись недопустима')
else
if n.Contains('e') or n.Contains('E') then
Writeln('Запись в экспоненциальном формате не разрешена')
else begin
var k:=ReadInteger('Укажите основание системы:');
if k.Between(2,36) then
Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')')
else Writeln('Допустимы основания 2..36')
end
end.
Примеры
Какое число перевести? 123,5433
Такая запись недопустима
Какое число перевести? -353.093234
Укажите основание системы: 21
-353.093234(10) = -GH.1K2951B0DJAH1BI(21)
Какое число перевести? 6523
Укажите основание системы: 8
6523(10) = 61013(8)
Какое число перевести? 1.2e-18
Запись в экспоненциальном формате не разрешена