Написать программу на Паскале

Rain Hatter · 21.05.2012, 17:07

Помогите, пожалуйста, написать на Паскале программу для вычисления значения функций:
1) y=1/sqrt(х-1)
2) y= sqrt(x+1)/(х-1)
3) составить программу, которая запрашивает три числа и выдает, то из них, последняя цифра в котором наибольшая.

Заранее спасибо!

Gruvi · 21.05.2012, 19:33

1)

Цитата:

Program probnik1;
var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x=1 then
writeln('net resheniya');
else
begin
y:=1/(sqrt(х-1));
writeln('y = ');
end;
readln;
end.

2)

Цитата:

Program probnik2;
var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x=1 then
writeln('net resheniya');
else
begin
y:=sqrt(x+1)/(х-1);
writeln('y = ');
end;
readln;
end.

как-то так, прошу прощения если что0то не работает, писал через блокнот в паскаль последний раз залезал давно.

Vladimir_S · 21.05.2012, 19:50

Цитата:

Сообщение от Rain Hatter

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

Код:

Var
 M:Array[1..3] of LongInt;
 d:Array[1..3] of Byte;
 i,i1,max:Byte;
Begin
 For i:=1 to 3 do
  begin
   Write('M',i,' = ');
   Readln(M[i]);
   d[i]:=M[i] mod 10;
  end;
 max:=d[1];
 i1:=1;
 For i:=2 to 3 do
  If d[i]>max then
   begin
    max:=d[i];
    i1:=i;
   end;
 Writeln;
 Writeln(M[i1]);
 Readln
End.

21.05.2012, 17:07	#1 (permalink)
Rain Hatter Новичок Регистрация: 21.05.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Написать программу на Паскале Помогите, пожалуйста, написать на Паскале программу для вычисления значения функций: 1) y=1/sqrt(х-1) 2) y= sqrt(x+1)/(х-1) 3) составить программу, которая запрашивает три числа и выдает, то из них, последняя цифра в котором наибольшая. Заранее спасибо!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070