Архив форума ЛГ - Ищу человека,который поможет написать программку в Паскале.

Ищу человека,который поможет написать программку в Паскале.

Kairos

Назад к темам раздела.

2014-01-05 18:48:16

Kairos

bogs
И ты тоже,будь добр,покинь темку...

2014-01-05 18:51:03

Antoniy

var
a,k,n,p:real;

begin
writeln('vvedi atazh');
readln(a);

writeln('vvedi kol kvart');
readln(k);

writeln('vvedi nomer kvart');
readln(n);

p:=(n/(a*k))+1;

writeln ('Квартира в ',trunc(p),' подъезде');
readln(n);

end.

2014-01-05 19:07:30

Antoniy

умные мне тут подсказывают что не доделал)))

Revolution писал(а):

на каком этаже находится

щас сделаем)

2014-01-05 19:07:30

Kairos

Antoniy
Большое спасибо!!
Как выйдешь из лаба черкани мне в скайп-или сейчас зайди договоримся)

2014-01-05 19:11:28

ZCORPION

Antoniy
полтора землекопа?

2014-01-05 19:12:45

bogs

Моя трудиться на С++ писять, моя написять, моя работать)
#include "stdafx.h"
#include <locale>
int _tmain(int argc, _TCHAR* argv[])
{
setlocale( LC_ALL,"Russian" );
int a, b, c;
printf("Число этажей =");
scanf_s("%i", &a);
printf("Число квартир на площадке =");
scanf_s("%i", &b);
printf("Номер квартиры:");
scanf_s("%i", &c);
if(a<=0 || b<=0 || c<=0){printf("Неправельный ввод данных");}
else
{
float et, pd;
pd=1;
et = c/b + 1;
while (et>a) {
et=et-a;
pd++;
}
printf("Этаж %.0fn", et);
printf("Подъезд %.0fn", pd);
}
return 0;
}

2014-01-05 19:14:33

bogs

ZCORPION
2 землекопа копали яму, йохохо, и они проголодались
1,5 землекопа закончили обедать, йохохо, они продолжили копать

2014-01-05 19:28:27

Antoniy

ZCORPION писал(а):

полтора землекопа?

Antoniy писал(а):

,trunc(p)

ещё вопросы?

2014-01-05 19:49:53

ZCORPION

Antoniy
не заметил....хм а частный случай?

2014-01-05 19:53:29

Antoniy

ZCORPION
по решению с подъездом самый лучший способ

2014-01-05 21:45:21

Варвар

Antoniy
твое решение 100% неверное, но я не буду говорить где ошибки.

2014-01-05 21:46:01

Варвар

bogs
и твое фиговое.

2014-01-05 21:47:36

Варвар

Antoniy
bogs
я вам обоим могу дать тесты, где ваши коды полетят )
платите бабки, подскажу ;) тысяч эдак 10 ;))

2014-01-05 21:55:33

Antoniy

Варвар
может и косяк) попозже гляну..

2014-01-05 23:29:17

Дагестанец

Revolution
если человеку что-то реально очень нужно, он ради сделает всё, лишь бы получить это, а ты мелочи предлагаешь, как будто это на постоянной основе тебе надо будет...

2014-01-06 00:29:22

Kairos

Дагестанец
Я темку создал не для флуда,так что покинь темку,если тебе нечем помочь...

2014-01-06 00:30:40

хорь

Дагестанец
Ценитель ты наш

2014-01-06 00:44:19

Voide

этож скока надо лени иметь чтоб такую лажу не сотворить самому...

2014-01-06 00:45:47

bogs

Варвар
как же жить без косяков)