Составьте программу в Паскаль - Страница 2

irina · 05.04.2013, 22:52

мне преподаватель сказал, что нужно выдать значение функции, чтоб от 0 до 7. и именно по 8 значениям!!!и от 0 до 7. а вот ту программу которую я написала вот типо того, но добавить что-то нужно. А так на экране вывести нужно, чтоб программа сама посчитала!!!!
спасибо большое - я не истерю. у нас преподаватели с ума сошли, если не сделаешь-отчислят и тп.

irina · 05.04.2013, 22:55

я просто в этом 0, еще и больнице лежала когда тему объясняли, сейчас коллоквиум и вообще не знаю что делать, извините пожалуйста(((

Vladimir_S · 06.04.2013, 09:06

Цитата:

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

мне преподаватель сказал, что нужно выдать значение функции, чтоб от 0 до 7. и именно по 8 значениям!!!и от 0 до 7. а вот ту программу которую я написала вот типо того, но добавить что-то нужно. А так на экране вывести нужно, чтоб программа сама посчитала!!!!
спасибо большое - я не истерю. у нас преподаватели с ума сошли, если не сделаешь-отчислят и тп.

Ира, выше я уже выкладывал рабочий код:

Код:

Var
 i:Byte;
Begin
 For i:=0 to 7 do
  writeln(i,'     ',i*i:2);
 Readln
End.

Результат работы этой, я извиняюсь, "программы" - внизу. Еще раз повторяю вопрос: что не устраивает? Сформулируйте требования. А "что-то типо" - это, знаете ли, я не понимаю.

interacia · 06.04.2013, 15:11

Может так. Сначала вводим 8 произвольных значений. Потом выводим 8 значений в квадрате.

Код:

Program M;
 Var
 i:integer;
 x:array [1..9] of integer;
 y:array [1..9] of integer;
 Begin
 i:=1;
 while i<=8 do
begin
 write('vvedite ',i,' znachenie x'); readln(x[i]);
 y[i]:=x[i]*x[i];
 i:=i+1;
end;
 writeln('vyvod funksii');
 i:=1;
 while i<=8 do
begin
 writeln(i,')  y(',x[i]:4,')=',y[i]);
 i:=i+1;
end;
End.

06.04.2013, 15:11	#14 (permalink)
interacia Member Регистрация: 29.01.2013 Сообщений: 91 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 565	Может так. Сначала вводим 8 произвольных значений. Потом выводим 8 значений в квадрате. Код: Program M; Var i:integer; x:array [1..9] of integer; y:array [1..9] of integer; Begin i:=1; while i<=8 do begin write('vvedite ',i,' znachenie x'); readln(x[i]); y[i]:=x[i]*x[i]; i:=i+1; end; writeln('vyvod funksii'); i:=1; while i<=8 do begin writeln(i,') y(',x[i]:4,')=',y[i]); i:=i+1; end; End.

05.04.2013, 22:52	#11 (permalink)
irina Новичок Регистрация: 31.03.2013 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	мне преподаватель сказал, что нужно выдать значение функции, чтоб от 0 до 7. и именно по 8 значениям!!!и от 0 до 7. а вот ту программу которую я написала вот типо того, но добавить что-то нужно. А так на экране вывести нужно, чтоб программа сама посчитала!!!! спасибо большое - я не истерю. у нас преподаватели с ума сошли, если не сделаешь-отчислят и тп.

05.04.2013, 22:52
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обратите внимание на похожие топики, в них наверняка есть много важного Помогите составить программу на турбо паскаль Проверьте, пожалуйста, программу. Паскаль

05.04.2013, 22:55	#12 (permalink)
irina Новичок Регистрация: 31.03.2013 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я просто в этом 0, еще и больнице лежала когда тему объясняли, сейчас коллоквиум и вообще не знаю что делать, извините пожалуйста(((

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070