ВИS-12

var //обозначаем переменные
a,r:real;
c,d:integer;

procedure proverka(x:real); //процедура проверки чтоб делитель не был равным нулю делитель у нас a/4-1 , если за место a поставить 4- то делитель будет равен нулю
begin
if x=4 then begin
writeln('Vvedite drugoe znachenie a, otlichnoe ot chisla 4');
readln(a);
end;
end;

begin
writeln('Vvedite a'); //вводим числа
readln(a);
proverka(a); //выполняется процедура проверки делителя
writeln('Vvedite c');
readln©;
writeln('Vvedite d');
readln(d);
r:=(((2*c)-d)+sqrt(23))/((a/4)-1);
writeln('Rezultat = ',r); //вывод результата
readln;
{ TODO -oUser -cConsole Main : Insert code here } //херня просто для консоли(удалять не желательно)
end.

(Валерия.)

Добавлено (11.09.2010, 06:49)

program pr2;
var
a,b:integer;
X:REAL;
begin
readln(a,b);
if a<b then x:=a/b+5
else
if a=b then x:=-5
else
if a>b then x:=(a*a-b)/b;
writeln(x);
end.

ну разобраться сможете, косяк один, если вы введете "x" как тип "целое" аля integer - выскакивать будет ошибка , ибо деление в неравестве том.

{$APPTYPE CONSOLE}
uses
SysUtils;
var
x:real;
a,b:integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }

writeln('Vvedite a');
read(a);
writeln('Vvedite b');
read(b);
if a>b then x:=(5*a)+b
else
if a=b then x:=-125
else x:=(a-5)/b;
writeln('x= ',x:3:2);
readln(x);
end.

program pr3;
var i:integer;
pr,c,d:word;
a:array[1..20] of word;
begin
writeln('Vvedite c');
read©;
writeln('Vvedite d');
read(d);
writeln('Vvedite massiv a');
for i:=1 to 20 do
read(a[i]);
begin
pr:=1;
for i:=1 to 20 do
if (a[i]>=c) and (a[i]<=d) then pr:=pr*(a[i]);
writeln(pr);
readln(pr);
end;
end.

Добавлено (06.10.2010, 20:05)
---------------------------------------------
Лаба 4 Вариант 7

program pr4;
const n=2;
var i,j,k:integer;
sum,sr:real;
a:array[1..n,1..n] of real;
begin
writeln('Vvedite massiv a');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
sum:=0;
sr:=0;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>0 then
sum:=sum+a[i,j];
if a[i,j]>0 then
inc(k);
sr:=sum/k
end;
writeln(sr);
readln(sr);
end.

Добавлено (23.05.2018, 16:10)
---------------------------------------------
levitra e diabetelevitra rezeptfrei bizefficacite du levitra http://levitraonly.com - buy generic levitra levitra without preslevitra whole
long term effect viagra http://viagraonln.com - generic viagra can u ejaculate viagraviagra do sonoviagra medications side effects
http://dreamscloset.com/index.php?option=com_k2&view=itemlist&task=user&id=516610 - levitra pill identifier

Добавлено (26.05.2018, 15:15)
---------------------------------------------
levitra vardenafil no prescriptionside affects of levitra п»їhttp://levitraonly.com - vardenafil online mais forte levitra ou cialis
schmeckt cialis http://cialisonln.com - mail order cialis cialis importatoprezzo cialis 5 mg farmaciacialis am luat
http://bulletin-science.kz/index.php?option=com_k2&view=itemlist&task=user&id=352414 - bпїЅst viagra eller cialis