Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.111.1] |
|
Сообщ.
#1
,
|
|
|
Дело в том что я в паскале поный ноль
у меня через 2 дня сдача задолжностей я писать проги ваше не умею но книги есть и хачу научится но за 2 дня я не успею сделать ничего помогите решить 6 задач очь пррашу |
Сообщ.
#2
,
|
|
|
ЕСЛИ КТО ПОМОЖЕТ БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН
|
Сообщ.
#3
,
|
|
|
ЗАДАЧА №1
ЧЕРЕЗ ---IF---- ДАНЫ 3 ЧИСЛА A,B,C ОПРЕДЕЛИТЬ КАКОЕ ИХЗ НИХ РАВНО D ЕСЛИ ОДНО НЕ РАВНО D ТО НАДО НАЙТИ MAX (A-D,d-b,d-c) ЗАДАЧА №2 ЧЕРЕЗ--ЛИНЕЙНОЕ-- СОСТАВИТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ОБЬЁМА КОНУСА И ЦМЛИНДРА КАТОРЫЕ ИМЕЮТ ОДИНАКОВУЮ ВЫСАТУ ---H--- И ОДИНАКОВЫЙ РАДИУС --R-- |
Сообщ.
#4
,
|
|
|
(1)
Var A, B, C, D, Max: Real; Begin Write('Введите A B C D через пробел: '); ReadLn(A,B,C,D); If A = D then WriteLn('A = D') else If B = D then WriteLn('B = D') else If C = D then WriteLn('C = D') else Begin Max := A-D; If D-B > Max then Max := D-B; If D-C > Max then Max := D-C; WriteLn('Максимальное = ', Max: 0: 6) End End. (2) Var H, R: Real; Begin Write('Введите R H через пробел: '); ReadLn(R, H); WriteLn('Объем цилиндра = ', Pi*Sqr(R)*H: 0: 6); WriteLn('Объем конуса = ', Pi*Sqr(R)*H/3: 0: 6) End. |
Сообщ.
#5
,
|
|
|
СПАСИБО ЗА ЗАДАЧКИ
|