Паскаль

[taraska]

помогите записать программу в паскале. в этом совсем не разбираюсь,поэтому прошу помощи. заранее спасибо!

1. Смешано V1 литров воды температуры T1 c V2 литрами воды температуры Т2. Найти объем и температуру образовавшейся смеси.

2. Логической переменной t присвоить значение True или False в зависимости от того является натуральное число k степенью числа 3 или нет.

3. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подрят идущих нулей.

[RUSt88]

обращайтесь

[Chudo4258]

1. Смешано V1 литров воды температуры T1 c V2 литрами воды температуры Т2. Найти объем и температуру образовавшейся смеси.

формулы хотябы напишите, а то физика давно была, а искать не охота.

2. Логической переменной t присвоить значение True или False в зависимости от того является натуральное число k степенью числа 3 или нет.

program Project2;
var i,n:integer;
     t:boolean;
begin
readln(n);
i:=1;
t:=false;
while (i<=n) and not(t) do
 begin
  if i=n then t:=true;
  i:=i*3;
 end;
writeln(t);
readln;
end.

[mifomen]

Должна работать. 3 задача

program dota;
uses crt;
var
    max,f1,n,i,j:integer;
begin
    clrscr; randomize;
        i:=1; j:=0; writeln('Posledovatelnoist do ?'); readln(n);
      while i<=n do begin
    f1:=random(2);
    if f1=0 then j:=j+1 else if max<j then begin max:=j; j:=0; end;
    write(f1,' ');
    i:=i+1;
      end;
      writeln;writeln(max);

readkey
end.

[RUSt88]

ай молодца, всё решили! аффтор поста сам даж мягким местом не пошевелил, а вы уже нате вам готовое! задачи элементарнейшие, максимум 1 час потратить на прочтение пары листов учебника, а зачем? Есть же люди, к-рые и просто так решат, а мне даже незачем свою маленькую голову забивать какими-то формулами и синтаксисом, она ж распухнуть может.

[mifomen]

RUSt88 прости что тебя без денег оставили.

[taraska]

RUSt88 дорогой, не нравится что-то не пиши вообще. с тебя никто ничего не требует.

Спасибо большое за помощь, ребят!!!

[Chudo4258]

dt:=abs((v2*t2-v1*t1)/(v1+v2));
T:=min(t1,t2)+dt;
v:=v1+v2;

program Temper;
function min(a,b:real):real;
begin
if a>b then min:=b
       else min:=a;
end;
var v,v1,v2,t,t1,t2,dt:real;
begin
 read(v1,v2,t1,t2);
 dt:=abs((v2*t2-v1*t1)/(v1+v2));
 T:=min(t1,t2)+dt;
 v:=v1+v2;
 writeln(v);
end.

[АлександрНСК]

Логической переменной t присвоить значение True или False в зависимости от того является натуральное число k степенью числа 3 или нет. Код для Delphi. Не могу справиться...=(

[Sciv]

Не могу справиться...=(

Ну не можешь и не можешь... А нафига мертвую тему-то поднимать?

Код для дельфи будет тот же самый, что в одном из этих постов (я в него не вникал, поэтому за правильность пусть автор отвечает). Создаешь консольное приложение и копируешь его туда.

Если приложение через форму - тот же самый код + несколько строчек конвертации значений эдитов формы в числовые значения. И обратно.