DF2 :: ФОРУМЫ > Pascal ABC

Помощь - Поиск - Пользователи - Календарь

Полная версия этой страницы: Pascal ABC

DF2 :: ФОРУМЫ > Основные форумы > Софт и железо > Программирование / Coding

t800

12 Nov 2016, 19:49

Прошли каникулы, теперь вторая четверть, и учитель по информатике теперь настроен серьёзно: был урок программирования на Pascal ABC. Писали мы на уроке программу Summa, и я как домашку, написал программу Kalkulator (Kakul for Pascal =).gif

). Как видно из названия в скобках, это вариация Kakul`a на C++, который я писал ранее. Только на версии для Pascal ABC мой Kakul обрёл графическую форму, в которой фоном служит очень красивая картинка

Вот, в общем, видео с уроком програмирования для новичков :

А вот и код Kakul'a измененный для Pascal ABC

Код

procedure Form1.button1_Click(sender: Object; e: EventArgs);

var a,b,c: real;
var message: string;

begin

a:= Convert.ToDouble(numericupdown1.Value);
b:= Convert.ToDouble(numericupdown2.Value);
writeln ('ввод a = ',a);
writeln ('ввод b = ',b);

// Сумма
if (ComboBox1.SelectedItem.ToString = '+') then  writeln ('Выбрано действие ',ComboBox1.SelectedItem);
if (ComboBox1.SelectedItem.ToString = '+') then c:=a+b;
if (ComboBox1.SelectedItem.ToString = '+') then message := 'Действие a+b = ';

// Разность
if (ComboBox1.SelectedItem.ToString = '-') then  writeln ('Выбрано действие ',ComboBox1.SelectedItem);
if (ComboBox1.SelectedItem.ToString = '-') then c:=a-b;
if (ComboBox1.SelectedItem.ToString = '-') then message := 'Действие a-b = ';

// Произведение
if (ComboBox1.SelectedItem.ToString = '*') then  writeln ('Выбрано действие ',ComboBox1.SelectedItem);
if (ComboBox1.SelectedItem.ToString = '*') then c:=a*b;
if (ComboBox1.SelectedItem.ToString = '*') then message := 'Действие a*b = ';

// Частное
if (ComboBox1.SelectedItem.ToString = '/') then  writeln ('Выбрано действие ',ComboBox1.SelectedItem);
if (ComboBox1.SelectedItem.ToString = '/') then c:=a/b;
if (ComboBox1.SelectedItem.ToString = '/') then message := 'Действие a/b = ';

writeln (message,c);
richTextBox1.text := message;
richTextBox1.AppendText(FloatToStr(c));

end;

А это весь проект на Pascal ABC в архиве

izrukvruki

12 Nov 2016, 22:55

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

t800

13 Nov 2016, 08:48

Цитата(izrukvruki @ 13 Nov 2016, 01:55)

Пока преподают только Pascal ABC. Потом, может быть, и C++, но сейчас Pascasl. Скачать IDE для работы можно тут

Хотя мне С++ как-то больше нравится, потому что с ним проще: можно легко нагуглить ответ на любой вопрос, поэтому если для себя то лучше чем С++ языка нет. А на Pascal приходится делать потому что в школе его преподают и приходится писать на нем, хотя на С++ оно в разы проще: во-первых не надо все время писать эти

Код

Begin
End

Во-вторых сам по себе С++ проще, вон с тем же самым Kakul-ом

Я сперва написал

Цитата

if (ComboBox1.SelectedItem.ToString = '+') then
begin
writeln ('Выбрано действие ',ComboBox1.SelectedItem);
c:=a+b;
message := 'Действие a+b = ';
end

Потому что для С++ код такой должен быть

Код

if (ComboBox1.SelectedItem.ToString == "+")
{
printf ('Выбрано действие ',ComboBox1.SelectedItem);
c=a+b;
message = 'Действие a+b = ';
}

Но оказалось что Pascal if c блоками не понимает

И пришлось для каждой строки делать свой if

Код

if (ComboBox1.SelectedItem.ToString = '+') then writeln ('Выбрано действие ',ComboBox1.SelectedItem);
if (ComboBox1.SelectedItem.ToString = '+') then c:=a+b;
if (ComboBox1.SelectedItem.ToString = '+') then message := 'Действие a+b = ';

Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.