Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika_otvety.doc
X
- •1.Составить программу для определения расстояния на плоскости между двумя точками м1(х1, у1) и м2(х2, у2).
- •Var I,j:integer;
- •2. Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •2. Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •2.Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей.
- •1.Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •1. Разработать программу вычисления функции
- •Var X,y:Real;
- •1. Ввести с клавиатуры 3 числа, найти среди них наименьшее. Предусмотреть выводы данных на дисплей.
- •Var k,l,m:real;
- •1.Ввести с клавиатуры 4 числа. Найти среди них числа, больше полусуммы введенных чисел. Предусмотреть выводы данных на дисплей.
- •Var a:array [1..4] of real;
- •I,j:integer;
- •1.Ввести с клавиатуры 7 чисел. Вывести на дисплей четные и нечетные числа, указать число четных и нечетных чисел.
- •Var I,j:integer;
- •Var I,j:integer;
- •1.Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •2. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
- •Var I,j:integer;
- •1.Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •2. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
- •Var I,j:integer;
- •1.Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей.
- •1.Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.
- •Var I,j:integer;
- •Var I,j:integer;
- •2. Начав тренировки, спортсмен в первый день пробежал х км. Каждый следующий день он увеличивал норму на 10 % от предыдущего дня. Через сколько дней спортсмен будет пробегать больше у км.?
- •2. В очередном году урожайность ячменя составила 20ц с гектара. В среднем каждые два года урожайность увеличивается на 5%. Определить через сколько лет урожайность превысит Nц с га.
- •1. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
- •Var I,j:integer;
- •Var X,a:real;
- •I,j:integer;
- •1. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
- •Var I,j:integer;
- •2. Вычислить сумму последовательности натуральных чисел. Вычисления прекратить, когда сумма превысит заданное значение n. Вывести сумму и число натуральных чисел, вошедших в вычисленную сумму.
- •2. Вычислить сумму последовательности натуральных чисел. Вычисления прекратить, когда сумма превысит заданное значение n. Вывести сумму и число натуральных чисел, вошедших в вычисленную сумму.
2. Вычислить сумму последовательности натуральных чисел. Вычисления прекратить, когда сумма превысит заданное значение n. Вывести сумму и число натуральных чисел, вошедших в вычисленную сумму.
program bil292;
var x,n,y:integer;
begin
write('wwedite ogranicenie ');
readln(n);
y:=1;
x:=1;
repeat
y:=y*x;
x:=x+1;
until y>n;
writeln('znachenie proizvedeniya y=',y);
x:=x-1;
writeln('chislo elementov ',x);
end.
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]