сервис вопросов и ответовПомогите решить Задаачу по Паскалю
10-11 класс|
|
Прикрепленные изображения
Trituha
02 мая 2013 г., 9:22:44 (10 лет назад)
Halillaevmail
02 мая 2013 г., 11:31:57 (10 лет назад)
var x, y: Integer;
begin
x := -3;
repeat
if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
if (x = 0) then writeln('При X = ', x, ' y = ', 0);
if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
x := x + 1;
until (x > 8);
end.
Проверил =)
Ответить
Другие вопросы из категории
Задачи на массив в Turbo Pascal
1) Определите ,на сколько отличается рост самого высокого и самого низкого учащегося в классе?
2) результаты переписи населения, которые хранятся в памяти компьютера. Элемент массива -год рождения жителя. Подсчитайте общее число жителей, родившихся раньше 1958 года.
3) С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. Известно, что в течение этого времени температура понижалась. Напишите программу, определяющую, в котором часу была впервые отмечена отрицательная температура
Вовочка написал на доске равенство 101=11011. Учитель информатики сказал, что это равенство будет верным, если понимать его как запись одного и того же
числа, но в разных системах счисления. Найдите основания этих систем.
некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала записывается цифра, следующая за последней в исходной
цепочке, затем исходная цепочка дважды: в прямом и обратном порядке. Дана цепочка 71. Какая цепочка получитчся, если к ней применить алгоритм дважды?
Читайте также
Помогите решить задачи по паскалю:
1. модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива
2. Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (вещественная величина типа real)
Начало:
var a: array[1..10] of integer;
i: integer;
begin
а как дальше?
Предыдущий пример:
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begina[i]:=random(40)-20;
end;
for i:=1write(a[i]:4);
end.
помогите решить задачки по Паскалю "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
Вы находитесь на странице вопроса "Помогите решить Задаачу по Паскалю", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.