Pascal, Delphi и UnrealScript Уроки с примерами (Tutorials and examples)
вторник, 10 июля 2012 г.
6. Простейшая программа считающая сумму двух чисел (Pascal)
Программа будет считать сумму двух чисел введённых пользователем и выводить результат на экран.
Сначала введём название программы
program summa;
Далее нужно подключить модуль работы с экраном, в дальнейшем он нам пригодится
uses crt;
Раз программа считает сумму двух чисел, то и понадобятся две переменные
var x,y:integer;
Далее пишем слово begin, оно обозначает начало программы
begin
При запуске программы должно появляться сообщение объясняющее пользователь что нужно сделать.
writeln (‘vvedite pervoe chislo’);
После этого надо будет ввести число, программа будет ждать пока переменной (x) не будет присвоенно число
readln (x);
то же самое нужно сделать со второй переменной (y)
writeln (‘vvedite vtoroe chislo’);
readln (y);
В конце лучше всегда ставить пустой readln, чтобы программа не сразу выходила, а ждала нажатия клавиши
readln;
И в конце обязательно должен быть End с точкой.
End.
program summa;
uses crt;
var x,y:integer;
begin
clrscr;
writeln (‘vvedite pervoe chislo’);
readln (x);
writeln (‘vvedite vtoroe chislo’);
readln (y);
writeln (‘Summa ‘, x+y);
readln;
end;
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел, кратных 4.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чётных чисел.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.