Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию линейного алгоритма. вычислить объем v и площадь боковой поверхности конуса s по введенным значениям радиуса основания r, высоты h и образующей l
int sover (int n) { int sum = 0; for (int i = 1; i<=n/2; i++) if (n%i==0) sum+=i; if (sum==n) return 1; else return 0; } int main() { int n; printf ("N = "); scanf ("%d",&n); if (sover(n)==1) printf ("Sovershennoe"); else printf ("Ne sovershennoe"); printf("\n"); system ("PAUSE"); return 0; }
2) #include <stdio.h> #include <stdlib.h>
int main() { for (int i = 1; i<=5; i++) { for (int j = 1; j<=5-i+1; j++) printf ("%d ",5+i-1); printf ("\n"); } system ("PAUSE"); return 0; }
Procedure Dec2Oct(n:longint); { Перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i:integer; begin s := ''; while n > 0 do begin s := alpha[(n mod 8) + 1] + s; n := n div 8 end; for i:=Length(s) to 9 do s:='0'+s; Write(s) end;
{ Использование } var x:longint; begin Write('Введите десятичное число: '); Read(x); Write('В восьмеричной системе счисления: '); Dec2Oct(x); Writeln end.
Тестовое решение: Введите десятичное число: 1234567 В восьмеричной системе счисления: 0004553207
program qq;
uses crt;
const pi=3.14;
var v,r,h,l,s:integer;
begin
clrscr;
writeln('введите r,h,l');
readln(r,h,l);
V:=trinc((pi*sqr(r)*h)/3);
S:=pi*r*l;
writeln('плщадь равна',p,' объем равен',v);
readln
end.
смотри в прграмме есть оператор функция trinc если училке не понравится то v:=((pi*sqr(r)*h)) div 3;