Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (помогите решить пожалуйста) / 12 сообщений из 12, страница 1 из 1
24.01.2010, 09:47:13
    #36427238
Djois2009
Djois2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
вычислить объём паралепипеда по 3 ребрам.эт линейные.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2010, 10:56:34
    #36427270
Пилотажный
Пилотажный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Хотя бы наклонный? Тогда площадь основания на высоту.
Если прямоугольный - то умножить три переменные не можешь?
На первых страницах любого учебника или пособия - что-то вводят, что-то состоавляют текст (так и умножить) и выводят.
Примерчик "Hello World!".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2010, 13:56:24
    #36427408
Mozok
Mozok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djois2009,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
program paralVol;
type Vector = record
  x: double;
  y: double;
  z: double;
end;
var
  a: array[ 1 .. 3 ] of Vector;
  i: integer; tmp: double;

begin
  for i :=  1  to  3  do begin
    write('Enter coordinates of ');
    write(i);
    writeln(' edge.');
    write('x1=');
    readln(a[i].x);
    write('x2=');
    readln(tmp);
    a[i].x = tmp - a[i].x;
    write('y1=');
    readln(a[i].y);
    write('y2=');
    readln(tmp);
    a[i].y = tmp - a[i].y;
    write('z1=');
    readln(a[i].z);
    write('z2=');
    readln(tmp);
    a[i].z = tmp - a[i].z;
  end;
  write('Volume is ');
  writeln(abs(a[ 1 ].x*a[ 2 ].y*a[ 3 ].z+a[ 1 ].y*a[ 2 ].z*a[ 3 ].x+a[ 2 ].x*a[ 3 ].y*a[ 1 ].z-a[ 1 ].z*a[ 2 ].y*a[ 3 ].x-a[ 1 ].y*a[ 2 ].x*a[ 3 ].z-a[ 2 ].z*a[ 3 ].y*a[ 1 ].x));
  readln;
end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 14:23:33
    #36429133
Djoi2009
Djoi2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 15:05:21
    #36429260
egorych
egorych
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djoi2009Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?ни одно доброе дело безнаказанным не остаётся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 15:06:55
    #36429267
Djois2009,
Djois2009,
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
1)Вывести квадрат большего из двух чисел.эт развилка.
2)Вывести сумму квадратов чисел (монотонно возрастающий ряд) (S=(1^2)+(3^2)+(5^2)+(7^2)+(9^2)+...+(N^2)) Не четное N водится пользователем.эт цикл.
3)Из целочисленного массива А[n] выписать в строку все не четные отрицательные элементы.эт массивы.
4)из введеной строки вывести на экран все четные символы(стоящие на позициях с четными номерами).эт строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 15:15:19
    #36429304
Пилотажный
Пилотажный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djoi2009Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?

Наверно ЗА ЕЩЁ решенние пару задачек УЖЕ надо Web-деньги предлагать (так по времени затраченному: 150-200 web-рублей за каждые потраченные 10 минут).
А то как-то тоскливо и аморально за неуспевающего решать.
Чем-то двоечник подстегиваться должен ведь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 17:04:53
    #36429692
Mozok
Mozok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djoi2009Mozok,огромное спасибо.
Пожалуйста.
Djoi2009ты не поможешь ещё пару задачек решить?
Легко.

 

Djoi20091)Вывести квадрат большего из двух чисел.эт развилка.

Код: plaintext
 [code=plaintext]program{}maxSquare;var{}x,y:double;begin{}write(chr( 69 )+chr( 110 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 50 )+chr( 32 )+chr( 110 )+chr( 117 )+chr( 109 )+chr( 98 )+chr( 101 )+chr( 114 )+chr( 115 )+chr( 32 )+chr( 115 )+chr( 101 )+chr( 112 )+chr( 97 )+chr( 114 )+chr( 97 )+chr( 116 )+chr( 101 )+chr( 100 )+chr( 32 )+chr( 98 )+chr( 121 )+chr( 32 )+chr( 119 )+chr( 104 )+chr( 105 )+chr( 116 )+chr( 101 )+chr( 115 )+chr( 112 )+chr( 97 )+chr( 99 )+chr( 101 )+chr( 58 )+chr( 32 ));readln(x,y);write(chr( 83 )+chr( 101 )+chr( 99 )+chr( 111 )+chr( 110 )+chr( 100 )+chr( 32 )+chr( 112 )+chr( 111 )+chr( 119 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 111 )+chr( 102 )+chr( 32 )+chr( 116 )+chr( 104 )+chr( 101 )+chr( 32 )+chr( 98 )+chr( 105 )+chr( 103 )+chr( 103 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 110 )+chr( 117 )+chr( 109 )+chr( 98 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 105 )+chr( 115 )+chr( 32 ));writeln(sqr(max(x,y)));readln;end.
Djoi20092)Вывести сумму квадратов чисел (монотонно возрастающий ряд) (S=(1^2)+(3^2)+(5^2)+(7^2)+(9^2)+...+(N^2)) Не четное N водится пользователем.эт цикл.
Код: plaintext
 [code=plaintext]program{}SquaresSeq;var{}i,j,sum:integer;begin{}write(chr( 69 )+chr( 110 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 112 )+chr( 111 )+chr( 115 )+chr( 105 )+chr( 116 )+chr( 105 )+chr( 118 )+chr( 101 )+chr( 32 )+chr( 111 )+chr( 100 )+chr( 100 )+chr( 32 )+chr( 110 )+chr( 117 )+chr( 109 )+chr( 98 )+chr( 101 )+chr( 114 )+chr( 44 )+chr( 32 )+chr( 112 )+chr( 108 )+chr( 101 )+chr( 97 )+chr( 115 )+chr( 101 )+chr( 58 )+chr( 32 ));readln(i);sum:= 0 ;for{}j:= 0 {}to(i- 1 )div{} 2 {}do{}sum:=sum+sqr( 2 *j+ 1 );write(chr( 83 )+chr( 117 )+chr( 109 )+chr( 32 )+chr( 105 )+chr( 115 )+chr( 32 )+chr( 101 )+chr( 113 )+chr( 117 )+chr( 97 )+chr( 108 )+chr( 32 )+chr( 116 )+chr( 111 )+chr( 32 ));writeln(sum)end.
Djoi20093)Из целочисленного массива А[n] выписать в строку все не четные отрицательные элементы.эт массивы.
Код: plaintext
 [code=plaintext]program{}arrayElements;const{}maxN= 100000000 ;var{}arrSize,i:integer;arr:array[ 1 ..maxN]of{}integer;begin{}write(chr( 69 )+chr( 110 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 97 )+chr( 114 )+chr( 114 )+chr( 97 )+chr( 121 )+chr( 39 )+chr( 115 )+chr( 32 )+chr( 115 )+chr( 105 )+chr( 122 )+chr( 101 )+chr( 32 )+chr( 40 )+chr( 110 )+chr( 111 )+chr( 116 )+chr( 32 )+chr( 103 )+chr( 114 )+chr( 101 )+chr( 97 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 116 )+chr( 104 )+chr( 97 )+chr( 110 )+chr( 32 )+chr( 49 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 48 )+chr( 41 )+chr( 58 )+chr( 32 ));readln(arrSize);for{}i:= 1 {}to{}arrSize{}do{}begin{}write(chr( 69 )+chr( 110 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 ));write(i);write(chr( 32 )+chr( 101 )+chr( 108 )+chr( 101 )+chr( 109 )+chr( 101 )+chr( 110 )+chr( 116 )+chr( 32 )+chr( 111 )+chr( 102 )+chr( 32 )+chr( 97 )+chr( 114 )+chr( 114 )+chr( 97 )+chr( 121 )+chr( 58 )+chr( 32 ));readln(arr[i])end;writeln(chr( 78 )+chr( 101 )+chr( 103 )+chr( 97 )+chr( 116 )+chr( 105 )+chr( 118 )+chr( 101 )+chr( 32 )+chr( 111 )+chr( 100 )+chr( 100 )+chr( 32 )+chr( 101 )+chr( 108 )+chr( 101 )+chr( 109 )+chr( 101 )+chr( 110 )+chr( 116 )+chr( 115 )+chr( 58 )+chr( 32 ));for{}i:= 1 {}to{}arrSize{}do{}if(odd(arr[i]))and(arr[i]< 0 )then{}writeln(arr[i])end.
Djoi20094)из введеной строки вывести на экран все четные символы(стоящие на позициях с четными номерами).эт строки.
Код: plaintext
 [code=plaintext]program{}evenChars;var{}i:integer;s:string[ 255 ];begin{}write(chr( 69 )+chr( 110 )+chr( 116 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 121 )+chr( 111 )+chr( 117 )+chr( 114 )+chr( 32 )+chr( 115 )+chr( 116 )+chr( 114 )+chr( 105 )+chr( 110 )+chr( 103 )+chr( 44 )+chr( 32 )+chr( 112 )+chr( 108 )+chr( 101 )+chr( 97 )+chr( 115 )+chr( 101 )+chr( 40 )+chr( 110 )+chr( 111 )+chr( 116 )+chr( 32 )+chr( 108 )+chr( 111 )+chr( 110 )+chr( 103 )+chr( 101 )+chr( 114 )+chr( 32 )+chr( 116 )+chr( 104 )+chr( 97 )+chr( 110 )+chr( 32 )+chr( 50 )+chr( 53 )+chr( 53 )+chr( 32 )+chr( 115 )+chr( 121 )+chr( 109 )+chr( 98 )+chr( 111 )+chr( 108 )+chr( 115 )+chr( 41 )+chr( 58 )+chr( 32 ));readln(s);writeln(chr( 83 )+chr( 121 )+chr( 109 )+chr( 98 )+chr( 111 )+chr( 108 )+chr( 115 )+chr( 32 )+chr( 97 )+chr( 116 )+chr( 32 )+chr( 101 )+chr( 118 )+chr( 101 )+chr( 110 )+chr( 32 )+chr( 112 )+chr( 111 )+chr( 115 )+chr( 105 )+chr( 116 )+chr( 105 )+chr( 111 )+chr( 110 )+chr( 115 )+chr( 58 )+chr( 32 ));for{}i:= 1 {}to{}length(s)div{} 2 {}do{}writeln(s[ 2 *i])end.


Модератор: Завернул в спойлер.
Mozok, попробуйте использовать "enter" при оформлении кода :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2010, 19:34:49
    #36430047
Mozok
Mozok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Модератор
Завернул в спойлер.
Mozok, попробуйте использовать "enter" при оформлении кода :)
Не, ну так же не интересно, я так не играю :). А вот в спойлер буду заворачивать,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2010, 10:33:38
    #36430713
dima_ryzhov
dima_ryzhov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djois2009,1)Вывести квадрат большего из двух чисел.эт развилка.
2)Вывести сумму квадратов чисел (монотонно возрастающий ряд) (S=(1^2)+(3^2)+(5^2)+(7^2)+(9^2)+...+(N^2)) Не четное N водится пользователем.эт цикл.
3)Из целочисленного массива А[n] выписать в строку все не четные отрицательные элементы.эт массивы.
4)из введеной строки вывести на экран все четные символы(стоящие на позициях с четными номерами).эт строки.
Обратитесь к Грегоре :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2010, 11:48:34
    #36430890
Djois2009
Djois2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Mozok
Ты настоящий друг!!!огромнейшие спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2010, 11:49:50
    #36430893
Mozok
Mozok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (помогите решить пожалуйста)
Djois2009,

всегда пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (помогите решить пожалуйста) / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 382ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=1343923]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 60ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 227ms
total:  382ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]