 |
|
31.03.2009, 20:05
|
|
Новичок
Регистрация: 22.03.2009
Сообщений: 2
С нами:
9020336
Репутация:
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
С нами:
9746420
Репутация:
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
С нами:
9020336
Репутация:
0
|
|
Сам не знаю =)
Спасибо ограомное, очень помог !
|
|
|
|
31.03.2009, 20:40
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
С нами:
9187097
Репутация:
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
С нами:
9746420
Репутация:
119
|
|
Насчет min'а все понятно...из двух чисел ищется минимальное. А вот насчет max'а...там три параметра, хз какой там алгоритм. Поэтому я и пропустил задание |
|
|
|
31.03.2009, 20:53
|
|
Постоянный
Регистрация: 16.04.2008
Сообщений: 889
С нами:
9510146
Репутация:
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
С нами:
9608715
Репутация:
0
|
|
Сообщение от Forcer
HencH_MaN
если нет, то задача достаточно простая. Если да, то немногим сложнее.
Поможешь плиз мне через 2 недели сдавать 
|
|
|
|
01.04.2009, 02:54
|
|
Новичок
Регистрация: 22.03.2009
Сообщений: 3
С нами:
9021264
Репутация:
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
С нами:
9018802
Репутация:
0
|
|
Помогите с прогой на С++
На шахматной доске надо разместить 8 ферзей так чтоб их пути не пересекались.
с комментариями плиз.
|
|
|
|
01.04.2009, 17:00
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами:
9394886
Репутация:
1467
|
|
Сообщение от WeReWoLf777
На шахматной доске надо разместить 8 ферзей так чтоб их пути не пересекались.
с комментариями плиз.
эт на курсовую тянет) у меня в восьмом классе такая тема на паскале была.
что отдаётся программе и что она возвращает?
координаты всех ферзей? 
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
