Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2009, 14:57   #1
Samopal
Пользователь
 
Аватар для Samopal
 
Регистрация: 23.12.2008
Сообщений: 24
По умолчанию Контрольная...

Народ ай нид хэлп (.. Вообщем мну надо написать программы....:

н1.
В тексте(массиве строк) сделать замену одного слова на другое.

н2.
Опишите множество М(1..50). Сделать его пустым. Вводя целые числа с калвиатуры, заполните множество 10-ю элемантами

н3.
Составте прайс-лист магазина "обувь", включающий в себя наименование товара, страну производителя, его цену, материал, размер, рекоменджации для использования. Информацию о каждом товаре оформить в программе в виде записи. Совокупность записей объедините в массив. Составте программу которая обеспечивает ввод полученой информации, распечатку её в виде таблицы. Выведите на экран меню, а затем информацию о товаре в зависимости от запроса покупателя.

н4.
Построить график функции (используя модуль "GRAPH")
Функция: y=(x^2+1)/x;

Кто что может если не лень...
www.mybrest.net
Samopal вне форума Ответить с цитированием
Старый 09.04.2009, 14:59   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
В тексте(массиве строк) сделать замену одного слова на другое.
Код:
var a:array[1..100] of string;i:byte;
begin
 for i:=1 to 100 do if a[i]='строка' then a[i]:='Новая строка';
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.04.2009, 19:21   #3
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

4)
Код:
program schedule1;
{$N+}
uses graph;
const
 fl=false; {Проверка на точку 0, функция в которой неопределена}
type
 ff = function (x : extended) : extended;
var
 gd,gm : integer;
 {$F+}
 function f1(x:extended):extended;
 begin
   f1:=(x*x+1)/x
 end;
 {$F-}
 procedure cooplane;
 var
  x0,y0 : integer;
  x,dx,y,dy : integer;
  i : shortint;
  s : string[4];
 begin
   x0:=round(getmaxx/2);
   y0:=round(getmaxy/2);
   setcolor(red);
   line(x0,0,x0,getmaxy);
   line(0,y0,getmaxx,y0);
   dx:=round(getmaxx/20);
   dy:=round(getmaxy/20);
   x:=dx;
   y:=dy;
   setcolor(white);
   settextstyle(0,0,1);
   i:=9;
   while (x<=getmaxx) and (y<=getmaxy) do
   begin
     str(i,s);
     if x<>x0 then
     begin
       line(x,y0+2,x,y0-2);
       outtextxy(x,y0+4,s);
     end;
     if y<>y0 then
     begin
       line(x0+2,y,x0-2,y);
       outtextxy(x0+4,y,s);
     end;
     inc(x,dx);
     inc(y,dy);
     dec(i)
   end;
   outtextxy(x0+4,y0+4,'0');
 end;
 procedure schedule(f:ff; flag : boolean);
 var
  x0,y0 : integer;
  x,dx,y,dy : integer;
  x1,y1,x2,y2 : integer;
  xr,yr : extended;
 begin
   x0:=round(getmaxx/2);
   y0:=round(getmaxy/2);
   dx:=round(getmaxx/20);
   dy:=round(getmaxy/20);
   xr:=-10;
   yr:=f(xr);
   x2:=x0+round(dx*xr);
   y2:=y0-round(dy*yr);
   setcolor(green);
   while xr<=10 do
   begin
     if flag then yr:=f(xr)
             else if (xr<>0) then yr:=f(xr);
     x1:=x0+round(dx*xr);
     y1:=y0-round(dy*yr);
     if flag then line(x1,y1,x2,y2)
             else if (x1<>x0) and (y1<>y0) and (x2<>x0) and (y2<>y0) then line(x1,y1,x2,y2);
     x2:=x1; y2:=y1;
     xr:=xr+0.25;
   end;
 end;
begin
  gd:=detect;
  initgraph(gd,gm,'egavga.bgi');
  cooplane;
  schedule(f1,fl);
  readln
end.

Последний раз редактировалось capta1n; 09.04.2009 в 20:02.
capta1n вне форума Ответить с цитированием
Старый 11.04.2009, 18:55   #4
Samopal
Пользователь
 
Аватар для Samopal
 
Регистрация: 23.12.2008
Сообщений: 24
По умолчанию

Код:
type
 ff = function (x : extended) : extended;
 
{$F+}
 
function f1(x:extended):extended;
 begin
   f1:=(x*x+1)/x
 end;

 {$F-}
скажите в чём смысл использования

{$F+}
{$F-}

и для чего этот тип ff ???
www.mybrest.net
Samopal вне форума Ответить с цитированием
Старый 11.04.2009, 21:21   #5
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

{$F+}{$F-} директивы компилятора для дальнего использования функции - по умолчанию паскаль использует ближний вызов функции. Дальний вызов нужен всегда, когда описываешь процедурный тип, а тип ff очень удобно использовать
capta1n вне форума Ответить с цитированием
Старый 12.04.2009, 11:02   #6
Samopal
Пользователь
 
Аватар для Samopal
 
Регистрация: 23.12.2008
Сообщений: 24
По умолчанию

Сэнкю вери матч!
www.mybrest.net
Samopal вне форума Ответить с цитированием
Старый 12.04.2009, 15:20   #7
Samopal
Пользователь
 
Аватар для Samopal
 
Регистрация: 23.12.2008
Сообщений: 24
По умолчанию

н4 и н2 готово...

н1 Как из строки(как из одного элемента массива) найти слово и заменить его на другое?

потому что если делать так как сказал Stilet то заменяться будет целая строка.. а мне надо только одно слово в этой строке....
www.mybrest.net
Samopal вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна контрольная на delphi lolo94 Помощь студентам 22 31.01.2009 17:24
КОНТРОЛЬНАЯ в ТУРБО ПАСКАЛЕ Кома Паскаль, Turbo Pascal, PascalABC.NET 7 30.09.2008 01:14
Контрольная работа на Delphi Desc Фриланс 2 23.04.2008 15:34
контрольная сумма мандарин Помощь студентам 3 03.06.2007 19:35