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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2008, 18:57   #1
Hot sunny day
 
Регистрация: 24.10.2008
Сообщений: 4
По умолчанию помогите пожалуйста решить 2 задачи

1. Создать калькулятор телефона САМСУНГ, ввести строку с арифметическими операциями: „<число> арифметическая операция <число> арифметическая операция <число>”. Например: 10-5*60.
2. Дан массив 4*4.Ввести числа самостоятельно, и вывести рядом с каждой строкой минимальное число. Например:

-32 -1 25 -94 -94
39 99 61 3 3
46 12 59 20 12
87 6 -28 67 -28
Hot sunny day вне форума Ответить с цитированием
Старый 24.10.2008, 19:51   #2
motaro
Форумчанин
 
Регистрация: 10.07.2007
Сообщений: 104
По умолчанию

2

Код:
program new;
uses crt;
var a:array [1..4,1..4] of integer;
    i,j,k,min:integer;
begin
 clrscr;
 k:=1;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     write ('Введите ',i,'.',j,'-й элемент массива: ');
     readln (a[i,j]);
    end;
  end;
 writeln;
 for i:=1 to 4 do
  begin
   min:=a[k,j];
   for j:=1 to 4 do
    begin
     if a[k,j]<min then min:=a[k,j];
     textcolor (lightgray);
     write (a[i,j]:4);
    end;
    textcolor (red);
    write ('   ',min);
    k:=k+1;
    writeln;
  end;
 readln
end.
motaro вне форума Ответить с цитированием
Старый 25.10.2008, 00:27   #3
Hot sunny day
 
Регистрация: 24.10.2008
Сообщений: 4
По умолчанию

2motaro, спасибо.
Hot sunny day вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Помогите,пожалуйста,решить задачи! ASFE Фриланс 4 06.10.2008 20:54
Помогите пожалуйста решить 3 задачи в Паскале! VisTBacK Помощь студентам 1 22.09.2008 11:15
помогите решить задачи!пожалуйста!! лиса Паскаль, Turbo Pascal, PascalABC.NET 9 12.01.2007 03:34