Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Куратор(ы):   Lord_of_Darkness   



Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 42 из 50 • <  1 ... 39  40  41  42  43  44  45 ... 50  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  overover
Прилепленное (важное) сообщение

Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прежде чем задать вопрос, воспользуйтесь учебником


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь
Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36
Реклама

Партнер
  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
overrr писал(а):
думаю, надо как-то через div делать, при этом включая счетчик, а в конце вывести показания этого счетчика, это и будет количеством цифр.
Угу.
1. cnt:=1, a:=abs(a)
2. Если a>=p, то переход к 3., иначе переход к 5.
3. cnt:=cnt+1
4. a:= a div p
5. Вывод cnt
  Whistler-X

Member
Статус: Не в сети
Регистрация: 14.01.2008
Можно настроить Free Pascal так, чтоб работал в полножэкранном режиме? ОСь Windows 7 :-) Еще немного не в тему, но как я понял Delphi = Pascal (полное соответствие), только с наворотами для создания GUI?
  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Whistler-X писал(а):
Можно настроить Free Pascal так, чтоб работал в полножэкранном режиме?

Alt+Enter
Whistler-X писал(а):
как я понял Delphi = Pascal (полное соответствие), только с наворотами для создания GUI?

нет, Delphi - это IDE, использующее язык программирования object pascal, который является очень существенно расширенным языком pascal, хотя и содержит в себе обыкновенный pascal как подмножество. (ситуация аналогична c++ и c, соответственно)

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  Whistler-X

Member
Статус: Не в сети
Регистрация: 14.01.2008
Lord_of_Darkness
Ну Alt Enter это переход в полноэкранку, да вот ругается что This system doesn't support fullscreen mode..

Добавлено спустя 37 секунд:
Lord_of_Darkness
А вообще какую библиотеку надо юзать чтоб можно было использовать окна и т.п.?
  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Whistler-X писал(а):
да вот ругается что This system doesn't support fullscreen mode..

значит никак, ибо плохо с этим у висты и 7-ки. Можно под виртуальной машиной DOS поставить с паскалем, будет работать намного лучше.

Whistler-X писал(а):
А вообще какую библиотеку надо юзать чтоб можно было использовать окна и т.п.?

где? В паскале или в Delphi? В Borland/Turbo/Free Pascal с этим весьма проблематично, а в дельфе есть VCL и там все на порядок проще.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  Whistler-X

Member
Статус: Не в сети
Регистрация: 14.01.2008
Lord_of_Darkness
А в Delphi можно писать на обычном (не Object) Паскале?
  Any1

Member
Статус: Не в сети
Регистрация: 24.06.2008
Whistler-X писал(а):
А в Delphi можно писать на обычном (не Object) Паскале?

Object Pascal - это объектное расширение обычного паскаля. Не хотите пользоваться объектными возможностями - не надо: открываете Console Application Project - и вперед. А вот с окнами проблема - VCL реализована в виде объектной иерархии, поэтому, чтобы применять ее, нужно иметь хотя бы поверхностное представление об объектном программировании
  fos1k

Member
Статус: Не в сети
Регистрация: 19.01.2009
Парни нужна помощь по задачке на массивы (Turbo Pascal 7.0)

Вообщем условие такое
Мы задаем двухмерный массив по строке, т.е сначала элемент A[1,1] затем A[1,2] A[1,3] и тд
===============================
например

1 2 3
4 5 6

i=2 (строки)
j=3 (столбцы)
================================

и программа должна нам выдать элементы по столбцу, т.е как бы перевернуть(транспонировать) матрицу

Должно быть следующим образом
Код:
1 столбец: 1 4
2 столбец: 2 5
3 столбец: 3 6


Вот то что у меня получилось

Код:
Program lab2_v5;
uses crt;
var E:array [1..2,1..3] of word;
i,j:integer;
begin
clrscr;
writeln('Obrabotka Massiva');
writeln('Avtor: Hudyakov A.');
writeln('Vvod no strokam:');
For i:=1 to 2 do
For j:=1 to 3 do
begin
write('E[',i,',',j,']=');
readln(E[i,j]);
end;

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

Код:
writeln('Vivod no ctolbcam:');
for i:=1 to 3 do
writeln(i,' ctolbec: ');
for j:=1 to 2 do
writeln(E[i,j]);
readln;
end.


но должного эффекта не наблюдается((

что не так? Пожалуйста, подскажите кто знает
  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
Код:
writeln('Vivod no ctolbcam:');
for i:=1 to 3 do
---> begin
writeln(i,' ctolbec: ');
for j:=1 to 2 do
{writeln(E[i,j]);} ---> writeln(E[j,i]);
---> end;
readln;
end.
  fos1k

Member
Статус: Не в сети
Регистрация: 19.01.2009
Спасибо работает!
только вот он ответ выдает в виде
Код:
1 столбец:
1
4
2 столбец:
2
5
3 столбец:
3
6


Можно ли как то сделать, чтоб он ответ выдавал в том виде как я написал выше?
я чет потыркался щас с write\writeln в выводе, но как надо у меня все равно не получается..(
  (1)player

Member
Статус: Не в сети
Регистрация: 19.10.2008
fos1k
for k:=1 to i do
begin
for kk:=1 to j-1 do
write(E[k,kk]',')
writeln(E[k,j])
end;

_________________
Core i3 2120/Deepcool Gamma Blade @FAN off/Gigabyte GA-P75-D3/4x2Gb Samsung ori/MSI N450GTS-MD1GD5/Palit GT440 MD1GD3 LP passive

  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
fos1k писал(а):
Можно ли как то сделать, чтоб он ответ выдавал в том виде как я написал выше?
(1)player указал вариант с мелкими опечатками. А для учебного задания можно и так написать:
Код:
writeln('Vivod no ctolbcam:');
for i:=1 to 3 do
   begin
       write(i,' ctolbec:  ');
       for j:=1 to 2 do
          write(E[j,i],'  ');
       writeln;
  end;
readln;
end.
  fos1k

Member
Статус: Не в сети
Регистрация: 19.01.2009
maco
спасибо большое! )
  SKY-LOST

Member
Статус: Не в сети
Регистрация: 24.04.2008
Всем добрый вечер!

Есть задание:
Цитата:
Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы на 3 %. Составьте программу расчета суммы денег, которую необходимо единовременно попросить у родителей, чтобы можно было прожить учебный год (10 месяцев), используя только эти деньги и стипендию.


Мозг сегодня какойто атрофированный :?:
с горем пополам написал код:
Код:
program Rashodu;
var
step,ras,summa,ras1,ras2:real;
i:integer;

begin

write ('vvedite razmer stependii:');
readln (step);
write ('vvedite razmer rashodov:');
readln (ras);
 ras2:=ras;
for i:=1 to 10 do
    begin

       ras1:=ras/100*3;
       ras:=ras1+ras2;
       summa:=summa+ras;


      writeln(summa:7:2)
    end;
    writeln('Neobhodimay summa:',summa:7:2);

readln

end.

Все не как не мог сообразить как же накапливать расход каждого месяца и при этом от этого же числа процент считать (((

ну в общем теперь не могу сообразить хоть убей, как сделать так чтобы от первого месяца процент не считался :(

подскажите как сделать, и еще если я очень некрасиво написал код если возможно проще, прошу объяснить.
  R73

Member
Статус: Не в сети
Регистрация: 25.01.2008
Откуда: СПб
SKY-LOST писал(а):
ну в общем теперь не могу сообразить хоть убей, как сделать так чтобы от первого месяца процент не считался :(

Код:
if i>1 then ras1:=ras/100*3 else ras1:=0;

Так пойдет?

_________________
*AMD OverClan*

  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
A=....
B=....
q=1,03
n=10
S=B*[(q^n)-1]/[q-1] - n*A
  R73

Member
Статус: Не в сети
Регистрация: 25.01.2008
Откуда: СПб
maco :up: Мастер!
Сумма n первых членов геометрической прогрессии:
#77

_________________
*AMD OverClan*

  SKY-LOST

Member
Статус: Не в сети
Регистрация: 24.04.2008
R73 писал(а):
SKY-LOST писал(а):
ну в общем теперь не могу сообразить хоть убей, как сделать так чтобы от первого месяца процент не считался :(

Код:
if i>1 then ras1:=ras/100*3 else ras1:=0;

Так пойдет?

Вобщем все равно не совпадает с тем что должно получится, в лабораторной работе дано задание и скрин с уже выполненной программы и преподаватель проверяет по нему вводя те же значения. Так вот приходится догадываться что там выполнено и как выполнить аналогично!

В прошлой лабораторной (тогда моск не был атрофирован после :beer:) оказалось что в итоге скрин не соответствовал заданию пришлось преподавателю это долго объяснять :-)

Скрин из лабораторной работы: http://pic.ipicture.ru/uploads/091122/HqOuY58g8p.jpg
Скрин: http://pic.ipicture.ru/uploads/091122/qW52jb1gxi.jpg

Так вот меня интересует либо скрин не соответствует заданию либо что неправильно? мой моск отказывается думать :weep:

В заранее всем благодарен за помощь!!!

А также поясните вот эту запись:
Код:
A=....
B=....
q=1,03
n=10
S=B*[(q^n)-1]/[q-1] - n*A

а также что значат квадратные скобки?
  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
SKY-LOST писал(а):
что значат квадратные скобки?
Обычные скобки, не более того. Только для отличия от круглых скобок - для визуального разделения фрагментов формулы.
А относительно проверки - никто не запрещает ручками подсчитать :). Кстати, в задании не сказано о том, как изменяется стипендия при росте цен :).
  R73

Member
Статус: Не в сети
Регистрация: 25.01.2008
Откуда: СПб
Судя по скрину процент считается как раз с первого месяца
Извиняюсь, что на Delphi, Pascal'я нету :oops:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math, Classes;

var A,B,S,q: real;
    cnt,n: integer;
begin
  Write('Vvedite stipendiu:');
  Readln(A);
  Write('Vvedite rashodi:');
  Readln(B);

  Writeln('Variant 1:');//Через геометрическую прогрессию
  n := 10;
  q := 1.03;
  S:=B*q*(Power(q,n)-1)/(q-1)-n*A;
  Writeln('S='+FloatToStr(S));

  Writeln('Variant 2:');//По тупому
  S:=0;
  for cnt:=1 to 10 do begin
    S := S + B*Power(q,cnt);
    Writeln(FloatToStr(S));
  end;
  S:=S-A*n; //Вычитаем доход
  Writeln('S='+FloatToStr(S));
  ReadLn;
end.

Результат: http://images.people.overclockers.ru/189561.png

_________________
*AMD OverClan*

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 42 из 50 • <  1 ... 39  40  41  42  43  44  45 ... 50  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan