Языку программирования BASIC 60 лет

61

И правда. Слона то я и не заметил.

> Они хотели создать простой в использовании язык программирования для студентов-нематематиков

Для гуманитариев, штоле? Клим Жуков на бейсике ролики в Ютуб снимает до сих пор???

GoTo 10

> Уж лучше васик чем этот уебищный язык1С. От одного "ИспользоватьВладельца" тошнит, а уж "КонецЕсли" отбивает всякую охоту что-то кодить

[Наглоговорящие смотрят в код Басика и смотрят на тебя с недоумением]

Начинал с него. На спектруме 36 лет назад.
А, нет, вру. На калькуляторе МК-72 начинал годом раньше.

мой первый басик был на ПК Сура2000, потом спеси. потом басик ушел в дельфи на писи (или эт был паскаль уже).

Да, для наглоговорящих любой ЯП по читаемости как наш православный 1С )) В той же java тоже можно на кириллице писать, но это особая форма извращения получается )

Кто сказал что не заставляли? Универ окончил если что в 2007 году, специальность "вычислительные машины, комплексы системы и сети", каких я только схем за пять лет учёбы не нарисовался ))

Есть такое. Но ещё вот BPMN схемы активно использую, крутая вещь всё таки, для описания практически всего повседневного подходит, от работы какого-нибудь отдела до оркестрации микросервисов.

P.S. Интересно, сейчас в универах студентов не знакомят с BPM?

Без понятия. Сам окончил в 2008.

> на ПК Сура2000,

Пейсатый компьютер кипа2000?

То есть я русские буквы по привычке прочитал как латинские. Прикольно.

Интересно, как бы я прочитал, напиши ты не ПК, а "ПЭВМ".

ну я и так старался всё кириллицей написать, чтоб лишний раз раскладку не переключать.

> Уж лучше васик чем этот уебищный язык1С. От одного "ИспользоватьВладельца" тошнит, а уж "КонецЕсли" отбивает всякую охоту что-то кодить.

этот уебищный язык очень похож на Object Pascal (Delphi), разве что Паскаль более универсален и формален.

в 1С

Процедура СуммаЧисел(ДоЧисла)
Перем Сумма;
Сумма = 0;

Для Число = 1 По ДоЧисла Цикл
Сумма = Сумма + Число;
КонецЦикла;

Сообщить("Сумма чисел от 1 до " + ДоЧисла + " равна " + Сумма);
КонецПроцедуры

На Паскале -

procedure SumUpTo(N: Integer);
var
Sum, I: Integer;
begin
Sum := 0;
for I := 1 to N do
Sum := Sum + I;

ShowMessage('Сумма чисел от 1 до ' + IntToStr(N) + ' равна ' + IntToStr(Sum));
end;

Ну и если у тебя прям аллергия на русский, пиши на английском синтаксисе, тебе никто не запрещает:

Procedure CalculateSum(ToNumber)
Var Sum;
Sum = 0;

For Number = 1 To ToNumber Do
Sum = Sum + Number;
EndDo;

Message("The sum of numbers from 1 to " + ToNumber + " is " + Sum);
EndProcedure


Вообще зря слона ругаешь. Хорошее программирование в 1с у нас это всегда хлеб. Даже с маслом.

а бейсик хоть и тормозной, но прикольный и понятный. Мне после программирования в кодах на калькуляторе МК61 программирование на бейсике очень понравилось. Кодил на нем на БК 0010 и на калькуляторе MK85

Обычный язык. Или тебя русский возмущает? EndIf не возмущает?