Я сделала это так: War r1, r2, h, l, s: real; Begin Read(r1, r2, h); L:=sqrt((r2-r1)*(r2-r1) +h*h); S:=pi*(r1+r2) *l; Write(s); End. L нашла по тиореме Пифагора в прямом треугольнике. 1 катет будет на нижнем основании и равен будет разности оснований, а 2 будет высотой. Гипотенузу (L) находим как сложение квадратов катетов под корнем и все
Понимаю, что для автора уже не актуально. Но может кто то еще будет смотреть ролик. я записал формулу проще. S := 2 * (a*b+b*h+a*h) вот как то так) ответ сошелся
помогите пожалуйста решить задачу:описать функцию Circles(R)вещественного типа,находящую площадь круга радиуса R(R-вещественное).с помощью этой функции найти площади трех ....
Не дописано условие... Готов помочь с решение любого задания за символическую оплату. Любой труд должен быть как-то оценен. Пишите в личку royalenfild500@gmail.com
Большое спасибо за комментарий. Видео блогерство это как творчество, есть муза, нет музы. Но я думаю возобновить это дело. И вскоре пойдут новые ролики. Долго ждать не заставлю. Спасибо.
program hell; var rm,rb,h,l: real; begin writeln('Введите радиус малой окружности, большей окружности и расстояние между ними:'); readln(rm,rb,h); l:=sqrt(sqr(rb-rm)+sqr(h)); writeln('Длина L образующей=', l:0:2); end.
спасибо Дмитрий ето задания самостоялтельно делал пол часа( но за то в следущой раз буду знать как делать кстати зделал то правльно)я буду делать дз и информатировать вас
program TEST; VAR A, B, H, S:REAL; BEGIN WRITE ('ВВЕДИТЕ СТОРОНУ А'); READ (A); WRITE ('ВВЕДИТЕ СТОРОНУ B') READ (B); WRITE ('ВВЕДИТЕ СТОРОНУ H'); READ (H); S:=(A*B)*2)+((A*H)*2)((H*B)*2) WRITE ('ПЛОЩАТЬ=',S); end. В чём проблема? Program1.pas(7) : Встречено 'READ', а ожидалось ';'
Вы здесь используете переменные r и R, а дело в том что компилятор их читает как одно и тоже. Это не две разные переменные , а одна повторно объявлена. Вы пробовали скомпилировать код?
немного дополнил номер 6.4. вот что получилось: (компиляция прошла успешно) Program C1; var V,S,R,H:real; begin writeln('Программа C1'); writeln('Загрузка...'); writeln('Загрузка выполнена!'); writeln('Введите радиус основания (r) цилиндра....'); write('R цилиндра = '); read(R); writeln('Введите высоту (h) цилиндра'); write('H цилиндра = '); read(H); V:=pi*r*r*h; writeln('Объем цилиндра = ',V); writeln('Теперь посчитаем площадь боковой поверхности цилиндра...'); writeln('Введите радиус основания (r) цилиндра....'); write('R цилиндра = '); read(R); writeln('Введите высоту (h) цилиндра'); write('H цилиндра = '); read(H); S:=2*pi*r*h; writeln('Площадь поерхности цилиндра = ',S); writeln('SHUTTING DOWN....'); end. программа получилась чуть более живая
ПРОШУ ВАС,ВЕРНИТЕСЬ!!!
Благодаря вам я займу место на Олимпиаде.
Begin
Write ('Спасибо за уроки');
End.
Здравствуйте Дмитрий,много смотрел видео по программированию,ваши самые понятные,хорошо объясняете,молодец!
Спасибо)
Спасибо , Дмитрий за Ваш труд, мне 49 благодаря Вашим объяснением справилась за 10 мин с домашним заданием! У Вас талант педагога.
Спасибо)
Мне 51, тоже решаю ))
аниме на аве мать в канаве
гениально чувак как только учебник который ты экранизировал закончился ты завязал с видисами о паскале )
Спасибо за начало в паскале
6.5
PROGRAM ARINA1;
VAR R1,R2,H,V,S,L:REAL;
BEGIN
WRITE('ВВЕДИТЕ R1');
READ(R1);
WRITE('ВВЕДИТЕ R2');
READ(R2);
WRITE('ВВЕДИТЕ H');
READ(H);
L:=SQRT(H*H+(R2-R1)*(R2-R1));
S:=PI*(R1+R2)*L;
V:=1/3*PI*H*(R1*R1+R1*R2+R2*R2);
WRITELN('ОБЪЕМ = ',V);
WRITE('ПЛОЩАДЬ = ',S);
end.
Большое спасибо за уроки!!!!!
Я прочитала учебник по javascript, и ничего не поняла. А благодаря вашим урокам понимаю теперь в чём логика. Спасибо)
Домашнее задание можно даже проще сделать
Формула: S:=(a*b+b*h+a*h)*2;
ДА ЛАДНО?
Спасибо за формулу :)
Program Pr2;
var a,b,h,s:real;
begin
writeln('size');
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('h');
readln(h);
s:=2*(a*b+b*h+a*h);
writeln ('answer');
writeln(s);
end.
Спасибо вам большое за уроки:))
огромное спасибо за этот урок
Вот д/з (компиляцию прошла успешно):
program w;
var k,n, m, h, r1, r2, v, s, l: real;
begin
writeln ('Программа по нахождению объема и площади боковой стороны усеченного конуса');
Write ('введите высоту');
read (h);
Write ('введите радиус нижней окружности');
read (r1);
write ('введите радиус верхней окружности');
read (r2);
n:=(pi*h)/3;
v:=n*(r1*r1+r1*r2+r2*r2);
m:=r1-r2;
k:=h*h+m*m;
k:=trunc(k);
l:=sqrt(k);
s:=pi*l*(r1+r2);
writeln ('Объем = ', v);
write ('Площадь боковой стороны = ', s);
end.
Я сделала это так:
War r1, r2, h, l, s: real;
Begin
Read(r1, r2, h);
L:=sqrt((r2-r1)*(r2-r1) +h*h);
S:=pi*(r1+r2) *l;
Write(s);
End.
L нашла по тиореме Пифагора в прямом треугольнике. 1 катет будет на нижнем основании и равен будет разности оснований, а 2 будет высотой. Гипотенузу (L) находим как сложение квадратов катетов под корнем и все
Прекрасная подача материала
PROGRAM SPASIBO;
BEGIN
WRITE(‘SPASIBO’);
END.
@Oleh Peleh А можно у вас узнать это операторы?
Дмитрий, спасибо за полезные видео! Вы бы не могли еще посоветовать годные к изучению учебники по прогр-нию, что бы без воды?)
Спасибо вам Дмитрий. ДЗ получилось сделать. Вот только приглашение сократил до минимума. А так все верно.
Спасибо за урок:)
program makar;
var r1,r2,h,l,s,v:real;
begin
writeln('Введите радиус 1');
read(r1);
writeln('Введите радиус 2');
read(r2);
writeln('Введите высоту');
read(h);
writeln('Введите образующую');
read(l);
v:=1/3*pi*h*(r1*r1+r1*r2+r2*r2);
s:=pi*(r1+r2)*l;
writeln('Площадь = ',s);
write('Объём = ',v);
end.
Можно ведь и так написать формулу 2*(a*b+b*h+a*h)?
Спасибо.
Понимаю, что для автора уже не актуально. Но может кто то еще будет смотреть ролик. я записал формулу проще. S := 2 * (a*b+b*h+a*h) вот как то так) ответ сошелся
Автор в теме.
помогите пожалуйста решить задачу:описать функцию Circles(R)вещественного типа,находящую площадь круга радиуса R(R-вещественное).с помощью этой функции найти площади трех ....
Не дописано условие... Готов помочь с решение любого задания за символическую оплату. Любой труд должен быть как-то оценен. Пишите в личку royalenfild500@gmail.com
Дмитрий,а почему видео престали выходить,а то раньше кого не смотрел, не понимал,наткнулся на ваш канал и всё начал понимать.)спасибо за контент
Большое спасибо за комментарий. Видео блогерство это как творчество, есть муза, нет музы. Но я думаю возобновить это дело. И вскоре пойдут новые ролики. Долго ждать не заставлю. Спасибо.
Не могу в точности решить задачу с усеченным конусом, пишу формулу как по образцу, а нифига не выходит столько сколько написано в задаче.
Введи описание этой задачи в поиск, и на сайте знание.ком все более подробнее описано.
Program Conus;
Var R1,r2,h,V,Sb,Pi:real;
begin
Writeln('1)Введите радиус нижней окружности R1');
Writeln('2)Введите радиус верхней окружности r2');
Writeln('3)Введите высоту конуса h');
Writeln('4)Введите число Pi');
Read(R1,r2,h,Pi);
V:=1/3*(R1*R1+r2*r2+R1*r2);
Sb:=Pi*(R1+r2);
Writeln('Объем усеченного конуса = ', V);
Writeln('Площадь боковой стороны усеченного конуса = ', Sb);
end. Правильно ли?
Зачем писать П?
program hell;
var rm,rb,h,l: real;
begin
writeln('Введите радиус малой окружности, большей окружности и расстояние между ними:');
readln(rm,rb,h);
l:=sqrt(sqr(rb-rm)+sqr(h));
writeln('Длина L образующей=', l:0:2);
end.
спасибо Дмитрий
ето задания самостоялтельно делал пол часа( но за то в следущой раз буду знать как делать кстати зделал то правльно)я буду делать дз и информатировать вас
Ок, я всегда на связи
Program Z;
var
r1,h,R2,V,S,L:real;
begin
writeln('Введите 1-ый радиус основания :');
read(r1);
writeln('Введите 2-ой радиус основания:');
read(R2);
writeln('Введите высоту:');
read(h);
V:=1/3*pi*h*(r1*r1+r1*R2+R2*R2);
writeln('V = ');
L:=sqrt(h*h+(R2-r1)*(R2-r1));
writeln('L = ');
S:=pi*(r1+R2)*L;
writeln('S = ');
writeln(' Задача решена ! ');
end.
ПОМОГИТЕ ПОЖАЛУЙСТА
не выдаёт значения L,S и V
program a3;
uses crt;
var r1,r2,h,l,k,s,v:real;
begin
writeln('Значение большего радиуса усеченного конуса');
readln(r1);
writeln('Значение меньшего радиуса усеченного конуса');
readln(r2);
writeln('Значение высоты усеченного конуса');
readln(h);
k:=r1+r2;
l:=sqrt(h*h+k*k);
s:=pi*(r1+r2)*l;
v:=(1/3)*pi*h*(r1*r1+r1*r2+r2*r2);
writeln('Площадь бок. поверхности = ',s:5:2);
writeln('Объем = ',v:5:2);
end.
я 600 подписался :)
ckreta games спасибо))
Если бы и училка так объяснила
Program Conus;
uses crt;
var
v, s, r1, r2, h, l:real;
begin
write('Введите нижний радиус');
writeln();
write('Нижний радиус: ');
read(r1);
clrscr;
write('Введите верхний радиус');
writeln;
write('Верхний радиус: ');
read(r2);
clrscr;
write('Введите высоту');
writeln();
write('Высота: ');
read(h);
l :=sqrt(h*h+(r2-r1)*(r2-r1));
s :=pi*(r1+r2)*l;
v :=1/3*pi*h*(r1*r1+r1*r2+r2*r2);
clrscr;
write('Объем: ',v:6:2,' кв. см.');
writeln;
write('Площадь: ',s:6:2,' кв. см.');
writeln;
end.
program TEST;
VAR A, B, H, S:REAL;
BEGIN
WRITE ('ВВЕДИТЕ СТОРОНУ А');
READ (A);
WRITE ('ВВЕДИТЕ СТОРОНУ B')
READ (B);
WRITE ('ВВЕДИТЕ СТОРОНУ H');
READ (H);
S:=(A*B)*2)+((A*H)*2)((H*B)*2)
WRITE ('ПЛОЩАТЬ=',S);
end.
В чём проблема?
Program1.pas(7) : Встречено 'READ', а ожидалось ';'
; забыл поставить в 6 стоке и 10
Вот домашнее задание,все верно?
Program Nikita4;
var
r,h,R,V,S,L:real;
begin
writeln('Введите 1-ый радиус основания:');
read(r);
writeln('Введите 2-ой радиус основания:');
read(R);
writeln('Введите высоту:');
read(h);
V:=1/3*pi*h*(r*r+r*R+R*R);
L:=sqrt(h*h+(R-r)*(R-r));
S:=pi*(r+R)*L;
writeln('Объём усечённого конуса =',V);
writeln('Площадь усечённого конуса =',S);
write('Задача решена!');
end.
Вы здесь используете переменные r и R, а дело в том что компилятор их читает как одно и тоже. Это не две разные переменные , а одна повторно объявлена. Вы пробовали скомпилировать код?
Еще sqrt - это корень,а sqr - это возведение в квадрат(что бы не умножать переменную на саму себя) :3
энто объем а не площадь
немного дополнил номер 6.4.
вот что получилось:
(компиляция прошла успешно)
Program C1;
var V,S,R,H:real;
begin
writeln('Программа C1');
writeln('Загрузка...');
writeln('Загрузка выполнена!');
writeln('Введите радиус основания (r) цилиндра....');
write('R цилиндра = ');
read(R);
writeln('Введите высоту (h) цилиндра');
write('H цилиндра = ');
read(H);
V:=pi*r*r*h;
writeln('Объем цилиндра = ',V);
writeln('Теперь посчитаем площадь боковой поверхности цилиндра...');
writeln('Введите радиус основания (r) цилиндра....');
write('R цилиндра = ');
read(R);
writeln('Введите высоту (h) цилиндра');
write('H цилиндра = ');
read(H);
S:=2*pi*r*h;
writeln('Площадь поерхности цилиндра = ',S);
writeln('SHUTTING DOWN....');
end.
программа получилась чуть более живая
Можно было написать writeln
эм, как бы тут без разницу. Паскалю все ровно какими буквами ты пишешь: заглавными ил строчными, главное соблюдать синтаксис
Не верное решение, действие одно лишнее, и ответ соответственно
Укажите где именно.
Не понимаю смысла этого урока. Здесь ты размусолил то же самое, что и в конце прошлого выпуска.
*Не умеешь объяснять!*
Мб,это ты тупорылый Майнкрафтер без мозгов? Судя по отзывам большинство людей понимают автора!