Программы на Pascal

Сегодня напишу несколько программ,думаю по кодам будут ясны что да как
Кто не понял пишите в тему

Код:

uses crt;
var a,b,c,d,x,y: real;
begin
writeln ('В какой группе больше людей в по-21 или в по-31?');
readln (a,b);
if a<b then writeln ('По-31')
// тут типо я все сделал  :0
else writeln ('По-21');
if a=b then writeln ('Одинаковое кол-во');
readln (y);
writeln ('y')
end.

Тут также можно вставить что нибудь свое,либо просто сделать умножение подобие

Код:

var a,b,c,d,x: real;
begin
readln (a,b,c,d);
x:=a*b*c*d;
writeln (x);
end.

Просто убрасть c,d

Или же вот пример

Код:

var a,b: real;
begin
readln (a);
b:=a*1.0668;
writeln (b, 'км');
end.

Команда в начале uses crt; обозначает что интерфейс показа будет другой
попробуйте вставить выше

// (с палочками комментрий)

Если есть какие вопросы,задавайте

Все программы написаны своими руками,ничто не крал

 

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

 

Школу я уже давно закончил,а написал что помню

 

пиши на Си что ли, Паскаль-то уже не юзабелен вроде как )

 

Паскаль это азы всех языков программирования
Писать сразу сюда на C толку 0
Да и к тому же сам не знаю еще

 

Могу калькулятор выложить если нужно

 

Ну дак если твое творение выкладывай сюда

 

Код:

Program Summa
Var a,b,c: real;
Begin
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
c:=a/b
Writeln('Сумма двух этих чисел равна ' ,c);
Readln;
End.

Код:

Program Summa
Var a,b,c: integer;
Begin
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
c:=a*b
Writeln('Сумма двух этих чисел равна ' ,c);
Readln;
End.

Код:

Program Summa
Var a,b,c: integer;
Begin
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
c:=a-b
Writeln('Сумма двух этих чисел равна ' ,c);
Readln;
End.

Код:

Program Summa
Var a,b,c: integer;
Begin
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
c:=a+b
Writeln('Сумма двух этих чисел равна ' ,c);
Readln;
End.

Так скажем, дом.задание, самый легкий.

 

Можно было просто написать что все всех кодах
Только эта строчка меняется

Код:

c:=a+b

 

Если бы закончил школу, то знал бы простейшие свойства, которыми должен обладать код/алгоритм. Из твоего кода, я могу сделать вывод, что ты только познаешь паскаль, ибо не рационально использованы переменные. Код не расчтиан на массовое использование. Отучившись в школе, ты бы, написал код на много грамотнее и рациональнее. Чувак, там видно. Вместо 5 переменных можно было использовать всего две и при этом программа покрывала куда больший класс задач.

 

Да, я только начал осваивать паскаль.

 

Если ты не веришь что я закончил школу,добавься в скайп ford.64
Если ты так говоришь то давай напиши сам программу,а лучше при мне,если сделаешь то соглашусь если нет,то пустослов

 

Все ясно вообщем