Вычислите объем шара

@rezus42 · Регистрация: 18.09.2011

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

Помогите пожалуйста написать программки , буду очень благодарен .
Уже давно не чего не писал так что сам не смогу .

1) Вычислите объем шара (радиус вводить с клавиатуры).

2)Напишите программу для вычисления значения функции, x и t вводить с клавиатуры: (Картинка снизу)

3)Поменяйте местами значения переменных х и у с использованием дополнительной переменной.

4)Дано трехзначное число. Найти число, полученное при перестановке второй и третьей цифр заданного числа.

5) С начала суток прошло n секунд. Определить:

1. Сколько полных часов прошло с начала суток.

2. Сколько полных минут прошло с начала очередного часа.

3. Сколько полных секунд прошло с начала очередной минуты.

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

Читаем правила! Один вопрос - одна тема!

@dtsey · 18.09.2011, 01:29

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

Помогите пожалуйста написать программки , буду очень благодарен .
Уже давно не чего не писал так что сам не смогу .

1) Вычислите объем шара (радиус вводить с клавиатуры).

2)Напишите программу для вычисления значения функции, x и t вводить с клавиатуры: (Картинка снизу)

3)Поменяйте местами значения переменных х и у с использованием дополнительной переменной.

4)Дано трехзначное число. Найти число, полученное при перестановке второй и третьей цифр заданного числа.

5) С начала суток прошло n секунд. Определить:

1. Сколько полных часов прошло с начала суток.

2. Сколько полных минут прошло с начала очередного часа.

3. Сколько полных секунд прошло с начала очередной минуты.

1.

Delphi

var
r,s: string;
begin
r:=StrToFloat(edit1.text);
s:=3/4*pi*r*r*r;
Label1.Caption:=FloatToStr(s);
end;

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

3.

Delphi

var
x,y,z: real;
begin
x:=Edit2.TExt;
y:=Edit3.text;
z:=x;
x:=y;
y:=z;
end;

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

Delphi

var
r,s,a,c: string;
begin
s:=Edit1.Text;
r:=copy(s,1,1);
a:=copy(s,2,1);
c:=copy(s,3,length(s));
s:=r+c+a;
Label1.Caption:=s;
end;

	18.09.2011, 01:29

Вычислите объем шара

Решение