Найти общее сопротивление соединения

@юрий литвинов · Регистрация: 02.03.2012

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

НАДО РЕШЕНИЕ В TURBO PASCAL И БЛОК СХЕМЫ
1)даны r1, r2,r3 найти общее сопративление r
2)вывести последнюю цифру заданного числа
3)дано некоторое число копеек сколько будет в рублях
4)написать прогу выводящую пограмму приветствия
5)даны раз Rn и высота h найти объем и площадь
6)даны a,b вычислить x=a\b
7)даны r круга и стороны квадрата написать прогу круг помещается в квадрате и наоборот
8)даны 3 сторны треугольника найти его периметр и площадь
9)даны 3 стороны треугольника выяснить является ли он прямоугольным треугольником
10)даны 4 стороны четырехугольника выяснить является ли он прямоугольным
11)дано число n найти остаток деления числа n на m
12)найти n член последовательности фибоначи
13)вкладчик положил на счет в банке x рублей каждый год к его сумме +3% вычислить сколько будет денег через n лет
14)вывести все делители заданного числа
15)вычислить наименьший делитель числа z

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@SkyDream · 02.03.2012, 22:09

Во первых, какие задачи у Вас из этих решены?
А во вторых, посмотрел 1 задачу: надо указать какое соединение (параллельное или последовательное).
2 задача: ответ (X mod 10) - вернет последнюю цифру.

ЗЫ если решать первую задачу для обоих соединений, то:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
vas R1,R2,R3,Rp,Rps:real;
begin
clrscr;
Writeln('ввелите R1');
readln(R1);
Writeln('ввелите R2');
readln(R2);
Writeln('ввелите R3');
readln(R3);
Rp:=(R2*R3+R1*R3+R1*r2)/(R1*R2*R3);
Rps:=R1+R2+R3;
writeln(' при параллельном соединении R=',Rp:5:3);
Writeln(' при последовательном соединении R=',Rps:5:3);
readln;
end.

3 задача: ответ: (X / 100) *ответ будет дробным, поэтому надо записываться в переменную, например, типа Real.
На 4 задачу ответ писать стыдно

Открой любой учебник, первые же страницы

ЗЫ вообще задачи даже читать смешно. Ну почему многие так ленятся открыть книгу/гугл и прочитать... Это ж тебе не адронный коллайдер запускать...

@Ev[G]eN · 02.03.2012, 22:20

Сообщение от юрий литвинов

2)вывести последнюю цифру заданного числа

Pascal
1
2
3
4
5
6
7
var
  Chislo: integer;
begin
  write('Число: ');
  readln(Chislo);
  writeln('Последняя цифра: ', Chislo mod 10);
end.

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

Сообщение от юрий литвинов

6)даны a,b вычислить x=a\b

Pascal
1
2
3
4
5
6
7
8
9
10
var
  a, b, x: real;
begin
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);
  x:=a / b;
  write('x: ', x);
end.

@Pacan1 · 02.03.2012, 22:20

4

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var
s:string;
begin
writeln('Введите свое имя');
readln(s);
writeln('привет ',s);
readln
 
end.

@Ev[G]eN · 02.03.2012, 22:26

Сообщение от юрий литвинов

11)дано число n найти остаток деления числа n на m

Pascal
1
2
3
4
5
6
7
8
9
var
  n, m: integer;
begin
  write('n: ');
  readln(n);
  write('m: ');
  readln(m);
  writeln('Остаток от деления ', n, ' на ', m, ': ', n mod m);
end.

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

Сообщение от юрий литвинов

найти n член последовательности фибоначи

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n: integer;
 
function Fibonaci(n: integer): integer;
begin
  if (n = 1) or (n = 2) then Fibonaci:=1
    else Fibonaci:=Fibonaci(n-1)+Fibonaci(n-2);
end;
 
begin
  write('N: ');
  readln(n);
  writeln(n, '-й член последовательности Фибоначчи: ', Fibonaci(n));
end.

@SkyDream · 02.03.2012, 22:31

14 задачка:

Delphi
1
2
3
4
5
6
7
8
9
var
  N: Integer;
  i: Integer;
begin
  N := 105;
  for i:=2 to N do
    if N mod i = 0 then write(i, ' ');
  Readln;
end.

ЗЫ 15 задача "вычислить наименьший делитель числа z" вроде, для натуральных чисел, ответ всегда будет 1.

@Севак · 02.03.2012, 22:34

Сообщение от юрий литвинов

8)даны 3 сторны треугольника найти его периметр и площадь

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,c,p,d,s: real;
begin
writeln('Vvedite storony treygolnika');
readln(a);
readln(b);
readln(c);
if (a+b<c) or (b+c<a) or (a+c<b) then begin
writeln('takoy treygolnik ne sushestvuet');
end
else begin
p:=a+b+c;
d:=p/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln('Perimetr treygolnika - ',p,', ploshad - ',s);
end;
end.

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

Сообщение от юрий литвинов

)даны 3 стороны треугольника выяснить является ли он прямоугольным треугольником

Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var
a,b,c: real;
begin
writeln('Введите стороны треугольника:');
read(a,b,c);
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then write('Треугольник прямоугольный!')
else writeln('Треугольник непрямоугольный!');
end.

@SkyDream · 02.03.2012, 22:35

9 задача:

Delphi
1
2
3
4
5
  ReadLn(a,b,c);
  if(a = sqrt(sqr(b)+sqr(c))) or (b = sqrt(sqr(a)+sqr(c))) or (c = sqrt(sqr(b)+sqr(a))) then
    WriteLn('Прямоугольный');
  ReadLn;
end.

@Севак · 02.03.2012, 22:59

Сообщение от юрий литвинов

13)вкладчик положил на счет в банке x рублей каждый год к его сумме +3% вычислить сколько будет денег через n лет

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
x,s: real;
i,n: integer;
begin
write('Введите кол-во денег на счету: ');
read(x);
write('Введите кол-во лет: ');
read(n);
s:=x;
for i:=1 to n do begin
s:=s+x*0.03;
x:=s;
end;
write('Через ',n,' года/лет на счету будет 's:1:2', руб!);
end.

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

Сообщение от юрий литвинов

7)даны r круга и стороны квадрата написать прогу круг помещается в квадрате и наоборот

Pascal
1
2
3
4
5
6
7
8
9
10
11
Uses crt;
var
r,a: real;
begin
write('Введите R: ');
read(r);
write('Введите сторону квадрата: ');
read(a);
if r<=(a/2) then write('Круг помещается в квадрате!')
else write('Круг не помещается в квадрате!');
end.

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

Сообщение от юрий литвинов

3)дано некоторое число копеек сколько будет в рублях

Pascal
1
2
3
4
5
6
7
8
uses crt;
var
n: integer;
begin
write('Введите кол-во денег в копейках: ');
read(n);
write(n,' копеек = ',n/100:1:2,' рублей!');
end.

@юрий литвинов · 02.03.2012, 23:19 **[ТС]**

ОГРОМНОЕ СПАСИБО ВСЕМ КТО ПОМОГ

Добавлено через 1 минуту
ОТЛИЧНЫЙ САЙТ

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Найти общее сопротивление соединения

Решение

Решение

Решение

Решение

Решение

Решение

@юрий литвинов 0 / 0 / 0 Регистрация: 02.03.2012 Сообщений: 7
	02.03.2012, 23:19 [ТС]
	ОГРОМНОЕ СПАСИБО ВСЕМ КТО ПОМОГ Добавлено через 1 минуту ОТЛИЧНЫЙ САЙТ 0