Базовые типы данных. Ввод и вывод. Арифметические операции. (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
| Строка 25: | Строка 25: | ||
<syntaxhighlight lang="c" line> | <syntaxhighlight lang="c" line> | ||
program Test; | program Test; | ||
| + | var | ||
| + | celcius, fahrenheit: real; | ||
Begin | Begin | ||
| − | + | Writeln('Введите температуру в градусах цельсия:'); | |
| + | Readln(celcius); | ||
var fahrenheit := celcius*1.8 + 32; | var fahrenheit := celcius*1.8 + 32; | ||
Writeln(celcius, '.000 C = ', fahrenheit:7:3, ' F'); | Writeln(celcius, '.000 C = ', fahrenheit:7:3, ' F'); | ||
end. | end. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Версия 14:02, 24 мая 2021
Базовые типы данных
1 var
2 height: integer := 176;
3 loanPercentage: real := 8.9;
4 age: array[1..5] of integer = (3,15,21,7,36);
5 name: string;
6 c: char;
7 busy: boolean;
Ввод и вывод
1 program Test;
2 var
3 age: integer;
4 begin
5 Writeln('Please enter your age:');
6 Readln(age);
7 Writeln('Age = ' + age);
8 end.
Арифметические операции
1 program Test;
2 var
3 celcius, fahrenheit: real;
4 Begin
5 Writeln('Введите температуру в градусах цельсия:');
6 Readln(celcius);
7 var fahrenheit := celcius*1.8 + 32;
8 Writeln(celcius, '.000 C = ', fahrenheit:7:3, ' F');
9 end.