Новые сообщения · Правила  
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: Berestovskiy  
Тип Char
[quote=женек]"Нарисовать блок-схему алгоритма и написать программу, которая анализирует введенное с клавиатуры число на четность и сообщает о результате. Использовать операцию нахождения остатка от деления на 2." [/quote]
Вот код, в нём же пример работы ифа зена и елса))
var
a:integer;
begin
read(a);
if a mod 2=0 then writeln('Число чётное') else writeln('Число не чётное');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
41 | Автор: Berestovskiy | 2012-09-21, 17:21   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
if a mod 2=0 then writeln('Число чётное') else writeln('Число не чётное');

А еще сложнее можно было написать?)
в книге хоть все эти if и then не в одну строку, вот как я пойму когда их писать, ну хотя бы дал мне описание своими словами, и что означает "a mod 2=0"?
И причем тут 2 и 0 когда программа определят число на четность?

Добавлено (21.09.12, 19:46)
---------------------------------------------
Нашел сайт где как по книге идет тупо описание о паскале. Прочитал как правильно пользоваться операторами if, then и else. Так же привели пример:

Code
var
        a, b, c : integer;
     begin
        write('Введите первое целое число '); readln(a);
        write('Введите второе целое число '); readln(b);
        if a < b  then c := 2*a
                      else  c := 2*b;
        writeln('Меньшее число ', c div 2);
        writeln('Оно же увеличенное вдвое ', c)
     end.

Но не понятно почему в строке writeln('Меньшее число ', c div 2); стоит div? Ведь div - это целое число, которое получилось в результате деления. А в том примере деления нет.
42 | Автор: женек | 2012-09-21, 19:46   --------->
Quote (женек)
тупо описание о паскале
Смешно получилось
43 | Автор: admin | 2012-09-21, 20:48   |  Репутация: [ + 22 ]
У меня получилось вот так:

Код
Program Char ;

var
   X1,X2,X3,X4: Char;
begin
   writeln ('Напишите: FINISHED');
   readln (X1);
   X1:=Pred(X1);
   X1:=Pred (X1);
   writeln (X1);
   writeln ('Напишите: OR');
   readln (X2);
   writeln (X2);
   writeln ('Напишите: PENGING?');
   readln (X3,X4);   
   X3:=Pred (X3);
   X3:=Pred (X3);
   writeln (X3,X4);

   writeln (X1, X2, X3, X4);
end.
44 | Автор: grigmag | 2013-11-28, 19:25   |  Репутация: [ + 0 ]
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск: