Кто хорошо знает delphi?

@Valechqa · Регистрация: 27.09.2013

Author24 — интернет-сервис помощи студентам

1. определить значение x после выполнения алгоритма при x=2.
2. Составить программу, которая подсчитывает количество отрицательных чисел среди выведенных с клавиатуры чисел a,b,c

Комментарий модератора

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

1. определить значение x после выполнения алгоритма при x=2.

Алгоритм-то не задан. Формулировку задания следует уточнить.

Добавлено через 1 час 40 минут

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

1. определить значение x после выполнения алгоритма при x=2.
2. Составить программу, которая подсчитывает количество отрицательных чисел среди выведенных с клавиатуры чисел a,b,c

Алгоритм-то не задан. Формулировку задания следует уточнить.

первое уже сделала, как второе делать

@Mawrat · 01.11.2013, 11:23

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

2. Составить программу, которая подсчитывает количество отрицательных чисел среди выведенных с клавиатуры чисел a,b,c

Delphi

var
  Num : Extended;
  Cnt : Integer;
begin
  Cnt := 0;
  
  Write('А: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
  
  Write('B: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
  
  Write('C: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
 
  Writeln('Количество отрицательных чисел: ', Cnt);
  Readln;
end.

Добавлено через 2 минуты
Inc(Cnt) даёт такой же результат, что и: Cnt := Cnt + 1.

@Valechqa · 01.11.2013, 11:30 **[ТС]**

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

Delphi

var
  Num : Extended;
  Cnt : Integer;
begin
  Cnt := 0;
  
  Write('А: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
  
  Write('B: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
  
  Write('C: ');
  Readln(Num);
  if Num < 0 then Inc(Cnt);
 
  Writeln('Количество отрицательных чисел: ', Cnt);
  Readln;
end.

Добавлено через 2 минуты
Inc(Cnt) даёт такой же результат, что и: Cnt := Cnt + 1.

спасибо)

	01.11.2013, 11:30

Опции темы

Кто хорошо знает delphi?

Решение