Имхо, правильнее будет. Задачка 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.
Ну, дружок, ты ох..ел! Людей просишь, так сделай,чтоб им удобно было, а тебе даже текст набрать влом, надо разбирать твои каракули! Атас, студенты пошли, мля!
Я сам студент. Тебя прекрасно понимаю. Помог бы тебе, но пишу на Си.
Какой те текст набирать надо? Тот что в блок-схемах? Он тебе нужен в программе?? Или ты про код программы, который вряд ли пригодится тут комуто, т.к. он неправильный? Специально дя тебя, дружок :) могу его напечатать, тока не сегодня и не к завтру. А пока сделаю на завтра то что нужно.
Смотрим код для 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; // глобальный
Надеюсь поможет. Чем мог, тем... Удачи!
О, вот и блоксхема для 1.7.25 & 26 нарисовалась :) Прямоугольник вывода подрисую, это вроде смогаю :)) Опять же друг помог! Ну спасибо тебе! :((
Здесь когда-то было изображение.
1.4.1.25
в принципе все правильно. не знаю что требуют от вас, но когда я рисовал блок-схемы (и в школе и в инсте) от меня требовали указывать то, что выводим. соответстно блок-схема будет такой:
Здесь когда-то было изображение.
может конешн ваш препод этого и не требует, но, имхо, правильная блок схема будет тока с показанным выводом. по-этому уж лучше дорисовать во всех то что ты выводишь, нежели потом тебе препод укажет на это и скажет что блок-схема не правильная :)
1.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;
вот как полностью будет
program Pr_1_4_2_25;
var
x : array [1..1000] of real;
i,n,p : integer;
begin
p:=0; {potomu chto poslednii po zadaniyu zavedomo otricatelnyi}
write('Enter the count N: ');
readln(n);
writeln('Enter the numeric row');
for i:=1 to n do
begin
write('X[',i,'] = ');
readln(x[i]);
end;
writeln('New row will be: ');
for i:=1 to n do
begin
if ((in) and (x[i]>0)) then
x[i]:=x[i]/x[i+1]
else inc(P);
writeln('X[',i,'] = ',x[i]:8:2);
i:=i+1; {или inc(i)}
end;
writeln('Number of negative elements =', p);
readln;
end.
inc(p) нужно для подсчета отрицательных элементов
Спасибо другу! И тебе тоже :)
вообще 1.4.2.25 не верна
возможен ввод положительного числа последним, что противоречит условию
{я не понимаю что за переменная p, точнее функция inc(P), но проверки на знак нету}
по этому могу предложить совй вариант:
begin
p:=0; {хуй знает нахуй надо, но раз написали чначит для чего-нить надо :)}
write('Enter the count N: ');
readln(n);
writeln('Enter the numeric row');
for i:=1 to n-1 do
begin
write('X[',i,'] = ');
readln(x[i]);
end;
i:=n;
j:=1;
for j:=1 to 2 do
begin
write('X[',i,'] = ');
readln(x[i]);
if x[i]
не :)
влом :)
экзамен по паскалю я сдал а конце 2001, по-этому нах :)
з.ы. вариант мой может и не доконца правильный, но всеж че-то верное в нем есть :) запомни этот момент на всякий случай
Бля, самый настоящий студент!!! Ну ты гадюка напиши это неделю назад, тебе б уже все состряпали. Я могу, но только на завтра на вечер, часиков этак после 16 по Москве(по мойму будет уже поздно)
1.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.
Комментарии
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.
Я сам студент. Тебя прекрасно понимаю. Помог бы тебе, но пишу на Си.
Испарение, имхо, идет после изЪятия и сл. от оставшегося. Так что код, имхо, будет чуть правильнее
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; // глобальный
Надеюсь поможет. Чем мог, тем... Удачи!
Здесь когда-то было изображение.
Первый раз такое вижу :)
Здесь когда-то было изображение.
прямоугольнык — э то действия
ввод/вывод в ромбах
в принципе все правильно. не знаю что требуют от вас, но когда я рисовал блок-схемы (и в школе и в инсте) от меня требовали указывать то, что выводим. соответстно блок-схема будет такой:
Здесь когда-то было изображение.
может конешн ваш препод этого и не требует, но, имхо, правильная блок схема будет тока с показанным выводом. по-этому уж лучше дорисовать во всех то что ты выводишь, нежели потом тебе препод укажет на это и скажет что блок-схема не правильная :)
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;
program Pr_1_4_2_25;
var
x : array [1..1000] of real;
i,n,p : integer;
begin
p:=0; {potomu chto poslednii po zadaniyu zavedomo otricatelnyi}
write('Enter the count N: ');
readln(n);
writeln('Enter the numeric row');
for i:=1 to n do
begin
write('X[',i,'] = ');
readln(x[i]);
end;
writeln('New row will be: ');
for i:=1 to n do
begin
if ((in) and (x[i]>0)) then
x[i]:=x[i]/x[i+1]
else inc(P);
writeln('X[',i,'] = ',x[i]:8:2);
i:=i+1; {или inc(i)}
end;
writeln('Number of negative elements =', p);
readln;
end.
inc(p) нужно для подсчета отрицательных элементов
Спасибо другу! И тебе тоже :)
возможен ввод положительного числа последним, что противоречит условию
{я не понимаю что за переменная p, точнее функция inc(P), но проверки на знак нету}
по этому могу предложить совй вариант:
begin
p:=0; {хуй знает нахуй надо, но раз написали чначит для чего-нить надо :)}
write('Enter the count N: ');
readln(n);
writeln('Enter the numeric row');
for i:=1 to n-1 do
begin
write('X[',i,'] = ');
readln(x[i]);
end;
i:=n;
j:=1;
for j:=1 to 2 do
begin
write('X[',i,'] = ');
readln(x[i]);
if x[i]
влом :)
экзамен по паскалю я сдал а конце 2001, по-этому нах :)
з.ы. вариант мой может и не доконца правильный, но всеж че-то верное в нем есть :) запомни этот момент на всякий случай
Честно ) Покрайней мере эта — в браше.
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.