ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (помогите решить пожалуйста)
12 сообщений из 12, страница 1 из 1
Pascal (помогите решить пожалуйста)
    #36427238
Djois2009
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djois2009
Гость
вычислить объём паралепипеда по 3 ребрам.эт линейные.
...
Рейтинг: 0 / 0
24.01.2010, 09:47:13
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36427270
Фотография Пилотажный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пилотажный
Участник
Хотя бы наклонный? Тогда площадь основания на высоту.
Если прямоугольный - то умножить три переменные не можешь?
На первых страницах любого учебника или пособия - что-то вводят, что-то состоавляют текст (так и умножить) и выводят.
Примерчик "Hello World!".
...
Рейтинг: 0 / 0
24.01.2010, 10:56:34
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36427408
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
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
24.01.2010, 13:56:24
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36429133
Djoi2009
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djoi2009
Гость
Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?
...
Рейтинг: 0 / 0
25.01.2010, 14:23:33
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36429260
egorych
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
egorych
Участник
Djoi2009Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?ни одно доброе дело безнаказанным не остаётся
...
Рейтинг: 0 / 0
25.01.2010, 15:05:21
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36429267
Djois2009,
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djois2009,
Гость
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:06:55
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36429304
Фотография Пилотажный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пилотажный
Участник
Djoi2009Mozok,огромное спасибо.ты не поможешь ещё пару задачек решить?

Наверно ЗА ЕЩЁ решенние пару задачек УЖЕ надо Web-деньги предлагать (так по времени затраченному: 150-200 web-рублей за каждые потраченные 10 минут).
А то как-то тоскливо и аморально за неуспевающего решать.
Чем-то двоечник подстегиваться должен ведь?
...
Рейтинг: 0 / 0
25.01.2010, 15:15:19
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36429692
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
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, 17:04:53
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36430047
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
Модератор
Завернул в спойлер.
Mozok, попробуйте использовать "enter" при оформлении кода :)
Не, ну так же не интересно, я так не играю :). А вот в спойлер буду заворачивать,
...
Рейтинг: 0 / 0
25.01.2010, 19:34:49
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36430713
dima_ryzhov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dima_ryzhov
Участник
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, 10:33:38
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36430890
Djois2009
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djois2009
Гость
Mozok
Ты настоящий друг!!!огромнейшие спасибо!!!
...
Рейтинг: 0 / 0
26.01.2010, 11:48:34
| Ответить | Цитировать | Написать  
Pascal (помогите решить пожалуйста)
    #36430893
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
Djois2009,

всегда пожалуйста.
...
Рейтинг: 0 / 0
26.01.2010, 11:49:50
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (помогите решить пожалуйста)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=36427238&tid=1343923]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 26ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 192ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


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