Срочно!

@V1T4S · Регистрация: 12.12.2009

Студворк — интернет-сервис помощи студентам

Братья, помогите пожалуйста!
надо решить:
1. Ввести с клавиатуры трехзначное число и определить, равна ли сумма первой и последней цифры второй цифре.
2. Y= arcsin x+x2, при X=0.112;
3. Дано f. Найти площадь сектора, радиус которого равен 13.75, а соответствующий центральный угол равен f . Считать, что f - градусная мера угла.
4. a15 за пять операций;
5. По введенной заработной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер. (условие: Написать программу для решения задачи, указанной в соответствующем варианте. Для решения задачи использовать оператор выбора.)

@Шутка · 12.12.2009, 19:14

Pascal

Uses crt;
Var p,k:byte;
Begin
Clrscr;
Writeln('Vasha z/p v mec. ');
Writeln('<1>   5.000-10.000');
Writeln('<2>   10.000-30.000');
Writeln('<3>   30.000-70.000');
Writeln('<4>   70.000-9999999');
k:=1;
read(p);
Case p of
1: writeln('Nishii');
2: writeln('Srednii klas');
3: writeln('Bogatii');
4: writeln('Oligarh');
end;
End.

@V1T4S · 12.12.2009, 19:15 **[ТС]**

Шутка благодарю!

@Шутка · 12.12.2009, 19:20

Pascal

uses crt;
const
x=0.112;
var
asin,itog:real;
begin
Asin:=arctan(x/sqrt(1-(x*x)));
itog:=Asin+(x*x);
writeln(itog)
end.

Я вот если честно не понял условий ко 2ой и к 4ой задачам.
Решу третью - если найдете мне нужные формулы. Геометрия 11.

@V1T4S · 12.12.2009, 19:22 **[ТС]**

Шутка, снова выручаешь, спасибо тебе большое!

@WolfCF · 12.12.2009, 19:30

Сообщение от Шутка

Pascal

Uses crt;
Var p,k:byte;
Begin
Clrscr;
Writeln('Vasha z/p v mec. ');
Writeln('<1>   5.000-10.000');
Writeln('<2>   10.000-30.000');
Writeln('<3>   30.000-70.000');
Writeln('<4>   70.000-9999999');
k:=1;
read(p);
Case p of
1: writeln('Nishii');
2: writeln('Srednii klas');
3: writeln('Bogatii');
4: writeln('Oligarh');
end;
End.

Зачем переменную к вводил,она же не используется?

@Snoopy · 12.12.2009, 19:31

Сообщение от V1T4S

5. По введенной заработной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер. (условие: Написать программу для решения задачи, указанной в соответствующем варианте. Для решения задачи использовать оператор выбора.)

Pascal

...
var x:longint;
 begin
  Readln(x);
case x of
    0..1:write('Нищий(еще кому-то должен)');
    600..1000:Write('Бедный');
    1000..10000:Write('Средний достаток');
    4000..30000:Write('Богатый');
    500000..100000:Write('Миллионер');
   end;
 Readln;
end.

@mamedovvms · 12.12.2009, 19:31

Pascal

1)
Uses crt;
Var n:word;
Begin
Clrscr;
Writeln('n ');
readln(n);
if (((n div 10) mod 10)-(n mod 10)-(n div 100)=0) then writeln('Summa ravna')
 else writeln('Summa ne ravna');
readln;
End.

@Wassago · 12.12.2009, 19:32

Сообщение от vovka

Зачем переменную к вводил,она же не используется?

Она тебе мешает?

@V1T4S · 12.12.2009, 19:38 **[ТС]**

люди, Спасибо Вам!

Добавлено через 4 минуты

Сообщение от Шутка

Pascal

uses crt;
const
x=0.112;
var
asin,itog:real;
begin
Asin:=arctan(x/sqrt(1-(x*x)));
itog:=Asin+(x*x);
writeln(itog)
end.

Я вот если честно не понял условий ко 2ой и к 4ой задачам.
Решу третью - если найдете мне нужные формулы. Геометрия 11.

условие к задаче 4: Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить значение соответствующее конкретному варианту.

условие к задаче 2: Найти значение функции Y(X) при заданном X. Используя стандартные функции вычислить Y11=[Y], где [ ] означает целую часть числа.

@Шутка · 12.12.2009, 19:49

Сообщение от V1T4S

люди, Спасибо Вам!

Добавлено через 4 минуты

условие к задаче 4: Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить значение соответствующее конкретному варианту.

Pascal

uses crt;
const
r=13.75;
var
s,ygol:real;
begin
writeln('ygol='); readln(ygol);
s:=1/2*ygol*r*r;
writeln('s=',s);
end.

Я просил вас найти формулу.
Получите, но в правильности вычислений я не уверен.

Добавлено через 7 минут

Сообщение от V1T4S

люди, Спасибо Вам!

Добавлено через 4 минуты

условие к задаче 4: Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить значение соответствующее конкретному варианту.

условие к задаче 2: Найти значение функции Y(X) при заданном X. Используя стандартные функции вычислить Y11=[Y], где [ ] означает целую часть числа.

2ую я вам написал.
вот 4ая, если я её правильно понял.

Pascal

uses crt;
var
ymn,x,a:real;
begin
writeln('a=(nachalnoe znachenie)'); readln(a);
writeln('x=(konechnoe znachenie)'); readln(x);
repeat
writeln('ymnojit na='); readln(ymn);
a:=a*ymn;
writeln('a=',a);
until a=x;
writeln('zadanie vipolneno');
end.

@V1T4S · 12.12.2009, 19:53 **[ТС]**

Шутка пасибо)

@alex0983 · 12.12.2009, 20:00

Формула площади сектора S=((pi*R^2)/360)*f

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
		1
	Срочно! 12.12.2009, 18:58. Показов 3439. Ответов 12 Метки нет (Все метки) Братья, помогите пожалуйста! надо решить: 1. Ввести с клавиатуры трехзначное число и определить, равна ли сумма первой и последней цифры второй цифре. 2. Y= arcsin x+x2, при X=0.112; 3. Дано f. Найти площадь сектора, радиус которого равен 13.75, а соответствующий центральный угол равен f . Считать, что f - градусная мера угла. 4. a15 за пять операций; 5. По введенной заработной плате человека определить его достаток: нищий, бедный, среднего достатка, богатый, миллионер. (условие: Написать программу для решения задачи, указанной в соответствующем варианте. Для решения задачи использовать оператор выбора.) 0

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
	12.12.2009, 19:15 [ТС]	3
	Шутка благодарю! 0

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
	12.12.2009, 19:22 [ТС]	5
	Шутка, снова выручаешь, спасибо тебе большое! 0

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	12.12.2009, 19:32	9
	Сообщение от vovka Зачем переменную к вводил,она же не используется? Она тебе мешает? 0

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
	12.12.2009, 19:53 [ТС]	12
	Шутка пасибо) 0

@alex0983 51 / 49 / 17 Регистрация: 30.10.2009 Сообщений: 152
	12.12.2009, 20:00	13
	Формула площади сектора S=((piR^2)/360)f 0