Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите перевести код 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


13:41.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.