Turbo Pascal Подсчёт длины элементов массива - Форум
Суббота, 03.12.2016, 22:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Turbo Pascal Подсчёт длины элементов массива
Turbo Pascal Подсчёт длины элементов массива
vinni18Дата: Четверг, 11.02.2010, 19:44 | Сообщение # 1
Майор
Группа: Участник
Сообщений: 15
[ 0 ]
Статус: Offline
Дан символьный массив F. Подсчитать длину каждого элемента и вывести полученное число в скобках рядом с элементами.
 
LoremasterДата: Пятница, 12.02.2010, 11:33 | Сообщение # 2
Генерал-майор
Группа: Участник
Сообщений: 45
[ 3 ]
Статус: Offline
Code
program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
      F: Array[1..5] of string;
      i: integer;
begin
      F[1] := 'fgdsfgdsg';
      F[2] := 'fsg';
      F[3] := 'fgds';
      F[4] := 'fgdsf';
      F[5] := 'fgdsfgd';

      for i := 1 to 5 do
      begin
           write(F[i] + ' (');
           write(length(F[i]));
           writeln(')');
      end;

      readln;
end.
 
vinni18Дата: Воскресенье, 14.02.2010, 19:01 | Сообщение # 3
Майор
Группа: Участник
Сообщений: 15
[ 0 ]
Статус: Offline
спасибо-работает,только вместо Uses SysUtils; надо было Uses Clrscr;
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Turbo Pascal Подсчёт длины элементов массива
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016