Начал изучать паскаль. Скачал самоучитель и програмку Турбо Паскаль 7.1 ввожу текст:
Program My_First_Program;
const
Text = 'Я программирую на Турбо Паскале';
begin
WriteLn(Text);
end.
Программу в теги возьми....
Перед end. ReadLn; вставь, что бы сразу не выходило...
ReadLn не помогает.
program Kr_1;
var x:array[1..15] of real;
i,M1:integer;
y,A1,A2:real;
begin
writeln;
writeln ('input 15 nambers');
writeln;
for i:=1 to 15 do
read (x[i]);
A1:=0;
A2:=0;
for i:=1 to 15 do
begin
A1:=A1+x[i];
if x[i]>0 then A2:=A2+x[i];
end;
writeln;
writeln ('A1=',A1);
writeln;
writeln ('A2=',A2);
writeln;
M1:=0;
for i:=1 to 15 do
if x[i]<A1 then M1:=M1+1;
writeln ('M1=',M1);
writeln;
if A1>0 then
begin
y:=(A2+17.8*10*10*10)/(cos(A2)*cos(A2)+M1*A2);
writeln('y=',y);
end
else
begin
y:=0.0023+A2+M1;
writeln('y=',y);
end;
readln
end.
Странно.. должно помочь..
добавлено: это к программке из поста #1
Угу..
Просто когда я отвечала еще не было последней программки..
Я написал тебе, что надо делать... Все Read-ы исправь на ReadLn...
to Putin: Коллега (я сам только неделю учу Pascal по самоучителю)! Самое интересное, что ни в одной книге я не встретил указаний насчет просмотра результатов работы. А нужно всего лишь нажать Alt+F5.
помогите написать программу!)
нужно подщитать каких букв в тексте больше гласных или согласных!
М | sasha2513, пожалуйста, ознакомься с Правилами Форума (особенно пп. 3 и 3а), а также читай правила того раздела, в который пишешь. Тема закрыта. |