Pascal 8 урок

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

Pascal 7 урок

Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:

одним вызовов write (все три) -- т.е. передав несколько аргументов.

var a, b, c : char;
begin
   a := 'f';
   b := '%';
   c := 'b';
   writeln(a, ' ', b, ' ', c);
   readln();
end.
          

отдельно вызывая writeln для вывод значения каждой переменной

Pascal 6 урок

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

begin
   writeln(8>9.55, ' ', 8<9.55);
   readln()
end.

Пользователь вводит два значения, одно целое, а другое вещественное, проверьте больше ли первое число второго, выведя на экран надпись (как это делается в примерах выше).

Базовый курс SQL. Вычисляемые поля

Forums:

Следующая страница. JOIN-ы или объединения таблиц.
Оглавление.

Базовый курс SQL. Подзапросы

Forums:

Следующая страница. Функции для обработки данных
Оглавление.

Решение задачи 15 из главы 13.1

Решение задачи 15 из главы 13.1

15. С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project15;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, ':', i, ' = ', a div i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 14 из главы 13.1

Решение задачи 14 из главы 13.1

14. С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

program Project14;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, '*', i, ' = ', a*i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.

Решение задачи 13 из главы 13.1

Решение задачи 13 из главы 13.1

13. Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)

Решение задачи 12 из главы 13.1

Решение задачи 12 из главы 13.1

12. Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат

Решение задачи 8 из главы 11

Решение задачи 8 из главы 11

8. Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

Pages

Subscribe to fkn+antitotal RSS