Помогите пожалуйста сделать домашнюю работу
10-11 класс
|
program n1;
var
candy: integer;
begin
write('Введите количество конфет: ');
readln(candy);
if candy < 20 then writeln('Конфет не хватит')
else
if candy <= 40 then writeln('Конфет достаточно')
else writeln('Конфет даже много!');
end.
program n2;
var
a, v: real;
begin
write('Введите величину ребра куба: ');
readln(a);
writeln('Объем куба равен ', a * sqr(a));
end.
program n3;
var
a: real;
begin
write('Введите число a: ');
readln(a);
while a <= 100 do
begin
writeln('a=', a:3, ' ', 'кв.корень=', sqrt(a));
a := a + 1
end
end.
Пример вывода:
Введите число a: 63
a= 63 кв.корень=7.93725393319377
a= 64 кв.корень=8
a= 65 кв.корень=8.06225774829855
a= 66 кв.корень=8.12403840463596
a= 67 кв.корень=8.18535277187245
a= 68 кв.корень=8.24621125123532
a= 69 кв.корень=8.30662386291807
a= 70 кв.корень=8.36660026534076
a= 71 кв.корень=8.42614977317636
a= 72 кв.корень=8.48528137423857
a= 73 кв.корень=8.54400374531753
a= 74 кв.корень=8.60232526704263
a= 75 кв.корень=8.66025403784439
a= 76 кв.корень=8.71779788708135
a= 77 кв.корень=8.77496438739212
a= 78 кв.корень=8.83176086632785
a= 79 кв.корень=8.88819441731559
a= 80 кв.корень=8.94427190999916
a= 81 кв.корень=9
a= 82 кв.корень=9.05538513813742
a= 83 кв.корень=9.1104335791443
a= 84 кв.корень=9.16515138991168
a= 85 кв.корень=9.21954445729289
a= 86 кв.корень=9.2736184954957
a= 87 кв.корень=9.32737905308882
a= 88 кв.корень=9.38083151964686
a= 89 кв.корень=9.4339811320566
a= 90 кв.корень=9.48683298050514
a= 91 кв.корень=9.53939201416946
a= 92 кв.корень=9.59166304662544
a= 93 кв.корень=9.64365076099295
a= 94 кв.корень=9.69535971483266
a= 95 кв.корень=9.74679434480896
a= 96 кв.корень=9.79795897113271
a= 97 кв.корень=9.8488578017961
a= 98 кв.корень=9.89949493661167
a= 99 кв.корень=9.9498743710662
a=100 кв.корень=10
program n4;
var
i,s: real;
begin
s:=1; i:=1;
while i < 20 do
begin
writeln('i=', i:2, ', s=',s:2);
writeln('ln(i)=', ln(i):0:5, ', ln|s|=',ln(abs(s)):0:5);
i:=I+4; s:=s-1;
end
end.
Пример работы программы;
i= 1, s= 1
ln(i)=0.00000, ln|s|=0.00000
i= 5, s= 0
ln(i)=1.60944, ln|s|=-Infinity
i= 9, s=-1
ln(i)=2.19722, ln|s|=0.00000
i=13, s=-2
ln(i)=2.56495, ln|s|=0.69315
i=17, s=-3
ln(i)=2.83321, ln|s|=1.09861
program n5;
var
x,s: real;
begin
repeat
write('Введите число x: ');
readln(x);
if x>0 then begin
s:=10*x;
writeln('x=', x:0:5, ', s=',s:0:4);
end
until x<=0
end.
Пример работы программы:
Введите число x: 35
x=35.00000, s=350.0000
Введите число x: 13
x=13.00000, s=130.0000
Введите число x: 4.456
x=4.45600, s=44.5600
Введите число x: -2
если там не понятно то не решайте
Другие вопросы из категории
1. Способы форматирования текста в Word (все способы)
2. Смысл ориентации страницы
3. Способы размещения картинки
4. Режимы просмотра документа (все режимы)
БОЛЬШОЕ СПАСИБО!
11100,0112–34,248+5А,816+42,258+11,012–3F,А16.. Укажите, какая система
счисления для выполнения всех операций является оптимальной с точки зрения
быстроты вычисления. Указание: чем больше основание системы, тем
"короче" числа и, следовательно, меньше действий
Читайте также
(более подробно на фото л.р.9)
Диаметр горловины водоструйного элеватора в системах водяного отопления вычисляют по формуле d=1,55G^0,5/P^0,25 (см). Здесь G-расход теплоносителя в системе отопления после элеваторного узла, который определяется по формуле G=0,86*10^(-3)*(Q/(t1-t0), т/ч; Q-мощность отопительной установки здания, Вт, принять от 100000Вт до 300000вт с шагом 20000вт, t1-температура в падающей магистрали системы отопления, применять 105; t0-температура в обратной магистрали системы отопления, принять 70; P-расчетное давление в системе отопления для циркуляции теплоносителя, кПа, принять Р=12кПа. Определение записать в виде функции.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
1.Какова мощность алфавита, с помощью которого записано сообщение,
содержащее 2048 символов, если его объем составляет 1/512 часть
мегабайта?
2.система оптического распознавания текстов позволяет преобразовывать
отсканированные страницы документа в тест со скоростью 4 страницы в
минуту и использует алфавит мощностью 65536 символов. Какое количество
информации будет нести тестовый документ после 5 минут работ, если
каждая страница содержит 40 строк по 50 символов?