Задачка 3 |
Задачка 3 |
May 22 2011, 17:16
Сообщение
#1
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
Помогите пожалуйста с задачкой....Тема-Паскаль ,подпрограммы-процедуры и функции... Без понятий как решать....
Сообщение отредактировал Олири - May 22 2011, 17:17 -------------------- Величие - это ответственность.
|
|
|
May 22 2011, 18:13
Сообщение
#2
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Раскрывающийся текст Код program z1; type mas = array[1..100] of real; function calc_sum_masses( p: mas; count: integer ): real; var i: integer; var sum: real; begin i := 1; sum := 0; while i <= count do begin sum := sum + p[i]; i := i + 1; end; calc_sum_masses := sum; end; function calc_coord( p: mas; c: mas; sum_masses: real; count: integer ): real; var i: integer; var sum: real; begin i := 1; while i <= count do begin sum := sum + p[i]*c[i]; i := i + 1; end; calc_coord := sum / sum_masses; end; var p: mas; c: array[1..3] of mas; count: integer; sum_masses: real; begin count := 2; p[1] := 20; p[2] := 20; //x c[1][1] := 0; c[1][2] := 0; //y c[2][1] := 0; c[2][2] := 0; //z c[3][1] := 0; c[3][2] := 10; sum_masses := calc_sum_masses( p, count ); writeln( 'U: ', calc_coord(p, c[1], sum_masses, count) ); writeln( 'V: ', calc_coord(p, c[2], sum_masses, count) ); writeln( 'W: ', calc_coord(p, c[3], sum_masses, count) ); end. Облагораживайте самостоятельно. -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
May 23 2011, 14:36
Сообщение
#3
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
а что такое count?))
-------------------- Величие - это ответственность.
|
|
|
May 23 2011, 14:40
Сообщение
#4
|
|
черный юмор Группа: Admin Сообщений: 8433 Регистрация: 4 Dec 2005 Вставить ник Цитата Из: провинции, понаехавший в М Пользователь №: 2025 |
переменная типа integer
Сообщение отредактировал Михахан - May 23 2011, 14:41 -------------------- Если смех продлевает жизнь, то я буду жить вечно. А если умру, то от смеха.
Извините, не удержался... |
|
|
May 23 2011, 18:18
Сообщение
#5
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Число точек.
-------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
May 23 2011, 19:36
Сообщение
#6
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
ага))я поняла))спасибо огромное)))
-------------------- Величие - это ответственность.
|
|
|
Текстовая версия | Сейчас: 26th September 2024 - 20:32 |