Срочно!

@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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
1
2
3
4
5
6
7
8
9
10
11
12
13
...
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
2
3
4
5
6
7
8
9
10
11
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
11
12
13
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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: показать затраченные материалы за определенный период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22

	Срочно! 12.12.2009, 18:58. Показов 3841. Ответов 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 [ТС]
	Шутка благодарю! 0

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

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

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