М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vorwq08oz21jg
vorwq08oz21jg
08.05.2022 15:16 •  Информатика

Нужен программный код для visual basic

👇
Открыть все ответы
Ответ:
stas273
stas273
08.05.2022
1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.
4,5(25 оценок)
Ответ:
Ekaterina2019
Ekaterina2019
08.05.2022

АзаматтықЖолаушы тасымалдаушы ұшақКөлік ұшағы — жүк тасымалдаушыларПошталық — Авиапошта тасымалдауға арналғанКурьерлікАуылшарушылықСанитарлық — медециналық көмек беруші ұшақтарӨрт сөндіруші — өрт сөндіру үшін (негізіен орман өрттерін)Геологиялық барлау — Әуеден геологиялық барлау өткізуЭксперименталды — ұшу эксперименттерін жасауға арналған ұшаты лабараторияСпорттық — авиациялық спортпен айналасуға арналған ұшақтароқу-жаттығу ұшақтары — ұшқыштарды даярлауға арналған ұшақәскери оқу-жаттығу ұшақтары — әскери ұшқыштарды даярлауға арналған ұшақ. Ең кеңінен пайдаланылатын ұшақтардың бір түрі болып саналатын Азаматтық әуе көліктері ең кең тараған авиация.Ұшу массасына қарайӨңдеу1 санатты (75 т және одан да көп)2 санатты (30-тен 75 тоннаға дейін)3 санатты (10-нан 30 тоннаға дейін)4 санатты (10 тоннаға дейін)жеңілмоторлыөте жеңіл (495 кг-ға дейін)

Ұшақ санаты осы ұшақты қабылдай алатын аэродромның санатымен байланысты.

Қозғалтқыштар бойыншаӨңдеуКүш қондырғысының типіне байланысты:поршеньді (ПҚ) (Ан-2)турбовинтті (ТВҚ) (Ан-24)турбореактивті(ТРҚ) (Ту-154)Ракетылық қозғалтқышпенКомбинацияланған күш қондырғысымен (ККҚ)Қозғалтқыш саны бойынша :бір қозғалтқышты (Ан-2)екі қозғалтқышты (Ан-24)үш қозғалтқышты (Ту-154)төрт қозғалтқышты (Ан-124 «Руслан»)бес қозғалтқышты (He-111Z)алты қозғалтқышты (Ан-225 Мрия)жеті қозғалтқышты (К-7)сегіз қозғалтқышты (АНТ-20, Boeing B-52)он қозғалтқышты (Convair B-36J)он екі қозғалтқышты (Dornier Do X)Құрылымдық сызбасы бойыншаӨңдеу

Бұл нышан бойынша классификациялау көпнұсқалы. Төменде ең негізгілері берілген.

Қанат саны бойынша:

Монопландардағы қанаттың орналысуы бойынша:

ЖғарыпланОртапланТөменпланПарасоль

Қауысынның орналасуы бойынша:

Стандартты сызба (қауырсын ұшақ артында)Ұшатын қанат (құйрықсыз)Құйрықсыз«үйрек» (қауырсын ұшақ алдында);

Фюзеляждың типі, өлшемі және қабат саны бойынша:

Бірфюзеляжды:Тарфюзеляжды;Кеңфюзеляжды;Екібалкалы сызба («рама»);Фюзеляжсыз («ұшатын қанат»).Екіпалубалы ұшақ

Шасси түрі бойынша:

Құрлықтық;дөңгелекті шасси:құрық тірегімен;алдыңғы тірекпен;велосипред типтес тірекпен;шыңғылы шасси;табан шынжырлы шасси;ауа жастығындағы (ЭКИП және т.б. экперименталды типтерінде);Гидроұшақтар;амфибиялар;қалтқылы;«ұшатын қайық».

4,4(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ