Задание:
Составить алгоритм и программу вычисления значения функции: y=1/x*sin^8(1/x), где х=2,84+a^2

 

 

Текст программы:
Program Lab1;
Var a,x,y : real;
Begin
Writeln(‘a=’);
Readln(a);
X:=2.84+a*a;
Y:=1/x*sqr(sqr(sqr(sin(1/x)));
Writeln(‘y=’,y);
End.




Контрольный расчёт:
A=0, y=7.0476149680E-5

Подробнее...

 
Имя программы в банке программ: Lab11v3.pas

 

 

uses Crt;
Const
nmax=100;
a='(';
b=')';
var
str:array [1..nmax] of char;
bal1,bal2,k,n:integer;
begin {Ballance}
clrscr;
writeln('Какое количество символов будете вводить для проверки баланса скобок ?');
readln(n);
writeln('Введите ',n:3,' символов.');
for k:=1 to n do
readln(str[k]);
writeln('Ваш текст: ');
write('...

Подробнее...

 
Задание.

В исходном файле содержится некоторый текст. Требуется разработать программу, которая заменяет в этом файле все числовые записи денежных сумм их словесными эквивалентами.

При этом для рублей может быть использована сокращенная запись «руб.» или полная...

Подробнее...

 

 

 

{ Найти наименьшее однозначное число х удолв условию x*x*x-x*x=n. }

 

uses crt;

var x,n : longint;

ot : boolean;

begin

clrscr;

write('n = ');readln(n);

ot:=false;

x:=1;

while (x*x*x-x*xn) do

begin

inc(x);

if x*x*x-x*x=n then ot:=true;

end;

if ot=false then write('нет')

else write('x=',x);

readln;

end.

 

Подробнее...

 
Еще статьи...