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

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы
Старый 26.02.2009, 19:27   #1
Corleon4ik
 
Регистрация: 26.02.2009
Сообщений: 4
Восклицание Помогите Как можно быстрее пож.

Я вообще не силён в паскале и ничего в нём не понимаю хоть уже месяца 2 за ним сижу((( можете помоч сделать 2 задания пож. я эт вообще не понял как... заранее большое большое спасиб
Вот задание :
1.
Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции в точках x, x+n, x–n.
Протокол работы программы:
x= 0.5
n= 1
f(0.5)= 4.500
f(1.5)= -3.833
f(-0.5)= -3.167

2
Составьте процедуру, выводящую представленную фигуру по заданным:
• координатам центра фигуры;
• размеру минимальной единицы фигуры;
• цвету линии.
Выведите на экран несколько таких фигур разного размера и цвета.
Форму фигуры задайте по образцу:


ЗАранее БОЛЬШОЕ СПАСИБ
Corleon4ik вне форума   Ответить с цитированием
Старый 26.02.2009, 19:49   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Первая

Код:
var x,n:real;

function Fun(i:real):real;
var res:real;
begin
fun:=(1/i)+(3*i-sqr(i))/(1-i);
end;

begin
write('X=');
readln(x);
write('n=');
readln(n);
writeln('f(',x-n:5:3,')=',fun(x-n):7:4);
writeln('f(',x+n:5:3,')=',fun(x+n):7:4);
writeln('f(',x:5:3,')=',fun(x):7:4);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума   Ответить с цитированием
Старый 26.02.2009, 19:53   #3
Corleon4ik
 
Регистрация: 26.02.2009
Сообщений: 4
По умолчанию

Спасиб большое... помоги с остальными пож у меня завтро экзамен по паскалю
Corleon4ik вне форума   Ответить с цитированием
Старый 26.02.2009, 20:04   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Вторая:
Код:
uses crt,graph;
var
d,m : integer;

procedure ris(x0,y0,sz : integer; cl : word);

 begin

 SetColor(cl);
 circle(x0,y0-sz,sz);
 line(x0,y0,x0,y0+sz);
 line(x0,y0,x0-sz,y0+sz);
 line(x0,y0,x0+sz,y0+sz);
 line(x0,y0+sz,x0-sz,y0+3*sz);
 line(x0,y0+sz,x0+sz,y0+3*sz);
 end;

begin
clrscr;
d := detect;
initgraph(d,m,'');

ris(100,100,20,14);
ris(300,300,40,7);

readln;
closegraph;
end.
Цитата:
у меня завтро экзамен по паскалю
Если вы не можете сделать таких заданий, то как вы собираетесь его сдавать?
Sazary вне форума   Ответить с цитированием
Старый 26.02.2009, 20:08   #5
Corleon4ik
 
Регистрация: 26.02.2009
Сообщений: 4
По умолчанию

У меня сами задания на экзамен есть ... мне ещё 2 задания решить и я смогу сдать можешь написать в аську пож 378619336
Corleon4ik вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно быстрее прочитать данные Bagirli Общие вопросы Delphi 6 18.10.2008 11:31
Помогите с с++ пож. manyak Помощь студентам 1 19.04.2008 16:00
RichEdit. как можно вставлять картинку туда? как можно Скрол програмно вниз двигать? Svop Компоненты Delphi 7 28.11.2006 22:07


02:59.


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