Другие языки программирования и технологии
Помогите с delphi там мало)
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const c=4; ff=10; cb=5; fb=5; var F,P,nk,kvp:integer; d:char; begin writeln ('home=?'); readln (d); writeln ('nk=?'); readln (nk); if d='A' then begin p:=((nk-1)div (c*ff))+1; kvp:=(nk-1) mod (c*ff); F:= ((kvp-1) div c)+1; writeln (F); writeln (p); readln; end else begin p:=((nk-1)div (cb*fb))+1; kvp:=(nk-1) mod (cb*fb); F:= ((kvp-1) div cb)+1; writeln ('nomer etaga:',F); writeln ('nomer podezda:',p); writeln ('Ya znau vse'); readln; end; end. не расскажите что делает каждая строчка, но суть программы такая , вводим номер дома, потом номер квартиры, и он нам показывает номер этажа и номер подъезда, помогите пожалуйста.
program Project2; //имя программы
{$APPTYPE CONSOLE} //Консоль
uses //Используемые модули
SysUtils; //только системный
const //Создаем константы
c=4; ff=10;
cb=5; fb=5;
var F,P,nk,kvp:integer;
d:char;
begin
writeln ('home=?'); // Выводим в консоль home=?
readln (d); //Запоминаем в d то что ввели
writeln ('nk=?'); // Выводим в консоль nk=?
readln (nk); //Запоминаем в nk то что ввели
if d='A' then //если d равен букве А (хз к чему это) , то делаем следующее:
begin
p:=((nk-1)div (c*ff))+1; // Вычисляем, где div - деление без остатка
kvp:=(nk-1) mod (c*ff); // Вычисляем, где mod = деление с возвратом остатка
F:= ((kvp-1) div c)+1; // Вычисляем Думаю остальное в формулы подставишь.. .
writeln (F); // Выводим значение F(этаж)
writeln (p); // Выводим значение p(подъезд)
readln; // Ждем нажатия для завершения
end
else //если d не равен букве А, то делаем следующее:
begin
p:=((nk-1)div (cb*fb))+1; // Вычисляем
kvp:=(nk-1) mod (cb*fb); // Вычисляем
F:= ((kvp-1) div cb)+1; // Вычисляем
writeln ('nomer etaga:',F); // Выводим значение F(этаж)
writeln ('nomer podezda:',p); // Выводим значение p(подъезд)
writeln ('Ya znau vse'); // Выводим строку я знаю все
readln; // Ждем нажатия для завершения
end;
end.
{$APPTYPE CONSOLE} //Консоль
uses //Используемые модули
SysUtils; //только системный
const //Создаем константы
c=4; ff=10;
cb=5; fb=5;
var F,P,nk,kvp:integer;
d:char;
begin
writeln ('home=?'); // Выводим в консоль home=?
readln (d); //Запоминаем в d то что ввели
writeln ('nk=?'); // Выводим в консоль nk=?
readln (nk); //Запоминаем в nk то что ввели
if d='A' then //если d равен букве А (хз к чему это) , то делаем следующее:
begin
p:=((nk-1)div (c*ff))+1; // Вычисляем, где div - деление без остатка
kvp:=(nk-1) mod (c*ff); // Вычисляем, где mod = деление с возвратом остатка
F:= ((kvp-1) div c)+1; // Вычисляем Думаю остальное в формулы подставишь.. .
writeln (F); // Выводим значение F(этаж)
writeln (p); // Выводим значение p(подъезд)
readln; // Ждем нажатия для завершения
end
else //если d не равен букве А, то делаем следующее:
begin
p:=((nk-1)div (cb*fb))+1; // Вычисляем
kvp:=(nk-1) mod (cb*fb); // Вычисляем
F:= ((kvp-1) div cb)+1; // Вычисляем
writeln ('nomer etaga:',F); // Выводим значение F(этаж)
writeln ('nomer podezda:',p); // Выводим значение p(подъезд)
writeln ('Ya znau vse'); // Выводим строку я знаю все
readln; // Ждем нажатия для завершения
end;
end.
чё-то я не понимаю, зачем номер дома? у вас один фиг кол-во этажей, квартир на этаже- это константы...
Похожие вопросы
- помогите пожалуйста, Delphi
- помогите по Delphi (10 баллов)
- Помогите с Delphi! Умоляю!
- помогите программисты!) delphi 7
- Помогите с Delphi 7 нужно из одной формы в другую отправить значения численные Real!
- ПОМОГИТЕ!!!!ПЛИИИИЗ!!!!delphi/pascal!!
- помогите разобраться (delphi)
- помогите, пожалуйста!! ! Delphi
- Помогите с Delphi? SpinEdit1 и SpinEdit2
- Помогите с Delphi пожалуйста