Паскаль. Дописать полностью код к отрывку кода

KiberNet · 05.09.2015, 00:01

[PASCAL]
K:=1;
For i:=1 to 4 do
If c[i]<=0 then k:=k*c[i]-2;
[/PASCAL]

KiberNet · 05.09.2015, 00:03

Два тега "[PASCAL]" "[/PASCAL]" тут лишние. Не обращайте на них внимание!

mike_ · 05.09.2015, 00:43

begin:
K:=1;
For i:=1 to 4 do
If c[i]<=0 then k:=k*c[i]-2;
end.
Всегда пожалуйста.

mike_ · 05.09.2015, 00:56

Вначале еще
K, I,c:integer;

Vladimir_S · 05.09.2015, 09:48

Цитата:

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

begin:

Цитата:

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

Вначале еще K, I,c:integer;

Майк, ну право же... Если Вы не очень ориентируетесь в Паскале, то лучше не надо людей путать.
1. После Begin никакие двоеточия не ставятся.
2. с - это не простая переменная, а одномерный массив. Так ее и следует задавать.

Код:

Var
 k,i:Integer;
 c:Array[1..4] of Integer;

Begin
 c[1]:=-3;
 c[2]:= 1;
 c[3]:=-2;
 c[4]:=-3;
 k:=1;
 for i:=1 to 4 do
  if c[i]<=0 then k:=k*c[i]-2;
 writeln('k = ',k);
 readln
End.

mike_ · 05.09.2015, 15:25

Цитата:

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

Майк, ну право же... Если Вы не очень ориентируетесь в Паскале, то лучше не надо людей путать.

Ех холера, забыл. Хотя в школе занимал два года подряд вторые места по области

Массив это я спросонья проморгал(

05.09.2015, 00:01	#1 (permalink)
KiberNet Member Регистрация: 11.12.2014 Сообщений: 76 Сказал(а) спасибо: 0 Поблагодарили 5 раз(а) в 4 сообщениях Репутация: -1440	Паскаль. Дописать полностью код к отрывку кода [PASCAL] K:=1; For i:=1 to 4 do If c[i]<=0 then k:=k*c[i]-2; [/PASCAL]

05.09.2015, 00:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Разумеется, на нашем форуме так же нашлись и похожие темы Спроектировать преобразователь кода Доработка програмного кода Качество моего кода Помогите дописать программу. Не сложно

05.09.2015, 00:03	#2 (permalink)
KiberNet Member Регистрация: 11.12.2014 Сообщений: 76 Сказал(а) спасибо: 0 Поблагодарили 5 раз(а) в 4 сообщениях Репутация: -1440	Два тега "[PASCAL]" "[/PASCAL]" тут лишние. Не обращайте на них внимание!

05.09.2015, 00:43	#3 (permalink)
mike_ VIP user Регистрация: 15.01.2014 Сообщений: 1,828 Сказал(а) спасибо: 242 Поблагодарили 15 раз(а) в 11 сообщениях Репутация: 26010	begin: K:=1; For i:=1 to 4 do If c[i]<=0 then k:=k*c[i]-2; end. Всегда пожалуйста.

05.09.2015, 00:56	#4 (permalink)
mike_ VIP user Регистрация: 15.01.2014 Сообщений: 1,828 Сказал(а) спасибо: 242 Поблагодарили 15 раз(а) в 11 сообщениях Репутация: 26010	Вначале еще K, I,c:integer;

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