Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 21.12.2006, 08:35   #1
Kasim
 
Регистрация: 20.12.2006
Сообщений: 5
По умолчанию Простые задачи по паскалю

ПОмогите пожалуйста решить эти задачи, на носу сессия а я их еще не сдал
1. Дан массив размера N. Поменять местами его минимальный и максимальный элементы.(Нужно чтобы был виден массив до обмена и после)
2. Описать функцию Sign(X) целого типа, возвращающий для вещественного числа Х следующие значения:
-1, если х<0 0, если x=0 1, если x>0
С помощью этой функции найти значения выражения Sign(A)+Sign(B) для данных вещественных чисел A и B
3. Дана матрица MxN. Зеркально отразить ее элементы относительно горизонтаьлной оси симетрии матрицы(при этом поменчть местами строки с номерами 1 и М, 2 и М-1 и т.д.
4. Дано целое число К и текстовый файл. Удалить из файла абзац с номером К(абзацы отделяются друг от друга одной или несколькими пустыми строками). Пустые строки, пустые строки предшествующие и следующие за удаленным абзацем не удалять. Если абзац с данным номером отсутствует, то оставить файл без изменения
5. Изобразить дугу и катающийся в ней шарик...дуга находится вертикально(насчет дуги я не уверен там может быть просто шарик катающийся по дуге изобразить надо)
Kasim вне форума   Ответить с цитированием
Старый 21.12.2006, 19:04   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Вообще, для начала предлагаю тебе почитать правила раздела Помощь студентам. Он придназначен как раз вот для таких сообщений. И после того как ты это сделаешь, я могу предложить тебе решить "просто так" одну задачу на выбор. Решай что для тебя важнее. Кстати, Virtson, хорошая идея...
AVer вне форума   Ответить с цитированием
Старый 21.12.2006, 21:29   #3
Kasim
 
Регистрация: 20.12.2006
Сообщений: 5
По умолчанию

Цитата:
Сообщение от AVer Посмотреть сообщение
Вообще, для начала предлагаю тебе почитать правила раздела Помощь студентам. Он придназначен как раз вот для таких сообщений. И после того как ты это сделаешь, я могу предложить тебе решить "просто так" одну задачу на выбор. Решай что для тебя важнее. Кстати, Virtson, хорошая идея...
Прочитал. А насчет одной задачи "просто так" хорошо было бы 4 задачу или 5...
Kasim вне форума   Ответить с цитированием
Старый 21.12.2006, 22:29   #4
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Я так прикинул, что пятая задача посложнее будет, и решил ее:
Код:
Uses Graph, Crt;
Type Storona = (Left, Right);

Var Stor:Storona;
    Var gd,gm:integer;

Procedure Shar(YMax:integer);
Var X,Y:integer;
begin
X:=0;
Y:=0;
Stor:=Right;
repeat
ClrScr;
If Y>=YMax then
 if Stor=Left then
 Stor:=Right else
 Stor:=Left;
SetColor(15);
Circle(X+320,Y+100,10);
if Stor=Right then
X:=X+1 else X:=X-1;
Y:=X*X;
Delay(4800);
until keypressed;
end;

begin
InitGraph(gd,gm,'');
Shar(300);
end.
AVer вне форума   Ответить с цитированием
Старый 22.12.2006, 09:23   #5
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
Подмигивание

Цитата:
Сообщение от AVer Посмотреть сообщение
Repeat
If Y>=YMax then
if Stor=Left then
Stor:=Right else
Stor:=Left;
...
if Stor=Right then
X:=X+1 else X:=X-1;
Y:=X*X;
...
[/CODE]
->
Код:
dx:= 1;
Repeat
If Y>=YMax then
dx:= -dx;
X:=X+dx;
Y:=X*X; 
...
Virtson вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две простые задачи по Fortran Walk_Al0ne Помощь студентам 7 25.06.2008 21:34
Задачи по паскалю Agent[PNZ] Помощь студентам 10 22.11.2007 22:45
ЗАДАЧИ НА DELPHI С ВИДУ ПРОСТЫЕ Алексей_10_11 Помощь студентам 2 12.11.2007 18:50
Задачи по Паскалю MissLove Помощь студентам 15 24.07.2007 11:20


05:42.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.