Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.11.2018, 15:15   #1
Andrei777
 
Регистрация: 18.11.2018
Сообщений: 3
По умолчанию Помогите перевести код из Паскаль в Lazarus

Помогите перевести код.
Ввод А и В с клавиатуры в edit1 и edit2
Массив выводится в StringGrid
Цитата:
uses crt;
var a:array [1..1000] of integer;
i,n,k,l,b:integer;
s:real;
begin
writeln('vvedite n=');
read(N);
for i:=1 to n do begin
writeln('A[',i,']=');read(a[i]);
end;
writeln;
writeln('ishodniy massiv');;
for i:=1 to n do begin
write(a[i]:3);
end;
s:=1;
for i:=1 to n do begin
if a[i]>=0 then
s:=s*a[i];
end;
writeln;
writeln('vvedit a=');
read(l);
writeln('vvedit b=');
read(b);
for i:=1 to n do begin
if(i>=k) and (i<=l) then begin
if i mod 2<>0 then begin
k:=k+1;
end;
end;
end;
writeln;
writeln('proizved= ',s);
writeln('kolicestvo elementov na (a,b) kotorie stoyat na nechetnih mestah= ',k);

end.
Andrei777 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите перевести код Pascal в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 13 22.05.2014 17:19
помогите перевести код с VB в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 2 22.04.2014 19:31
Надо перевести код с Паскаля в код Lazarus Ляйсан9517 Помощь студентам 7 06.04.2014 22:44
Обработка одномерного массива на C# (Помогите перевести код с Паскаль на C#) Sirba Помощь студентам 2 03.10.2013 14:14