Статистика
Всего в нашей базе более 4 326 444 вопросов и 6 443 509 ответов!

Помогите решить Задаачу по Паскалю

10-11 класс

Trituha 02 мая 2013 г., 9:22:44 (6 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Halillaevmail
02 мая 2013 г., 11:31:57 (6 лет назад)

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 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. Известно, что в течение этого времени температура понижалась. Напишите программу, определяющую, в котором часу была впервые отмечена отрицательная температура

некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала записывается цифра, следующая за последней в исходной

цепочке, затем исходная цепочка дважды: в прямом и обратном порядке. Дана цепочка 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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.