30 ! написать программу на pascal: программа для вычесления площади фигур!

ответ: окей

объяснение:

для квадрата:

procedure tform1.button1click(sender: tobject);

var

a,b,c,d,p,s: real;

begin

a: =2; b: =2; c: =2; d: =2;

if ((a=b)and(c=d)and(a=d))then

begin

p: =(a+b+c+d)/2;

s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));

showmessage('s='+floattostr(s));

end else showmessage('это не квадрат');

end;

для треугольника:

procedure tform1.button1click(sender: tobject);

var

a,b,c,p,s: real;

begin

a: =2; b: =2; c: =3;

if (abs(a-b)

begin

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text: =floattostr(s);

end else showmessage('не треугольник');

end;

понимание вопроса организации хранения информации в электронных устройствах является одним из важнейших моментов для тех, кто только начинает изучать компьютер. в этом материале вы узнаете, где и в каком виде хранятся личные данные пользователя, нужные программы и прочая необходимая информация.

диски

вся информация пользователя, включая операционную систему, программы, игры, документы и прочие данные, хранится на специальных носителях, называемых дисками. внутри компьютера, как правило, размещается магнитный (в основном) или твердотельный накопитель, именуемый жестким диском (винчестер). так же данные могут храниться на всевозможных внешних носителях, к которым относятся гибкие магнитные накопители (дискеты), оптические диски (cd, dvd, blu-ray), карты памяти (носители, используемые для хранения данных в цифровых устройствах, например фотоаппаратах, плеерах и т. флэш-диски и прочие. при этом все они предназначены для долговременного хранения информации.

работа со всеми перечисленными дисками практически однотипна. каждому носителю или устройству хранения данных, операционной системой присваивается уникальное логическое имя в виде латинской буквы алфавита и двоеточия после нее. устройствам для работы с дискетами имена «a: » и «b: ». за ними, начиная с буквы «c», в алфавитном порядке следуют имена жестких дисков, которых может быть несколько. после жестких дисков, так же в алфавитном порядке начинают присваиваться имена для оптических приводов (устройств чтения/записи оптических дисков). затем следуют названия сетевых дисков и устройств считывания данных с флэш-карт.

информация, хранящаяся на компьютере, измеряется в байтах. при этом самая маленькая единица измерения данных называется битом. в одном байте содержится 8 бит.

современные программы и данные пользователей имеют размеры в несколько десятков и сотен тысяч байт, так что в реальных условиях используются гораздо более крупные единицы измерения: килобайты, мегабайты, гигабайты и терабайты.

Код: 1) program project1; var          i: integer; begin    for i: =5 to 16 do      begin           write(i, ' *  2 =    ', i*2);       writeln;       end;   readln; end. 2)выводит столбики: program project1; var i: integer; beginfor i: =1 to 15 dobeginwrite(i, 'm =  ', i*100, 'cm'); writeln; end; readln; end.переводит значение введённого количества метров в сантиметры: program project1; var    i: =real; beginreadln(i); writeln(i, 'm =  ', i*100, 'cm'); end.