Задачи на Pascal | SEclub.org
Задачи на Pascal
Все новые
Всего сообщений: 511
*
Liu kang
ts 28 апр 2008 в 18:09
Задачи на Pascal
Пожалуста памагите. Это у меня вапрос жизни и смерти. задача такая. пусть элементами прямоугольного равнобедренного треугольника; сторона а, площадь s, высота h, радиус вписанной окружнсти r, радиус описанной окруности R. составить программу которая по заданному номеру и значению соответствующего элемента вычисляла бы значения остальных элементов. очень сильно прошу помогите.надо к зафтрашнему дню. пожалуста. заранее благодарен.
*
Liu kang
ts 28 апр 2008 в 18:10
Пожалуста прошу всех. это очень важно. памагите .
*
Liu kang
ts 28 апр 2008 в 19:18
У меня есть подобная задача . Тока она не идёт. Требуется какоето условие каторое надо гдето во врайт писать, обозначающее в еденицу измерения Задача такая program nl; Var a,b,s,h,n :integer; Begin Write ("вв элементы 1 катет, 2 гипотенуза итд"); Read (n) Case n of 1: b:= sqrt (nn+nn); Write ("b=",b); End; End. И также все остальные элементы . Ват загвоздка в еденице измерения. Как это оформить???
*
K!LT
28 апр 2008 в 20:58
Liu kang вот твоя задача Program Liu_Kang; Var elem : integer; znach, a, s, h, r1, r2 : real; BEGIN Writeln ("Введите элемент треугольника и его значение:"); Writeln ("1 - сторона a, см;"); Writeln ("2 - площадь s, см2;"); Writeln ("3 - высота h, см;"); Writeln ("4 - радиус вписанной окружности r, см;"); Writeln ("5 - радиус описанной окружности R, см."); Read (elem, znach); Writeln; case elem of 1: a := znach; 2: a := sqrt(2 znach); 3: a := znach sqrt(2); 4: a := znach (2 + sqrt(2)); 5: a := znach sqrt(2); end;
*
K!LT
28 апр 2008 в 20:59
s := (a * a) / 2; h := a / sqrt(2); r1 := a / (2 + sqrt(2)); r2 := a / sqrt(2); Writeln ("Сторона треугольника a = ",a:6:3," см;"); Writeln ("Площадь треугольника s = ",s:6:3," см2;"); Writeln ("Высота треугольника h = ",h:6:3," см;"); Writeln ("Радиус вписанной окружности r = ",r1:6:3," см;"); Writeln ("Радиус описанной окружности R = ",r2:6:3," см."); END. Надеюсь разберешься
*
Liu kang
ts 28 апр 2008 в 21:56
огромное тебе спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ты спас меня!!!!!!!!!!!!!!!!!
*
Xимep
29 апр 2008 в 00:05
Парни! Большая просьба помочь, кто может! 1)Поменять местами максимальные элементы из первых десяти и последних десяти элементов вектора. 2)Переставить строки с min и max элементами матрицы.
29 апр 2008 в 00:06 / Xимep (1)
*
duke
29 апр 2008 в 00:22
Xимep, вы бесите (неумные люди) всё за вас решать кто-то должен(вы так думаете), 2 на 2 умножить не можете сами.
*
Ghost: Осторожнее в выражениях.
29 апр 2008 в 00:47 / Ghost (1)
*
Xимep
29 апр 2008 в 00:24
duke, не надо вот этого, не все же такие умные, и я тебя насильно не заставляю, а кто нибудь да поможет.
*
sEKi
29 апр 2008 в 00:36
duke, :palach: По спокойней веди себя :nenado:
*
FOB1O
29 апр 2008 в 01:34
duke, чё ругаемся? И правда другое дело если ты непонемаешь самого языка или какого то раздела а другое когда просишь кого то решить за него всё! Так что тему нада закрыть а то 2-ешники вобще не научаца нечему и вобще обнаглеют! Если им нада пусь читают книги и задают вопросы по непонятаму матерьялу! :mat:
*
K!LT
29 апр 2008 в 02:20
Химер, забирай задачи Program Himer1; Var a : array [1..30] of integer; max1, max2, p : integer; i, ind1, ind2 : byte; BEGIN Writeln ("Введите массив:"); for i := 1 to 30 do Read (a); max1 := a[1]; ind1 := 1; max2 := a[30]; ind2 := 30; for i := 1 to 10 do if a > max1 then begin max1 := a; ind1 := i; end; for i := 21 to 30 do if a > max2 then begin max2 :=a; ind2 := i; end; p := a[ind1]; a[ind1] := a[ind2]; a[ind2] := p; Writeln; for i := 1 to 30 do Write (a," "); END.
Скачать тему
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2024