Помогите решить билеты по программированию, Pascal

[ivan99]

БИЛЕТЫ.

Билет № 1.

1. История создания языка Turbo Pascal.

2. Оператор выбора.

Билет № 2.

1. Команды редактора.

2. Условный оператор.

Билет № 3.

1. Понятие, виды и свойства алгоритма.

2. Операторы ввода, вывода.

Билет № 4.

1. Уловные обозначения блок – схемы.

2. Описание данных.

Билет № 5.

1. Алфавит языка. Что такое служебные слова? Входят ли служебные слова в язык программирования Turbo Pascal.

2. Оператор цикла с предусловием.

Билет № 6.

1. Идентификаторы. Структура программы. Написать простейшую программу, которая выводит следующие строки: «Привет! Вот мы и начали!».

Найдите ошибку:

Var

y,c,x : integer;

Begin

Writeln (‘Нахождение суммы 2–х чисел введенных с клавиатуры’);

Writeln (‘Введите значение x’);

Writeln (‘Введите значение y’);

Readln (y);

C:=x+y;

Readln;

End;

Если значение x=3.25, а значение y=2.3

2. Оператор цикла с постусловием.

Билет № 7.

1. Понятие типа данных. Система типов языка.

2. Условный оператор. Привести примеры, где используется условный оператор.

Билет № 8.

1. Целые и вещественные типы.

2. Арифметические операции и операции отношения.

Билет № 9.

1. Стандартные функции, применимые к числовым данным.

2. Оператор присваивания.

Билет № 10.

1. Логические выражения.

2. Цикл «С параметром».

[ivan99]

Var

y,c,x : integer;

Begin

Writeln (‘Нахождение суммы 2–х чисел введенных с клавиатуры’);

Writeln (‘Введите значение x’);

Writeln (‘Введите значение y’);

Readln (y);

C:=x+y;

Readln;

End;

Если значение x=3.25, а значение y=2.3

вотхябы это

[Xupyp1]

ivan99

Var

y,c,x : integer;

Begin

Writeln (‘Нахождение суммы 2–х чисел введенных с клавиатуры’);

Writeln (‘Введите значение x’);

Readln (x);

Writeln (‘Введите значение y’);

Readln (y);

C:=x+y;

Writeln(‘Результат’);

Writeln©;

Readln;

End;

Если значение x=3.25, а значение y=2.3

То что выделено - отсутствовало.

[ivan99]

Xupyp1 спс за помошь!

[Dmitrius]

please!!! Помогите решить задачу на Pascal!!!

Определить число элементов и найти оператор, преобразующий номер элемента в само число, для следующей последовательности: 4, 1, 6, 3, 8, 5, ..., 85, 90, 87.

Заранее благодарен.

[Maru]

из последовательности видно, что число элементов равно 88-ми.

по номеру элемента получить число (считаем, что нумерация начинается с нуля):

int getValueByIndex(int i)
{
assert i>=0 && i<=87;

return i%2==0 ? i+4 : i;
}

на паскале не пишу, так как его не знаю

[ToMcKuu']

ivan99

Var

y,c,x : real;

Begin

Writeln (‘Нахождение суммы 2–х чисел введенных с клавиатуры’);

Writeln (‘Введите значение x’);

Readln (x);

Writeln (‘Введите значение y’);

Readln (y);

C:=x+y;

Writeln(‘Результат’);

Writeln©;

Readln;

End;

Если значение x=3.25, а значение y=2.3

Вот теперь все правильно