Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
31.03.2009, 20:05
|
|
Новичок
Регистрация: 22.03.2009
Сообщений: 2
Провел на форуме:
6536
Репутация:
0
|
|
3 задачки (паскаль)
1. Написать прог-му вычисления выражения и ввода полученного результата на экран, q=max(x+y+z,x-y,min(XY))
2. Найти сумму кубов всех целых чисел от 20 до 40
3.Дан массив натуральных чисел. Найти сумму элементов, кратных данному 15
Я знаю, что все задачи примитивные, но по болезни пропустил эти темы...
Жду ответов!  |
|
|
31.03.2009, 20:33
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме:
811764
Репутация:
119
|
|
Serj_smail, что за max и min?
вторая:
Код:
sum:=0;
for i = 20 to 40 do
begin
sum:=i*i*i+sum;
end;
третья:
Код:
a:array [1..10] of integer;
sum:=0;
for i = 0 to 10 do
begin
if a[i] mod 15 = 0 then
sum:=sum + a[i];
end;
надеюсь помог)
|
|
|
|
31.03.2009, 20:37
|
|
Новичок
Регистрация: 22.03.2009
Сообщений: 2
Провел на форуме:
6536
Репутация:
0
|
|
Сам не знаю =)
Спасибо ограомное, очень помог !
|
|
|
|
31.03.2009, 20:40
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
Провел на форуме:
2816163
Репутация:
158
|
|
думаю что max и min - это максимальное и минимальное значение...
проверка
Код:
max=y;
if(x>max)
max=x;
if(z>max)
max=z;
//так можно хоть сколько значений проверить =)))
return max;
типа надо написать функции которая будет возвращять макс/мин значение..
Последний раз редактировалось fker; 31.03.2009 в 20:51..
|
|
|
|
31.03.2009, 20:48
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 303
Провел на форуме:
811764
Репутация:
119
|
|
Насчет min'а все понятно...из двух чисел ищется минимальное. А вот насчет max'а...там три параметра, хз какой там алгоритм. Поэтому я и пропустил задание |
|
|
|
31.03.2009, 20:53
|
|
Постоянный
Регистрация: 16.04.2008
Сообщений: 889
Провел на форуме:
12942062
Репутация:
1550
|
|
2.
Код:
s:=0;
for i:=20 to 40
begin
cube:=sqr(i)*i;
s:=s+cube;
end;
|
|
|
|
31.03.2009, 21:49
|
|
Новичок
Регистрация: 08.02.2008
Сообщений: 19
Провел на форуме:
63941
Репутация:
0
|
|
Сообщение от Forcer
HencH_MaN
если нет, то задача достаточно простая. Если да, то немногим сложнее.
Поможешь плиз мне через 2 недели сдавать 
|
|
|
|
01.04.2009, 02:54
|
|
Новичок
Регистрация: 22.03.2009
Сообщений: 3
Провел на форуме:
13811
Репутация:
0
|
|
Здравствуйте ребята, мне нужна помощь по лабораторной работе
Реализовать игру «Гонки» на Pascal ABC. На экране изображается замкнутый гоночный трек, рисуемый при помощи двух прямоугольников - один внутри другого
Высота и ширина внешнего прямоугольника генерируются программой как случайные числа при помощи функции random. Диапазон возможной ширины и высоты взять, например, в пределах от 200 до 400 пикселей. Смещение левой верхней точки внутреннего прямоугольника относительно левой верхней точки внешнего прямоугольника тоже задать случайными числами, например, в диапазоне от 10 до 30 пикселей. Размеры внутреннего прямоугольника опять же задать как случайные числа, но так, чтобы границы внутреннего прямоугольника не вылезали за границы внешнего, и чтобы справа и снизу между прямоугольниками тоже оставалось некоторое пространство примерно от 10 до 30 пикселей.
Область между прямоугольниками считается треком, пригодным для движения гоночных машин. Область внутри внутреннего прямоугольника и снаружи внешнего считается обочиной, непригодной для движения машин.
Изначально машина игрока устанавливается в некоторую случайную точку на треке и имеет нулевую скорость. Цель игрока - проехать по треку за минимальное количество ходов. На каждом ходе игрок может изменять скорость машины по оси X и скорость по оси Y не более чем на единицу (скорость, равная единице, соответствует перемещению на один пиксель за ход). То есть на каждом ходу игрок может выбрать один из следующих вариантов действий:
1. Увеличить скорость по оси X на единицу и увеличить скорость по оси Y на единицу.
2. Увеличить скорость по оси X на единицу и оставить скорость по оси Y неизменной.
3. Увеличить скорость по оси X на единицу и уменьшить скорость по оси Y на единицу.
4. Оставить скорость по оси X неизменной и увеличить скорость по оси Y на единицу.
5. Оставить скорость по оси X неизменной и оставить скорость по оси Y неизменной.
6. Оставить скорость по оси X неизменной и уменьшить скорость по оси Y на единицу.
7. Уменьшить скорость по оси X на единицу и увеличить скорость по оси Y на единицу.
8. Уменьшить скорость по оси X на единицу и оставить скорость по оси Y неизменной.
9. Уменьшить скорость по оси X на единицу и уменьшить скорость по оси Y на единицу.
Сразу после выбора игроком действия машина сдвигается на экране в соответствии с той скоростью, которую она получает. Если после этого машина остаётся на трассе (или на границе между трассой и обочиной), то у неё остаётся полученная скорость, и игрок переходит к следующему ходу (то есть ещё раз выбирает один из девяти вариантов действий). Если же машина после хода оказывается за границей трека, то её скорость сразу становится равно нулю по обеим осям, и игрок опять же переходит к следующему ходу.
Для управления машиной в программе должен быть интерфейс (сделать/нарисовать клавиши: вверх, вниз, влево, вправо, и кнопка: ОК)
Четыре кнопки позволяют уменьшать/увеличивать скорость по осям X или Y, а кнопка OK - принять выбранную скорость и сделать ход. В центре располагается стрелка, которая показывает направление и величину текущей скорости машины.
Программа обязательно должна быть реализована по модульному принципу. Каждая подзадача реализуется в виде отдельной функции или процедуры, имеющей соответствующее решаемой задаче название и список параметров и пригодной для адекватного использования в других программах. Размер подпрограмм должен быть как можно меньше: количество команд в теле каждой процедуры или функции - от одной до семи.
Последний раз редактировалось Ajax5; 01.04.2009 в 02:56..
|
|
|
|
01.04.2009, 15:26
|
|
Новичок
Регистрация: 23.03.2009
Сообщений: 11
Провел на форуме:
14678
Репутация:
0
|
|
Помогите с прогой на С++
На шахматной доске надо разместить 8 ферзей так чтоб их пути не пересекались.
с комментариями плиз.
|
|
|
|
01.04.2009, 17:00
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от WeReWoLf777
На шахматной доске надо разместить 8 ферзей так чтоб их пути не пересекались.
с комментариями плиз.
эт на курсовую тянет) у меня в восьмом классе такая тема на паскале была.
что отдаётся программе и что она возвращает?
координаты всех ферзей? 
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
