Все

POFIGISST · 2011.11.22 15:48

написал самую простую прогу на паскале для подсчета суммы a и b,весь код с комами сделал,код сюда выложу,может что-то не так сделал или есть вариант сделать код лучше,то подскажут кто нить)))

Код:

1
2
3
4
5
6
7
8
9
10
11
12

program summa_ab;

uses crt;

var a,b,rezult: integer; {Задаем имена переменных и определяем тип с которым будем работать}

BEGIN

clrscr; {Очистка экрана от гадости}

a : = 3; {Задали значение переменной a}

b : = 5; {Задали значение переменной b}

rezult : = a+b; {Выполняем действие(сумма)}

write (rezult); {Вывод на экран переменной rezult}

readln; {Задержка экрана}

END.

Отредактировано POFIGISST (2011.11.22 16:04)

tipsun · 2011.11.22 18:08

TLENS написал:
tipsun Ну на этот вопрос тебе каждый ответит по своему (каждый хвалит свое болото)
Смотря для чего надо.
Ну а так самый популярный это C/C++ или очень хорош объектно ориентирован C# для графических программ.
Я например сейчас учу с нуля чистый Си. Хочешь давай вместе учить и ничего сложного там нет, я за вчера закончил первую главу сегодня думаю вторую изучить.
Ниже книга автора языка в chm формате. Автор очень внятно объясняет. + на каждый урок задачки.

Премного благодарен smile

POFIGISST · 2011.11.22 19:49

накатал простенькую программку по нахождению среднего трех чисел,вот сюда её выкину так как это моя первая программка после некоторого перерыва)

Вложения

srednee.zip

tipsun · 2011.11.22 23:39

Работает smile

POFIGISST · 2011.11.22 23:49

tipsun
если над,могу исходних выложить smile

tipsun · 2011.11.22 23:58

Выложи, если не трудно. Интересно как там вводятся значения. smile

POFIGISST · 2011.11.23 00:19

tipsun
Вот весь код проги)

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

program srednee;

uses srt;

var a,b,c : integer;

sum : real;

BEGIN

clrscr;

write('Введите первое число'); readln (a);

write('Введите второе число'); readln (b);

write('Введите третье число'); readln (c);

sum := a+b+c;

sum := sum/3;

write ('Среднее арифмитическое чисел',a,',',b,',',c,' равно',sum :5:2);

readln;

END.

TLENS · 2011.11.23 06:54

Gemorroj написал:

кстати, известная штука, могут на собеседованиях спрашивать, как поменять 2 переменные местами, не использую 3 переменную.
Код:
1
$sort[$i] ^= $sort[$n] ^= $sort[$i] ^= $sort[$n];

Заумная вещь. Только понял как оно работает.
...Учу побитовые операторы))

POFIGISST · 2011.11.23 11:40

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

tipsun · 2011.11.23 12:39

Я наверно снова попытаюсь Ubuntu поставить.
В этот раз немного почитаю в инете "ЧАВО".

Отредактировано tipsun (2011.11.23 12:57)

WAP Мастер Форум

#821 2011.11.22 15:48

Re: скучно епт...

Код:

#822 2011.11.22 18:08

Re: скучно епт...

TLENS написал:

#823 2011.11.22 19:49

Re: скучно епт...

#824 2011.11.22 23:39

Re: скучно епт...

#825 2011.11.22 23:49

Re: скучно епт...

#826 2011.11.22 23:58

Re: скучно епт...

#827 2011.11.23 00:19

Re: скучно епт...

Код:

#828 2011.11.23 06:54

Re: скучно епт...

Gemorroj написал:

Код:

#829 2011.11.23 11:40

Re: скучно епт...

#830 2011.11.23 12:39

Re: скучно епт...

Дополнительно