Базовые типы данных. Ввод и вывод. Арифметические операции. (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
(Новая страница: «== Базовые типы данных == <syntaxhighlight lang="c" line> var height: integer := 176; loanPercentage: real := 8.9; age: array[1..5] of inte...») |
|||
(не показано 11 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
+ | {{TOCRight}} | ||
== Базовые типы данных == | == Базовые типы данных == | ||
− | <syntaxhighlight lang=" | + | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/index_types.html Типы данных (документация)] |
+ | |||
+ | <syntaxhighlight lang="pascal" line> | ||
var | var | ||
height: integer := 176; | height: integer := 176; | ||
Строка 11: | Строка 14: | ||
== Ввод и вывод == | == Ввод и вывод == | ||
− | <syntaxhighlight lang=" | + | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/PABCSystemUnit/Files/Read%20subroutines.html Подпрограммы ввода (документация)] |
+ | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/PABCSystemUnit/Files/Write%20subroutines.html Подпрограммы вывода (документация)] | ||
+ | |||
+ | <syntaxhighlight lang="pascal" line> | ||
program Test; | program Test; | ||
var | var | ||
age: integer; | age: integer; | ||
begin | begin | ||
− | + | Writeln('Please enter your age:'); | |
Readln(age); | Readln(age); | ||
Writeln('Age = ' + age); | Writeln('Age = ' + age); | ||
Строка 23: | Строка 29: | ||
== Арифметические операции == | == Арифметические операции == | ||
− | <syntaxhighlight lang=" | + | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/index_types.html Комплексный оператор присваивания (документация)] |
+ | <syntaxhighlight lang="pascal" line> | ||
program Test; | program Test; | ||
+ | var | ||
+ | celcius, fahrenheit: real; | ||
Begin | Begin | ||
− | var celcius := | + | Writeln('Введите температуру в градусах цельсия:'); |
− | + | Readln(celcius); | |
+ | // var celcius := ReadReal('Введите температуру в градусах цельсия:'); | ||
+ | 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> | ||
+ | |||
+ | == Задачник == | ||
+ | * [http://ptaskbook.com/ru/tasks/begin.php Ввод и вывод данных, оператор присваивания] |
Текущая версия на 09:53, 9 июня 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 celcius := ReadReal('Введите температуру в градусах цельсия:');
8 fahrenheit := celcius*1.8 + 32;
9 Writeln(celcius, '.000 C = ', fahrenheit:7:3, ' F');
10 end.