Урок 4. Паскаль с нуля. Разбиение числа на разряды.

[@olegryazantsev3013]

Димон, спасибо, что ты есть.

[@БахаМамадалиев]

Спасибо большое за ваши уроки! Очень помогли при решении задач! Спасибо!

[@looneyhannie]

учусь в школе,на олимпиадах помогает,СПАСИБО

[@ТанкМечты-б1ш]

Подумал и все-таки сделал правильно домашнее задание

[@vldkv]

От души,продолжай в том же духе!)

[@Ne.Smeq.Ocydgat.Prikazi510]

Спасибо

[@XAngelsLifeX]

Спасибо за видео

[@ДмитрийЛапко-л1н]

+Александр Мирошник Спасибо за комментарий

[@РайкаКенжагулова-ф8ч]

молодец.Спасибо.

[@user-nc2qu4ld2g]

Спасибо.

[@MikhailKovalenko-h1b]

program a7; uses crt; var x1,x2,x3,y1,y2,y3,a,b,c,p,s:real; begin writeln('Введите координаты вершины A (через пробел)'); read(x1,y1); writeln('Введите координаты вершины B (через пробел)'); read(x2,y2); writeln('Введите координаты вершины C (через пробел)'); read(x3,y3); a:=sqrt(sqr(x2-x1)+sqr(y2-y1)); b:=sqrt(sqr(x3-x1)+sqr(y3-y1)); c:=sqrt(sqr(x3-x2)+sqr(y3-y2)); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Сторона a - ',a:5:2); writeln('Сторона b - ',b:5:2); writeln('Сторона c - ',c:5:2); write('Площадь треугольника - ',s:5:2); end.

[@ВиталийРожков-л5е]

Program Razbienie; var a,b,c,d,s: integer; begin write(' Введите любое число от 100-999 '); read(a); b:= a div 100; c:= a div 10 mod 10; d:= a mod 10; s:= b+c+d; writeln('Разрядность: сотня = ', b); writeln(' десяток = ', c); writeln(' единиц = ', d); readln(); writeln('Сумма трех чисел = ', s); end.

[@yanentertainments8037]

program z1; var trz,s,d1,d2,ed, c: integer; begin write('Введите любое трёхзначное число: '); read(trz); s := trz div 100; d1 := trz div 10; d2 := d1 mod 10; ed := trz mod 10; c := s+d2+ed; writeln ('сотни: ', s); writeln ('десятки: ', d2); writeln ('единицы ', ed ); write('сумма цифр = ', c ); end.

[@attila451]

Если кто-то решал задачу 6.13: program easy; var a,b,c,ugol,S:real; begin writeln('Введите длину стороны a:'); read(a); writeln('Введите длину стороны b:'); read(b); writeln('Введите угол в градусах:'); read(ugol); ugol:=ugol*Pi/180; -(перевожу в радианы)- c:=sqrt(b*b+a*a-2*b*a*cos(ugol)); (нахожу сторону через теорему косинусов) writeln('Длина стороны с: ' , c:6:1, ' см.'); writeln('Площадь треугольника равна: ', sqrt((a+b+c)/2*((a+b+c)/2-a)*((a+b+c)/2-b)*((a+b+c)/2-c)):6:1 ,' кв.см.'); -(использую формулу Герона )- writeln('Радиус описанной окружности: ', a*b*c/(4*sqrt((a+b+c)/2*((a+b+c)/2-a)*((a+b+c)/2-b)*((a+b+c)/2-c))):6:1 ,' см. '); end.

[@ЕвгенийМамонов-е5я]

Подскажи пожалуйста, зачем переводишь угол в радианы? По теореме косинусов, нужен косинус угла, а не косинус радиана. Никак не могу понять это место...

[@attila451]

@@ЕвгенийМамонов-е5я паскаль только в радианах считать умеет.

[@attila451]

@@ЕвгенийМамонов-е5я иначе ответ будет неверным.

[@TargetTar.]

program ret1; uses crt; var x1,x2,x3,y1,y2,y3,ab,bc,ac,p,s:real; begin clrscr; writeln ('Введите координаты точки a'); read (x1); read (y1); writeln('Введите координаты точки b '); read (x2); read (y2); writeln ('Введите координаты точки с '); read (x3); read (y3); ab:=sqrt(sqr(x2 - x1)+sqr(y2-y1)); bc:=sqrt(sqr(x3 - x2)+sqr(y3-y2)); ac:=sqrt(sqr(x3 - x1)+sqr(y3-y1)); p:=(ab+bc+ac)/2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln ('Сторона AB=',ab:3:1); writeln ('Сторона BC=',bc:3:1); writeln ('Сторона AC=',ac:3:1); writeln ('Площадь треугольника =',s:5:1,'см кв.'); writeln ('Задача решена!'); end.

[@ИванПоказаньев-ю8я]

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

[@ВладиславЛысенко-ж6у]

program jopa; var R,ra,h,V,S,L:real ; begin write('Введите большой радиус нижнего основания ' ); read (R); write('Введите малый радиус верхнего основания '); read (ra); write('Введите высоту конуса '); read (h); L:= sqrt(sqr(h)+sqr(R-ra)); V:=(1/3*pi*h*(sqr(R)+R*ra+sqr(ra))); S:=pi*(R+ra)*L; writeln ('Площадь = ',S); writeln ('Объем = ' ,V); writeln ('Образующая = ',L); end. я так записал, тоже долго догонял, почему не те цифры, оказалось забыл еще одни скобки)

[@dmitrydorokhov8563]

Спасибо за урок. Но не совсем понятно, от куда взялось "100", что за коэффициент? v:=v+(v*(pr/100)/

[@ДмитрийЛапко-л1н]

дело такое, например нужно посчитать 3% от числа 2000, что мы делаем: 2000*0,03 или (2000*3)/100 поскольку ввели значение процента не в виде коэффициента. Школьная программа Алгебра класс так 7-ой

[@dmitrydorokhov8563]

Много чего забылось уже со школы. Спасибо за подробный ответ!

[@АлександрКрылов-о9ф4т]

Так A DIV 100 равно 5, откуда A DIV 100 равно 37?

[@НеоновыйЗаборчик]

Так у меня получилось обратная задача program Search; var ONE,TWO,THREE,OTVET:integer; BEGIN WRITE('Введите единицы '); READ(ONE); WRITE('Введите десятки '); READ(TWO); WRITE('Введите сотни '); READ(THREE); OTVET:=(ONE+(TWO*10)+(THREE*100)); WRITE(OTVET); end.

[@DaniArtt]

program home; var tri,s,d,e,t:integer; begin writeln('vvdite trexzn chislo ot 100 do 999'); read(tri); s:=tri div 100; d:=tri mod 100; e:=tri mod 10; d:=d div 10; t:=s+d+e; writeln('sotni :',s,' desyatki :',d,' edenisi :',e); writeln('summa',t); end.

[@lpcrafter6789]

Помогите с 6.11

[@НикитаТорцев-ф6з]

program exercise10; const isn = 2.54; var d, sum: real; begin writeln ('Cколько дюймов?'); readln (d); sum:= d*isn; writeln ('Сантиметров ', trunc(sum), 'Миллиметров ', trunc(frac(sum)*10)); end.

[@СергейШаймиев-о4б]

не могу найти ссылку для скачивания сборника задач

[@ДмитрийЛапко-л1н]

drive.google.com/file/d/0BzDHYhmI9we8MVVITDU3WGgtaU0/view

[@СергейШаймиев-о4б]

Спасибо!

[@timurkhamitov6303]

6.15 Program seven; Var A,B,C, ABx,ACx,BCx, ABy,ACy,BCy, ABL, ACL, BCL,S,p, x1,x2,x3,y1,y2,y3:real; begin write ('введите координаты точки A ='); read (x1,y1); write ('введите координаты точки B ='); read (x2,y2); write ('введите координаты точки C ='); read (x3,y3); ABx:= x2-x1; ABy:= y2-y1; ACx:= x3-x1; ACy:= y3-y1; BCx:= x3-x2; BCy:= y3-y2; ABL:= SQRT(ABx*ABx+ABy*ABy); ACL:= SQRT(ACx*ACx+ACy*ACy); BCL:= SQRT(BCX*BCx+BCy*BCy); P:= (ABL+ACL+BCL)/2; S:=SQRT(P*(P-ABL)*(P-ACL)*(P-BCL)); writeln ('длина стороны ABL =',ABL:2:1); writeln ('длина стороны ABL =',ACL:2:1); writeln ('длина стороны ABL =',BCL:2:1); writeln ('площадь треугольника ABC=', S:2:1); end.

[@kawai9072]

6.15, можно было намного легче сделать, хотя условие со сторонами не будет выполнятся program lo_1; var a,b,c,s,p:real; begin write('введите сторону a '); read(a); write('введите сторону b '); read(b); write('введите сторону c '); read(c); p:=1/2*(a+b+c); s:=sqrt(p*(p-a)*(p-b)*(p-c)); write('площадь',s:6:2); end.