Тип Char - Страница 3 - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 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 ]

Тип Char

Страница 3 из 3
«
1
2
3

прикладная математика