Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/28: Рейтинг темы: голосов - 28, средняя оценка - 4.86
Mystalla
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 4
1

Найти объем куба и площадь его боковой поверхности

01.03.2010, 21:15. Просмотров 5087. Ответов 7
Метки нет (Все метки)

Надо решить задачи на паскале

1. Даны действительные числа x, y, z Вычислить:
а)max(x+y+z, xyz)
б)min2(x+y+z/2,xyz)+1

2)Дана длина ребра куба. Найти обьем куба и площадь его боковой поверхности.

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

Добавлено через 11 минут
Помогите пожалуйста оочень нада!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2010, 21:15
Ответы с готовыми решениями:

Найти объём куба и площадь его боковой поверхности
12. Дана длина ребра куба (целое число). Найти объём куба и площадь его боковой...

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

найти объем, площадь боковой поверхности и полную площадь прямой призмы с высотой h
Доброго вечера нужно найти объем, площадь боковой поверхности и полную площадь...

Найти площадь грани, площадь полной поверхности и объем куба
4. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и...

Найти площадь грани, площадь полной поверхности и объем куба
Уважаемые програмисты помагите до здачи 1 лабораторной остался 1 день а ничего...

7
Zhilidan
13 / 13 / 8
Регистрация: 26.02.2010
Сообщений: 28
01.03.2010, 21:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program dvachisla;
Var a, b: real;
begin
     Writeln('Vvedite A:');
     Readln(A);
     Writeln('Vvedite B:');
     Readln(B);
     if A <= B then A := 0;
     Writeln('A = ',A);
     Writeln('B = ',B);
end.
1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
01.03.2010, 21:25 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program zmena;
Uses crt;
Var a,b: integer;
Begin
Clrscr;
Randomize;
a:=random(201)-100;
b:=random(201)-100;
Writeln('Исходные числа: ',a,'  ',b);
If a<=b then a:=0
Write('Результат: ',a,'  ',b);
End.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program sv;
Uses crt;
Var a,v,s: word;
Begin
Clrscr;
Randomize;
a:=random(11);
v:=a*a*a;
s:=6*sqr(a);
Writeln('Площадь = ',s);
Write('Объём = ',v);
End.
1
Mystalla
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 4
01.03.2010, 21:28  [ТС] 4
ООО спасибо большое!!!
Я мог это сделать на C++ но на пары неходил синтаксис паскаля чё то непомне!!!
Ну спасибо!!!
0
nepalcemdelan
10 / 9 / 4
Регистрация: 24.02.2010
Сообщений: 27
01.03.2010, 21:33 5
вот на второе задание
Pascal
1
2
3
4
5
6
7
8
9
10
11
program qb;
uses crt;
var s:real;
begin
clrscr;
write('vvedite dlinnu storony:');
readln(s);
writeln('obyom kuba:',s*s*s:0:2);
writeln('plocshad poverhnosti:',s*s:0:2);
readln;
end.
1
Mystalla
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 4
01.03.2010, 22:17  [ТС] 6
А первую задачку никак да???
0
nepalcemdelan
10 / 9 / 4
Регистрация: 24.02.2010
Сообщений: 27
02.03.2010, 12:51 7
если честно я что то недопонял что там надо сделать)))
0
Mystalla
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 4
03.03.2010, 09:23  [ТС] 8
Спасибо всем зачёт здал!!!
ТЕМА ЗАКРЫТА

Добавлено через 11 часов 11 минут
а в аервой надо было сравнить
0
03.03.2010, 09:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2010, 09:23

Найти площадь грани, площадь полной поверхности, и объем куба
тоарищи программисты их мозги помогите пожалуста бедной студенке над...

Записи. Найти объем и площадь всей поверхности параллелепипеда
Задана запись, имеющая три поля: первое – высота параллелепипеда, второе –...

Определить площадь боковой поверхности цилиндра с основанием R и высотой H
Задание 2. Составьте блок-схему к алгоритму решения следующей задачи: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru