Оценка:   - - - - -

Програмирование на PASCAL И C++


Сообщений в теме: 49

#31 User

User

    Папа cod4

  • Пропользователь
  • PipPipPipPipPip
  • 707 сообщений

Отправлено 26 октября 2008 - 11:21

ну и что все молчат?!!??!!?......

Да все просто, потому что не кто не чего и не пишет вот и молчат)))
хех ну вот и нашли...

#32 bar5

bar5

    Участник форума

  • Пропользователь
  • PipPipPipPip
  • 201 сообщений

Отправлено 28 ноября 2008 - 18:24

Все кто умеет работоть на этих языках, пишите или задавайте вопросы Вместе подумаем :)


а для начинающих помощь найдется? мне нужно создать в Visial C браузер, графический редактор и часы со стрелками там, секундами. но я не знаю с чего начинать. может подскажете, где можно найти инфу для этого всего?

и еще вопрос, если я напишу задачи в Pascal-е, а потом перевиду их в ассемблер (т.к. его я не знаю), результат в ассемблере будет тот же? стоит попробывать?
"Нет религии выше Истины". Е. П. Блаватская

#33 Kai

Kai

    Гуру

  • Пропользователь
  • 3 235 сообщений

Отправлено 28 ноября 2008 - 18:50

а для начинающих помощь найдется? мне нужно создать в Visial C браузер, графический редактор и часы со стрелками там, секундами. но я не знаю с чего начинать. может подскажете, где можно найти инфу для этого всего?

Интернет :)
Кстати для начинающего браузер и графический редактор - слишком круто. Начни со стрелок или даже еще чего попроще :)

и еще вопрос, если я напишу задачи в Pascal-е, а потом перевиду их в ассемблер (т.к. его я не знаю), результат в ассемблере будет тот же? стоит попробывать?

Все языки высокого уровня компилируются в машинные коды(Паскаль, Си и т.д.). Ассемблер - это текстовое представление машинного кода.
Блог о каббале, смысле жизни и постижении мираChild of the pure unclouded browAnd dreaming eyes of wonder!

#34 PioneeR

PioneeR

    Житель форума

  • Пропользователь
  • 2 842 сообщений

Отправлено 30 ноября 2008 - 11:59

и еще вопрос, если я напишу задачи в Pascal-е, а потом перевиду их в ассемблер (т.к. его я не знаю), результат в ассемблере будет тот же? стоит попробывать?

Что то вопрос н не совсем понятен, если ты имеешь ввиду что код написаный на паскале тупо вставить в асемблер..... то при запуске программы, работать не будет 100%.

Сообщение отредактировал PioneeR: 30 ноября 2008 - 12:03


#35 bar5

bar5

    Участник форума

  • Пропользователь
  • PipPipPipPip
  • 201 сообщений

Отправлено 02 декабря 2008 - 21:28

[quote name='Kai' date='28.11.2008, 17:50' post='401972']
Интернет :)
Кстати для начинающего браузер и графический редактор - слишком круто. Начни со стрелок или даже еще чего попроще :)


ну круто, не круто, а к сессии здать надо. я и хочу начать с часов, только вот необходимую литру найти не могу. поэтому и пишу сюда. ладно, что-нить да зделаем.
"Нет религии выше Истины". Е. П. Блаватская

#36 FiNo

FiNo

    ExtrimaL

  • Пропользователь
  • 1 213 сообщений

Отправлено 01 мая 2010 - 16:46

Если есть кто шарит в паскале, с массивами в частности помогите не могу сделать ума не хватает...
6 лабараторная в файле что я прикрепил.

Прикрепленные файлы

  • Прикрепленный файл  лаб практ по информ.doc   783К   Количество загрузок: 11

Сообщение отредактировал FiNo: 01 мая 2010 - 16:48

Богат не тот у кого больше,а тот кто нуждается в меньшем...

#37 V2g6cH4

V2g6cH4

    Активный участник

  • Пропользователь
  • PipPipPipPipPip
  • 675 сообщений

Отправлено 01 мая 2010 - 17:17

Вариант скажи.
Ты кста в городе учишсо или переехал куда?
На месте некоторых я бы поражался даже мудрости и уму стиральной машины.... :DDDD

#38 FiNo

FiNo

    ExtrimaL

  • Пропользователь
  • 1 213 сообщений

Отправлено 01 мая 2010 - 21:11

Вариант скажи.
Ты кста в городе учишсо или переехал куда?

Привет Валера)
вариант 7
Я приехал.сам не учусь работаю а это Жены задание)помоги если можеш буду благодарен
Богат не тот у кого больше,а тот кто нуждается в меньшем...

#39 User

User

    Папа cod4

  • Пропользователь
  • PipPipPipPipPip
  • 707 сообщений

Отправлено 01 мая 2010 - 22:34

Да вроде не чего сложного тут нет, обычный одномерный цикл, задал начальное значение a(начало цикла) значение b(конец цикла), шаг, и уже выполняешь все действия, один цикл для того чтобы найти y(i) второй цикл чтобы найти среднее, еше один чтобы найти минимум и максимум, ну попутно еше в файл записать. В обшем говори что не можеш показывай код, подскажем.
хех ну вот и нашли...

#40 FiNo

FiNo

    ExtrimaL

  • Пропользователь
  • 1 213 сообщений

Отправлено 02 мая 2010 - 19:29

Я не программист и нелюблю это дело.непонимаю зачем экономистам это.
если можеш помоч сделай буду блогадарен
Богат не тот у кого больше,а тот кто нуждается в меньшем...

#41 Алина

Алина

    Гость

  • Пропользователь
  • PipPip
  • 44 сообщений

Отправлено 21 августа 2010 - 13:39

Нажимаю программу на запуск и выдает....:
Безымянный.jpg
Я знаю, что я ничего не знаю. Но я хочу знать. © Сократ

#42 Visigoth

Visigoth

    Активный участник

  • Пропользователь
  • PipPipPipPipPip
  • 501 сообщений

Отправлено 21 августа 2010 - 13:47

Нажимаю программу на запуск и выдает....:
Безымянный.jpg

разархивируй и запусти "INSTALL.EXE"
Прикрепленный файл  Turbo Pascal 7.0.rar   1,94МБ   Количество загрузок: 7


#43 Алина

Алина

    Гость

  • Пропользователь
  • PipPip
  • 44 сообщений

Отправлено 21 августа 2010 - 15:20

разархивируй и запусти "INSTALL.EXE"
Прикрепленный файл  Turbo Pascal 7.0.rar   1,94МБ   Количество загрузок: 7

все равно не пропадает. Но хотя бы уже печатается и решается=)
Я знаю, что я ничего не знаю. Но я хочу знать. © Сократ

#44 RaSH

RaSH

    Участник форума

  • Пропользователь
  • PipPipPipPip
  • 232 сообщений

Отправлено 21 декабря 2010 - 02:05

помогите пожалуйста: 1)Элементы массива А(N) упорядочены: A(1)<А(2)<...<A(N). Определить номер К такой, чтобы для заданного числа К выполнялось условие: Ак<Х<Ак+1 Если нет такого номера, напечатать: "НЕТ".
2)Определить, каким по порядку символом с начала текста является вторая запятая
3)Даны массивы А(N) и В(М). Выбрать из них элементы, принадлежащие отрезку [х,у]. Из выбранных чисел образовать новый массив.
заранее благодарен...

#45 V2g6cH4

V2g6cH4

    Активный участник

  • Пропользователь
  • PipPipPipPipPip
  • 675 сообщений

Отправлено 21 декабря 2010 - 11:05

На кого учишся?
На месте некоторых я бы поражался даже мудрости и уму стиральной машины.... :DDDD

#46 RaSH

RaSH

    Участник форума

  • Пропользователь
  • PipPipPipPip
  • 232 сообщений

Отправлено 21 декабря 2010 - 17:01

На кого учишся?

так то на энергетика, но дают подобную шляпу (

#47 User

User

    Папа cod4

  • Пропользователь
  • PipPipPipPipPip
  • 707 сообщений

Отправлено 22 декабря 2010 - 23:26

Даны массивы А(N) и В(М). Выбрать из них элементы, принадлежащие отрезку [х,у]. Из выбранных чисел образовать новый массив.


Const
Границы  х у
x = 20;
y = 30;
Var
Массивы 3 чтука
a: array[1..10] of integer;
b: array[1..10] of integer;
c: array[1..10] of integer;
Счетчики для массивов
i,j: integer;

begin
Заполняеш масивы случайно
   for i:=1 to 10 do begin
      a[i]:=Random[100];
      b[i]:=Random[100];
   end;
А дальше проверяеш и заносиш
   j:=0;
   for i:=1 to 10 do begin
      if (a[i]>=x) and (a[i]=<y) then begin
         c[j]:=a[i];
         j:=j+1;
      end;
      if (b[i]>=x) and (b[i]=<y) then begin
         c[j]:=b[i];
         j:=j+1;
      end;
   end;
end

Сделал на скорую руку, залезать в паскаль лень, синтаксис не помню, открой учебник или хелп по паскалю, и просто сделай чтоб работала мин 20 от силы займет времени.

Определить, каким по порядку символом с начала текста является вторая запятая



Var
строка
 st: string[30];
переменные
 p,i: integer;
begin
   write('Ввод строки:');
   readln(st);
запоминаем колво символов в строке
   p:=length(st);
   i:=1;
Ишем пока не будет не одной запято и (пока длина строки больше нуля и пока колво запятых не больше двух)
   While (pos",',st <> 0) and ((length(st)>0) and i<=2) do begin
       delete(st,1,(pos",',st));
       i:=i+1;
   end;
   if (i<>2) then
     writeLn("Запятая отсутствует");
   end;
   if(i=2) then begin
     writeLn("Запятая находиться ");
     writeLn( p-length(st));  
   end;
end.

мм даж в книжку залез посмотреть функции

Сообщение отредактировал User: 22 декабря 2010 - 22:54

хех ну вот и нашли...

#48 V2g6cH4

V2g6cH4

    Активный участник

  • Пропользователь
  • PipPipPipPipPip
  • 675 сообщений

Отправлено 23 декабря 2010 - 12:07

с: array[1..10]

array[1..20] более идеологически правильно )
На месте некоторых я бы поражался даже мудрости и уму стиральной машины.... :DDDD

#49 RaSH

RaSH

    Участник форума

  • Пропользователь
  • PipPipPipPip
  • 232 сообщений

Отправлено 23 декабря 2010 - 18:07

спасибо большое

Сообщение отредактировал RaSH: 23 декабря 2010 - 18:08


#50 User

User

    Папа cod4

  • Пропользователь
  • PipPipPipPipPip
  • 707 сообщений

Отправлено 23 декабря 2010 - 22:12

Элементы массива А(N) упорядочены: A(1)<А(2)<...<A(N). Определить номер К такой, чтобы для заданного числа К выполнялось условие: Ак<Х<Ак+1 Если нет такого номера, напечатать: "НЕТ".

var 
a: array[1..10] of integer;
k,i: integer;
begin
  Write("Введите элементы масива")
  for i:=1 to 10 do begin
    Write("",i,"=");
    ReadLn(a[i]);
  end;
  k:=0;
  for i:=1 to 10-1 do begin
    if(a[i]<i) and (i<a[i+1]) then begin
      k:=i;
      Write("Номер :"i);
    end;
  end;
  if k=0 then
  Write("Номера нет");
end.

Что то типа этого
хех ну вот и нашли...



Ответить