Задачки паскаль....

[Rpk]

У меня мировозрение другое и вообще я не такой какой вы думаете все в основном.Для меня слово "помощь" как раз таки подразумевает, разные значения.В данном случае то что Вы сейчас показали.
Вот и еще раз ответили на то что захотелось или опять же нечего сказать и полезли тыкать мне правила.Удачи.

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

Сообщение от LeBron

В шею этого новичка за нарушение правил форума. Нету наработок - нету ничего. Rpk, с одной стороны - Ваш случай, с другой - случаи кучи других юзеров, не знающих паскаль. Где провести черту между теми, кому надо помогать, и теми, кому не надо? Во фрилансе ваша тема имеет право жить, в этой ветке - имеет с точки зрения части людей, но не имеет с точки зрения правил.
P.S. для написания данных задач необходимо прочесть приблизительно 10 страниц самого примитивного учебника "для чайников-ниовичков-отстающих". Если Вам лень - значит это Ваша проблема.

Вы не внимательно читали что я написал...Обидно.Вот тут модер есть пусть перенесет тему во фриланс.Я не заставляю, или не впихиваю это в обязанность сделать задачи которые я написал( как это думают некоторые), я просто мирно и спокойно написал вопрос, и если не хотите помогать то и не надо.Вот нашелся человек который хоть что-то помогу.Разве нельзя спокойно промолчать, либо помочь, либо написать, что я не в том разделе создал тему, и перенести туда куда надо, а я бы в свою очередь извинился.



profi, благодарю! +100500

Вот объективное решение.

Модеры перенесите плз темку в раздел фриланс.

[Пепел Феникса]

помочь не значит сделать за вас.
иначе говоря помочь это привести вас на гору, но не принести вас.

извините за вопрос, а почему ваша девушка сама не сделала их раз задали?
мне в принципе не трудно, но время не резиновое, почему ваша девушка должна спать, а мы должны делать?
извините уж, но я лучше в родном С++ иль Делфи покопаюсь, хватит расчитывать на халяву.

У меня мировозрение другое

поздравляю, я металист-гот, подумайте как мое мировозрение отличается от других?

[Rpk]

Сообщение от Пепел Феникса

помочь не значит сделать за вас.
иначе говоря помочь это привести вас на гору, но не принести вас.

извините за вопрос, а почему ваша девушка сама не сделала их раз задали?
мне в принципе не трудно, но время не резиновое, почему ваша девушка должна спать, а мы должны делать?
извините уж, но я лучше в родном С++ иль Делфи покопаюсь, хватит расчитывать на халяву.


поздравляю, я металист-гот, подумайте как мое мировозрение отличается от других?

Даже и представить не могу как отличается.ПОчему моя девушка не сделала задачи, это не должно касаться вас.Всего лишь попросил/спросил помочь!Что же вы не поймете то.Если не хотите, то и ладно.Мне другие помогут.

[Rpk]

Задача 1
Условие 1 (Падение)
program McLaren11;

var F,m: integer;
const a=10;

begin
write('Input Mass: ');
readln(m);
F:=m*a;
writeln('F = ',F);
readln;
end.


Задача 1.
Условие 2 (Машина).
program McLaren12;

var V,S,t1,t2: integer;

begin
write('Input Velocity (km\h): ');
readln(V);
S:=300;
t1:=(S div v)*60;
t2:=(S mod v)*60;
writeln('Time equal ',t1,' minutes and ',t2, ' seconds.');
readln;
end.


Задача 2.

program McLaren2;

var x1,x2,x3,y: integer;

begin
y:=0;
write ('Input x1: ');
readln(x1);
if (x1 < 0) then inc(y);
write ('Input x2: ');
readln(x2);
if (x2 < 0) then inc(y);
write ('Input x3: ');
readln(x3);
if (x3 < 0) then inc(y);
writeln;
writeln ('Negative numbers: ',y);
readln;
end.


Задача 4.

program McLaren4;

var x,y:longint;

begin
x:=1;
y:=0;
while (x<301) do
begin
if ((x mod 2) = 1) then y:=y+x*x;
inc(x);
end;
writeln ('Summa = ',y);
readln;
end.


Задача 5

uses crt;
var
n,i:integer;
sum:real;
begin clrscr;
write('n=');
readln(n);
sum:=0;
i:=2;
repeat
if i mod 2 <> 0 then
sum:=sum+sqr(i);
inc(i);
until i>n;
writeln('summa=',sum);
end.


Только не надо говорить "вот молодец, а говорил не умеешь" проверьте правильно ли и сделаны ли они все по требуемым условиям (while/repeat и т.д)

[ОДИНОЧЕСТВО В СЕТИ]

>>>Найти силу удара о землю
и
>>>F:=m*a; // -сила тяжести
имхо не совсем одно и тоже
про машину
а не проще t:=s/v*60 // -время то надо в минутах
про рост и вес я вообще не нашла у вас решения

for i:=101 to 250 do
begin 
v:=i-100;
writeln('рост=',i:4,'вес=',v:4)
end;

[profi]

Все правильные кроме 5-ой задачи.