-
C15 дек 05Имхо, правильнее будет. Задачка 2.25. Синтаксис проверь только. Коменты почему я так считаю — в тексте проги.
Program Z_2_25;
var m,i:integer;
a,p,c,n:real;
begin
writeln('Стоимость 1 кВт энергии составляет A руб:');
readln(a);
writeln('Рост стоимости электроэнергии составляет р%:');
readln(p);
writeln('Предельно допустимые затраты семьи на электроэнергию в год составляют С руб:');
readln(c);
for i:=0 to 12 do
///1-ый месяц платим по а денег за киловат и
//цена в первом месяце остается а, цена растет со второго месяца
begin
n := a*(200 + i*50);//платим за текущий месяц
//стоимость киловата на будующий мес
// составл. стоимость на текущий + p%
//в 0-ой месяц цена == а за киловат
a:=a+a*p/100; //цена на p% выросла и в след месяце пляшем от
//нее
if (n>=C) then
writeln ('Через ', i, ' месяцев затраты превысят допустимые');
end;
readln;
end. -
-
Boomburum АВТОР15 дек 05Какой те текст набирать надо? Тот что в блок-схемах? Он тебе нужен в программе?? Или ты про код программы, который вряд ли пригодится тут комуто, т.к. он неправильный? Специально дя тебя, дружок :) могу его напечатать, тока не сегодня и не к завтру. А пока сделаю на завтра то что нужно.
-
-
C15 дек 05Смотрим код для 1.3.25
Испарение, имхо, идет после изЪятия и сл. от оставшегося. Так что код, имхо, будет чуть правильнее
Program Z_1_3_25;
var m,i:integer; //i- счетчик
p,t,q,tmp_q:real; //tmp_q для вывода с учетом изъятия
begin //глобальный
writeln('Количество летучего вещества P кг:');
readln(p);
writeln('Количество вещества изымаемого каждые сутки T кг:');
readln(t);
writeln('Каждый день улетучивается q %:');
readln(q);
writeln('Укажите через какое количество суток вы хотите узнать кол-во вещества M:');
readln(m);
for i:=1 to m do
begin
if(p>0) them begin
p:=p-t; //осталось после изъятия кг
tmp_q:=(p*q)/100; //испарилось с учетом изъятия кг
p:=p-tmp_q; //осталось после испарения и изъятия
writeln('Осталось на конец %d суток %w кг вещества',i,p);
writeln(' Средний расход за %d сутки %w кг вещества',i,(t+tmp_q)/2);
end; // ифа конец
else writeln('На %d cутки в-ва не осталось',i);
end; //цикла конец
end; // глобальный
Надеюсь поможет. Чем мог, тем... Удачи! -
-
-
15 дек 051.4.1.25
в принципе все правильно. не знаю что требуют от вас, но когда я рисовал блок-схемы (и в школе и в инсте) от меня требовали указывать то, что выводим. соответстно блок-схема будет такой:
Здесь когда-то было изображение.
может конешн ваш препод этого и не требует, но, имхо, правильная блок схема будет тока с показанным выводом. по-этому уж лучше дорисовать во всех то что ты выводишь, нежели потом тебе препод укажет на это и скажет что блок-схема не правильная :)-
15 дек 051.4.2.25
for i:=1 to n do
begin
if ((i0)) then {i>n не как не получиться, по этому нахуя условие?}
x[i]:=x[i]/x[i+1]
else inc(P); {хз че такое :)}
writeln('X[',i,'] = ',x[i]:8:2);
i:=i+1; {а это забыл?)}
end;
-
Boomburum АВТОР15 дек 051.7.26 тоже. Тоже друг сделал, дабл респект ему! Эх, все бы друзья так помогали..:)
program pr_1_7_26;
procedure vychisleniya(x:integer);
var
a : real;
begin
a := exp(-exp(2*ln(sin(x)))) + (3/7*x)/(1+sqrt(x))-x;
write(a:2:4);
readln;
end;
var
x : integer;
a : real;
begin
write('Enter x: ');
readln(x);
vychisleniya(x);
end. -
Boomburum АВТОР15 дек 05Так, 1.7.25 делать не надо, если только блок-схему. Друг решил, респект ему!!!
program pr_1_7_25;
procedure podschety(x : integer);
var
a : real;
begin
a := ln(1+x) — 0.95*sin(x) + 6/7 — x;
write(a:2:4);
readln;
end;
var
x : integer;
begin
write('Enter x: ');
readln(x);
podschety(x);
end. -
Boomburum АВТОР15 дек 05Народ, мне это к завтру делать надо :( Да, все говорят что задачи легкие, что паскаль — для яслей, но для меня, человека ни разу не запускавшего TP — это песдец :( Кому-то хтмл ну никак не дается, когда первый раз садятся. А я так же могу сказать что это легче простого, т.к. увлекаюсь...
Сделано с
NoNaMe