Меню сайта

Перевести число из десятичной в двоичную систему счисления.


Program cikl_11-

uses crt-

var b : array [1..10] of longint-

j,k,g,n : longint-

begin

clrscr-

write(‘введите десятичное число: ‘)-

readln(n)-

j:=0-k:=0-g:=0-

while n&gt-=2 do

begin

j:=j+1-k:=k+1-

b[j]:=n mod 2-

n:=n div 2-

end-

g:=n-

for j:=1 to k do

g:=g*10+b[k+1-j]-

(далее…)

Категория: Циклы | Дата: 14.11.12

Ввести дробь —a/b. Определить, сократима ли дробь. (дробь является несократимой, если НОД(a,b)=1.


Program cikl_15-

uses crt-

var m,n : longint-

begin

clrscr-

write(‘числитель ‘)-readln(m)-

write(‘знаменатель ‘)-readln(n)-

while m&lt-&gt-n do

if m&gt-n

then m:=m-n

else n:=n-m-

n:=m-

if n=1

then write(‘нескоратимая’)

(далее…)

Категория: Циклы | Дата: 14.11.12

Определить, является ли натуральное число —Nстепенью числа 5 или нет.


Program cikl_16-

Uses crt-

Var n:longint-

Begin

ClrScr-

Writeln(‘введите число’)- readln(n)-

While n&gt-5 do

N:= n div 5-

If n=5 then writeln(‘является степенью 5’) else writeln(‘не является степенью 5’)-

Readln-

End.

Категория: Циклы | Дата: 13.11.12

Определить, является ли натуральное число —Nстепенью числа 3 или нет.


Program cikl_17-

Uses crt-

Var n:longint-

Begin

ClrScr-

Writeln(‘введите число’)- readln(n)-

While n&gt-3 do

N:= n div 3-

If n=3 then writeln(‘является степенью 3’) else writeln(‘не является степенью 3’)-

Readln-

End.

Категория: Циклы | Дата: 13.11.12

Вывести на печать положительные значения функции —y=sin(x)+cos(5x) для х, изменяющегося на отрезке [-5-5]c -шагом 1,2.


Program cikl_18-

Uses crt-

Var x,y,h:real-

Begin

ClrScr-

x:=-5- h:=1.2-

while x&lt-=5 do

begin

y:=sin(x)+cos (5*x)-

if y&gt-0 then writeln(‘x=’,x:4:2, ‘ y=’,y:4:2)-

x:=x+h-

end-

readln-

end. (далее…)

Категория: Циклы | Дата: 13.11.12

Вывести на печать отрицательные значения функцииy=sin(x)+cos(5x) для х, изменяющегося на отрезке [-3-9] —c -шагом 0,9.


Program cikl_19-

Uses crt-

Var x,y,h:real-

Begin

ClrScr-

x:=-3- h:=0.9-

while x&lt-=9 do

begin

y:=sin(x)+cos (5*x)-

if y&lt-0 then writeln(‘x=’,x:4:2, ‘ y=’,y:4:2)-

x:=x+h-

end-

readln-

end. (далее…)

Категория: Циклы | Дата: 12.11.12

Найти первый отрицательный член последовательности —sin(tg(n/2)) для —n, изменяющегося следующим образом: —n=1,2,3…


Program cikl_20-

Uses crt-

Var a:real-

n:integer-

Begin

ClrScr-

N:=1-

a:=sin(sin(n/2)/cos(n/2))-

while a&gt-=0 do

begin

n:=n+1-

a:=sin(sin(n/2)/cos(n/2))-

end-

writeln(a:4:2)-

readln-

end.

Категория: Циклы | Дата: 12.11.12

Составить программу вычисления значений функцийf(x) = —xsin(x) на отрезке [0,pi/2] с шагом —h= (ba)/m. Результаты представить с точностью 0,0001.


program ciklp_1-

uses crt-

var m:integer-

a,b,x,h,y:real-

begin

ClrScr-

a:=0- b:=pi/2- m:=10- h:=(b-a)/m-

x:=0-

repeat

y:=х-sin(x)-

x:=x+h-

writeln(‘x=’,x:6:4, ‘ y=’,y:6:4)-

(далее…)

Категория: Циклы | Дата: 12.11.12

Найти сумму ряда — -с точностью —e=0,001.


Program ciklp_2-

Uses crt-

Var e,s,ss:real-

i,n,fact:integer-

begin

ClrScr-

S:=2- ss:=0- e:=0.001- fact:=1- n:=1-

repeat

ss:=s-

for i:=1 to n do

fact:=fact*i-

s:=s+1/fact-

n:=n+1-

until abs(s-ss)&lt-e-

writeln(s:5:3)-

readln-

end.

Категория: Циклы | Дата: 11.11.12

Ввести —Nразличных чисел. Найти среднее арифметическое всех чисел.


Program for_4-

Var n,i,a:integer-

s:real-

Begin

Writeln(‘введите число N’)-

Readln(n)-

For i:=1 to N do

Begin

Writeln(‘введите число’)-

Readln(a)-

s:=s+a-

end-

Writeln(‘среднее арифметическое= ‘,s/n:4:2)-

Readln-

End.

Категория: Циклы | Дата: 11.11.12

Страница 3 из 512345
Меню раздела
Блок