Вводятся величины X,Y целого типа. Разработать схему алгоритма для обмена значений величин. Необходимо использовать вспомогательную величину Т.
5-9 класс
|
Протестировать алгоритм для X=5 и Y=-11.
Program Pr1;
uses crt;
var x,y,t:integer;
Begin
clrscr;
readln(x,y);
t:=x;
x:=y;
y:=t;
writeln(x,y);
end.
var
x,y,t:integer;
begin
write('x=');
readln(x);
write('y=');
readln(y);
t:=x;
x:=y;
y:=t;
writeln('x=',x,' y=',y);
readln;
end.
Другие вопросы из категории
Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов,сколько лет мне исполнилось. Написать программу,указывающую,к какому дню рождения подарок превысит 100$.
на языке Паскаль алгоритм нахождения количества натуральных четырехзначных
чисел, каждое из которых не делится ни на 2, ни на 3.
Читайте также
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
Разработать схему алгоритма для ввода четырех целых чисел и вычисления их среднего арифметического. Протестировать алгоритм на различных исходных данных( включая вещественные числа) и доказать правильность его работы.
Дано целое число А. Если значение А > 0, то необходимо
увеличить его на единицу. Разработать схему алгоритма для решения этой
задачи. Протестировать алгоритм для A=5, A=-4, A=0. сделать в паскале.
Программу я написала:
Program n1;
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln;
end.
правильно или нет? и какие у меня должны выходить значения?
R обруча. Протестировать алгоритм для а) L=5.8, D=0.2, б) L=3.25, D=0.1